Hallo Gemeinde,
habe mich mal hier ein wenig belesen und komme nun doch nicht weiter.
Ich möchte ein StringGrid mit verschieden farbigen Spalten darstellen.
Hierzu habe ich bereits:
Delphi-Quellcode:
Procedure STGRPFPL2_UE1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
Var x:integer;
Begin
mainform.STGRPFPL2_UE_1.Canvas.Brush.Color := clmoneygreen;
if (ACol=0) and (ARow >0) then
mainform.STGRPFPL2_UE_1.Canvas.FillRect(Rect);
mainform.STGRPFPL2_UE_1.Canvas.Brush.Color := clwhite;
if (ACol=0) and (ARow =0) then
mainform.STGRPFPL2_UE_1.Canvas.FillRect(Rect);
end;
eingefügt. Dieser Event sollte doch nun aufgerufen werden, sobald das Grid gezeichnet wird.
Funktioniert auch soweit ganz gut, jedoch ist mein mit
Delphi-Quellcode:
Procedure PFPL_Uebersicht_Main;
var x:integer;
Begin
With mainform do
Begin
.
.
.
Select_1('TeileNr','bis_fpl_ma');
STGRPFPL2_UE_1.RowCount:=Zquery1.RecordCount+2;
x:=2;
While not Zquery1.Eof do
Begin
STGRPFPL2_UE_1.Canvas.Brush.Color:=clWindowText;
STGRPFPL2_UE_1.Cells[0,x]:=ZQuery1.fieldbyname('teilenr').AsString;
x:=x+1;
ZQuery1.next;
end;
.
.
.
end;
eingefügter Text auf wundersame Weise verschwunden. Ohne "Farbzusatz" geht alles. Wo könnte
hier meine Denkfehler liegen?
MFG
Steffen