Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by ibp,
2. Sep 2004
also...
procedure TfoDBEdit.stringrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
aStr:string; // hilfsstring
begin
aStr:=stringrid1.Cells+' '; // ' ': visueller Sinn (text>Linie)
if aStr<>' ' then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by ibp,
2. Sep 2004
astr ist vom typ string ! versuchs mal damit ! gruß rené
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by ibp,
2. Sep 2004
oder hier...
...
aStr:=stringrid1.Cells+' '; // ' ': visueller Sinn (text>Linie)
if aStr<>' ' then
begin
stringrid1.Canvas.FillRect(Rect); // alten text löschen
DrawText(stringrid1.Canvas.Handle,
pChar(aStr),
Length(aStr),