Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Lannes,
10. Aug 2008
Hallo,
@toms: gibt es einen Grund vor DrawEdge und FillRect (übermalt doch alles mit FixedColor) noch DrawFrameControl einzusetzen?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Lannes,
10. Aug 2008
Hallo,
versuch das mal:
if (ACol in ) and (ARow = 2) then
begin
aRect := Rect;
if ACol = 2 then
aRect.Right := aRect.Right + StringGrid1.ColWidths
else
aRect.Left := aRect.Left - StringGrid1.ColWidths;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Lannes,
9. Aug 2008
Hallo,
Fixed kann man nur in den ersten Spalten bzw. Zeilen setzen, also da bleibt Dir nichts anderes übrig als selber zu zeichnen in OnDrawCell.
Der folgende Code zeichnet einen 3D-Effekt über zwei Zellen in Spalte 2 + 3 in der 2-ten Zeile:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var aRect : TRect;
begin
if...