Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Joe24,
30. Dez 2004
Wie meinst du das mit "waagerecht verschieben"?
Wenn du die Höhe der einzelnen Zeilen meinst,
dann alle Zeilen einheitlich mit DefaultRowHeight oder
individuell mit RowHeights.
Analog dazu gilt DefaultColHeight, ColHeights
für die Spalten.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Joe24,
30. Dez 2004
Bei mir funktioneiert es.
Jede 5 Spalte wird eine dickere Linie gezeichnet, vorausgesetzt TDrawGrid-Objekt hat mehr als 5 Spalten.
Sind die Linien deines TDrawGrid-Objekt bereits breiter als 1 pt?
Die Ereignisbehandlungsmethode must du natürlich noch an deine Anfordeungen anpassen (Farbe, Linienbreite).
Ist Ereignisbehandlungsmethode über das entsprechende OnDrawCell-Event auch registriert?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Joe24,
30. Dez 2004
Entspricht das deinen Vorstellungen?
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if ( aCol mod 5) = 0 then
with DrawGrid1.Canvas do
with Rect do
begin
MoveTo( Left, Top);