Forum: Programmieren allgemein
by Grizu,
13. Okt 2016
Ich hab es auch heute nochmal so probiert Holger, geht aber nicht. Ein Stück bleibt links immer Weiß.
Ob es an der Delphi Version liegt. ich nutze 10.1.....
ich geb mich mal fürs erste damit zufrieden das ich ein brauchbares Ergebnis habe, aber so richtig glücklich macht mich das noch nicht.
Forum: Programmieren allgemein
by Grizu,
12. Okt 2016
je später der Abend umso einfacher die Lösung...grins.
Dank dem Ansatz von Markus und vielen vielen Lösungsversuchen habe ich es hin bekommen. ob das so die schönste und eleganteste Lösung weiß ich nicht. Aber es geht.
man verschiebt einfach vor dem FillRect den Rect.Left nach links und schon füllt er weiter aus.....
Danke nochmals für eure Hilfe.
Hier nochmal der Code:
Forum: Programmieren allgemein
by Grizu,
12. Okt 2016
Ich hab jetzt mal pen.Style und Pen.Width probiert. Das hat leider nicht geholfen.
Der Ansatz von Markus ist gut. Wenn man nur ...Canvas.Frame.Rect(Rect) nimmt, dann sieht man das das Rectangle kleiner als das eigentliche Feld ist.
Und es hängt wohl mit dem Texteinzug zusammen. Setze ich im Objectinspektor BiDiMode auf RightToLeft dann fehlt etwas an der rechten Seite.
Hmm wird noch eine...
Forum: Programmieren allgemein
by Grizu,
12. Okt 2016
Das ist der Code den ich benutzt habe:
procedure Tm_settings.tab_visu_settingsDrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
var
gr : TStringGrid;
begin
gr := (Sender as TStringGrid);
if not odd(aCol) and not (gdFixed in State) then begin
Forum: Programmieren allgemein
by Grizu,
12. Okt 2016
Hallo,
ich habe ein TStringGrid bei dem jeder 2. Col eingefärbt wird.
Das funktioniert auch sehr gut.
Aber wenn ich mir das anschaue, dann ist der Anfang der Zelle immer noch weiß. Die Zelle ist nicht komplett eingefärbt.
Hat jemand eine Idee dazu? ich hab jetzt schon Stunden damit verbracht.
Ist wahrscheinlich eine simple Sache aber ich finds nicht.....