![]() ![]() TRIGGER_LOW : DoColor( TRIGGER_TEXTLOW, TRIGGER_BACKLOW ) TRIGGER_UNDER: DoColor( TRIGGER_TEXTUNDER, TRIGGER_BACKUNDER ) Procedure TForm1.StringGrid1DrawCell(Sender: TObject ACol, ARow: Integer įunction GridValueCase( Value:string ):integer Ĭase GridValueCase( Cells ) of Procedure StringGrid1Exit(Sender: TObject) Procedure StringGrid1KeyPress(Sender: TObject var Key: Char) Procedure StringGrid1SelectCell(Sender: TObject ACol, ARow: Integer ![]() Procedure StringGrid1DrawCell(Sender: TObject ACol, ARow: Integer Windows, SysUtils, Classes, Graphics, Controls, Forms, ![]() Want to do more with TGML Download Star RE: StringGrid Row Coloring Oh and some people have half a one for breakfast. Life is like a Grapefruit, sort of orangey-yellow and dimpled on the outside, wet and squidgy in the middle, it's got pips inside too. R := row // Copy variable 'row' as it only seems to be valid for a short timeĬount := (Row - 1) * lcount + Col Ĭ := ErrorColour //clRed Ĭ := OKColour //clwindow Ĭanvas.textout(rect.left + 2, rect.top + 2,list.strings) Row: Integer Rect: TRect State: TGridDrawState) Procedure TEmergiForm.emergidataDrawCell(Sender: TObject Col, ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |