title image


Smiley Re: Farbe der Selection in einem StringGrid
Ich würde es so machen:



type

gruen = set of 0..200; // beispielsweise maximal 200 Zeilen



var

hellgruen: TColor = $CCFFDD;

grueneZeilen: gruen = [3, 4, 5, 12, 20]; // beispielsweise hellgrüne Zeilen



procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;

Rect: TRect; State: TGridDrawState);

begin

with TStringgrid(Sender) do begin

with canvas do begin

if aRow in grueneZeilen then begin

if gdSelected in State then begin

brush.color := clgreen;

font.color := clwhite;

end else begin

brush.color := hellgruen;

font.color := clblack;

end;

end else begin

if gdSelected in State then begin

brush.color := clblue;

font.color := clyellow;

end else begin

brush.color := clwhite;

font.color := clblack;

end;

end;

fillrect(rect);

drawtext(handle, pchar(cells[aCol, aRow]),

-1, Rect, DT_VCENTER or DT_SINGLELINE);

end;

end;

end;



Gruß DBR
Eine Stunde denken spart zehn Stunden programmieren!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: