Recent

Author Topic: DrawCell procedure.  (Read 4207 times)

Fred vS

  • Hero Member
  • *****
  • Posts: 3573
    • StrumPract is the musicians best friend
DrawCell procedure.
« on: March 22, 2011, 07:52:29 pm »
Hi folks.
Just a big WOoAW for the DrawCell procedure in Stringgrid.  :)
For example :
Quote
procedure StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer; aRect: TRect; aState: TGridDrawState);
                begin
 StringGrid1.Canvas.gradientfill(aRect,clsilver,clblack,gdvertical)  ;
end;
transforms your stringgrid into a beautiful gradiented grid.
You may add some condition with aRow and aState and you get a brand new-easy-custom grid....
Once again, bravo, Lazarus... ;)
 
I use Lazarus 2.2.0 32/64 and FPC 3.2.2 32/64 on Debian 11 64 bit, Windows 10, Windows 7 32/64, Windows XP 32,  FreeBSD 64.
Widgetset: fpGUI, MSEgui, Win32, GTK2, Qt.

https://github.com/fredvs
https://gitlab.com/fredvs
https://codeberg.org/fredvs

 

TinyPortal © 2005-2018