Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
1. Mai 2006
Nur für den Fall, dass jemand unabhängig von der Zelldimensionierung sein möchte - hier noch der Ansatz, auf den ich euch stoßen wollte:
procedure TDemoForm.SGDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
iCol, iRow: Integer;
p: TPoint;
begin
with Sender as TStringGrid do
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
1. Mai 2006
Verflixt - habe immer gedacht, das wäre genau der Parameter Rect im Ereignis OnDrawCell().
marabu *zerknirscht ist*
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
1. Mai 2006
Hallo Hawkeye,
p := ScreenToClient(Mouse.CursorPos);
MouseToCell(p.X, p.Y, iCol, iRow);
sieht irgendwie nach nichts aus - viel zu einfach, oder?
Freundliche Grüße vom marabu