Tabelle färben

[Online-Skater]

Hi
hat einer eine Idee wie man in einem TStringGrid eine bestimmte Zelle andersfarbig machen kann oder halt zeilen/spalten ?

würd emich mal interessieren

 

[eldevino]

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
   Rect: TRect; State: TGridDrawState);
 begin
    with TStringGrid(Sender).Canvas do
 	  begin
 		 if (ACol = 1) and (ARow = 1) then begin
 		  Brush.Color:= clClue;
 		  FillRect(Rect);
 	  end;
    end;
 end;

Färbt die Zelle [1,1] blau...

Viel Spaß damit...
eldevino

 

[Online-Skater]

thx für die antwort , doch der compiler meckert das StringGrid1DrawCell undefiniert ist und somit klappts net. Bei mir heist stringgrid1 = Tabelle aber auch das brachte kein erfolg

 

[vop]

Du mußt im Objektinspektor das Ereignis OnDrawCell doppelklicken, dann erstellt er dir die entsprechende Prozedur (die du dann noch wie von eldevino angegeben anpassen mußt)

vop

 

[eldevino]

Du mußt im Objektinspektor das Ereignis OnDrawCell doppelklicken, dann erstellt er dir die entsprechende Prozedur (die du dann noch wie von eldevino angegeben anpassen mußt)

vop

Das Ereignis OnDrawCell doppelklicken und dann nur noch folgenden Code reinkopieren:

     with TStringGrid(Sender).Canvas do
 	  begin
 		 if (ACol = 1) and (ARow = 1) then begin
 		  Brush.Color:= clClue;
 		  FillRect(Rect);
 	  end;
    end;

 

[Online-Skater]

Oh mann Danke
wie dumm von mir ich war so blöd und kopier es einfach rein dann is ja klar

Klappt alles suppi thx