StringGrid Text zentrieren

[ruediger]

Hallo zusammen,
bin neu bei euch.

Mein Problem mit dem Stringgrid:

ich versuche den Inhalt in den einzelnen Zellen zentriert im StringGrid auszugeben, ich bekomme doppelte Einträge.
Was mache ich falsch?

Code: Alles auswählen

procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
var s:String;
begin
           s:=Stringgrid1.Cells[acol,arow];
           Stringgrid1.Canvas.Brush.Color:=clRed;
           StringGrid1.Canvas.Font.Style:=[fsBold];
           StringGrid1.Canvas.Font.Size:=9;
           Stringgrid1.Canvas.FillRect(aRect);
 
           DrawText(Stringgrid1.Canvas.Handle,
             PChar(s),
             length(s),
             aRect,
             DT_Center
             or
             DT_VCenter
             or
             DT_SingleLine
           );
 
end;

[_X_]

Bitte den Highlighter verwenden
schau mal da http://www.delphipraxis.net/topic162561 ... g+und.html" onclick="window.open(this.href);return false;

mfg _X_

[ruediger]

danke.

[Scotty]

Mach es nicht per length() div 2, DrawText() ist gut und richtig. Deine doppelten Einträge kommen vom Standardzeichen des Grids. Das schaltest du über DefaultDrawing=false aus.
PS: Da ist noch ein Fehler im Code: Brush.Color:=clRed; das muss Brush.Color:=clWindow heißen. Man bekommt ja schon beim Lesen des Beispiels Augenkrebs

[ruediger]

Mach es nicht per length() div 2, DrawText() ist gut und richtig. Deine doppelten Einträge kommen vom Standardzeichen des Grids. Das schaltest du über DefaultDrawing=false aus.
PS: Da ist noch ein Fehler im Code: Brush.Color:=clRed; das muss Brush.Color:=clWindow heißen. Man bekommt ja schon beim Lesen des Beispiels Augenkrebs

Ja, für den DefaultDrawing, danke.

jetzt zu dem Augenkrebs, vollständig lautet der Code:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
aRect: TRect; aState: TGridDrawState);
var s:String;
begin
s:=Stringgrid1.Cells[acol,arow];
if StringGrid1.Cells[aCol, aRow] = '5' then
begin
Stringgrid1.Canvas.Brush.Color:=clRed;
StringGrid1.Canvas.Font.Style:=[fsBold];
StringGrid1.Canvas.Font.Size:=9;
Stringgrid1.Canvas.FillRect(aRect);
end;

DrawText(Stringgrid1.Canvas.Handle,
PChar(s),
length(s),
aRect,
DT_Center
or
DT_VCenter
or
DT_SingleLine
);

end;

Mit der API Drawtext erhalte ich eine merkwürdige Ausgabe:
wenn die Bedingung erfüllt ist wird die Zelle Rot eingefärbt (Inhalt bleibt schwarz),
aber die restlichen Zellen werden Schwarz eingefärbt, der Inhalt der Zelle wird erst sichtbar, wenn ich die Zelle anklicke, dann wird die Zelle weiß und der Inhalt ist sichtbar. Weiß du wo der Fehler liegt? (danke für deine Bemühungen).

[Scotty]

Ich nehme an, du musst für die anderen Bedingungen auch sorgen.

Code: Alles auswählen

...
end else Brush.Color:=clWindow;

[ruediger]

Ich nehme an, du musst für die anderen Bedingungen auch sorgen.

Code: Alles auswählen

...
end else Brush.Color:=clWindow;

Ich danke dir.