+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : احول الكود الخاص بتلوين DBGRID الى DLL (/showthread.php?tid=7466)
احول الكود الخاص بتلوين DBGRID الى DLL - ramiparadox - 01-02-2016
كيف احول هذ الكود الخاص بتلوين DBGRID الى DLL
كود :
procedure TForm1.DBGrid4DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
dataset:Tdataset;
begin
DBGrid4.Font.Color:=clBlack;
DBGrid4.Font.Style:=[fsbold];
dataset:= (Sender as TDBGrid).DataSource.DataSet;
with AlternGrid(Sender) do
begin
if DataLink.ActiveRecord = Row-1 then
begin
Canvas.Font.Color:=clLime;
Canvas.Brush.Color:=clBlack;
end ;
end;
DBGrid4.DefaultDrawColumnCell(Rect,DataCol,Column, State);
DBGrid4.DefaultDrawColumnCell(Rect,DataCol,Column, State);
end;RE: احول الكود الخاص بتلوين DBGRID الى DLL - Agmcz - 03-02-2016
أرفق مثال تستخدمفيه dll
RE: احول الكود الخاص بتلوين DBGRID الى DLL - ramiparadox - 04-02-2016
(03-02-2016, 11:27 PM)Agmcz كتب : أرفق مثال تستخدمفيه dll