Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by c.Stetter,
9. Nov 2007
Ich habe nur ein problem mit :
with (sender as TJVStringGrid) do
begin
=> if ((aRow = 9) or (aRow = 2) or (aRow = 5) or (aRow = 1)) then
begin
Canvas.Brush.Color := Farbe ;
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left+2, Rect.Top+2, (sender as TJvStringGrid).Cells);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by c.Stetter,
9. Nov 2007
:wiejetzt:
ich glaube das ist ein bißchen zu hoch für mich. kannst du mir nen kleinen tipp geben, wie ich anfangen muss.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by c.Stetter,
9. Nov 2007
Ich bräuchte eine procedure oder function in der ich zum beispiel parameter übergebe.
ich stelle mir z.b vor
procedure Einfaeben(aStringGrid: TStringGrid; aRow, aCol : integer; Farbe : TColor);
nur weiß ich nicht genau wie man das mach. Bin noch nicht lange dabei. :oops:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by c.Stetter,
9. Nov 2007
Hallo,
ich wollte ein StringGrid einfärben (4 Zeilen Geld, 3 Zeilen Rot, usw)
Manuel mache ich das so :
procedure TMainForm.grd_SpieleDrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);