كيف احول هذ الكود الخاص بتلوين 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;