كيف اعمل زوم لسطر في DBGrid

[onexite]

PHP كود :

procedure TForm1.dbgrd1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
       if (gdSelected in State) then begin
            dbgrd1.Canvas.Brush.Color:=$C189A2;
            dbgrd1.Canvas.Font.Style := dbgrd1.Canvas.Font.Style + [fsBold];
            dbgrd1.Canvas.Font.Color := $524A20 ;
        // NLDSideBar1.Show;
       end;       
dbgrd1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end; 


الكود مرفق هنا
http://delphi4arab.net/forum/showthread.php?tid=9119