2 Schriftarten in Stringgrid-Zelle ?

[Hansa]

Hi,

in einer Zelle eines Stringgrids muß ich zwei verschieden große Schriften unterbringen. Eine "normale" und eine sehr kleine. Jetzt weiß ich allerdings nicht, wie und wo ich da anfangen soll.

[Stanlay Hanks]

Hi. Gibt es nicht eine Möglichkeit, die Zelle selber zu zeichnen? Dann ginge doch TextOut() oder?

Man liest sich, Stanlay

[fkerber]

Hi!

Ja, Zelle selber zeichnen geht und TextOut auch.
Wie das jetzt genau mit Schriftarten geht, weiß ich leider nicht, sry
Hatte bisher nur zentriert.

Ciao Frederic

[Hansa]

Selber machen ? Egal. Aber ich sehe Probleme in einer Zelle !

[Union]

Zitat von Hansa:

Selber machen ? Egal. Aber ich sehe Probleme in einer Zelle !

Wo siehst Du die? Folgendes Beispiel zeichnet den ersten Buchstaben einer jeden Zelle (ausser Überschriften) in Fett, den Rest normal.

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
   s : string;
begin
   with StringGrid1 do
   begin
      s := Cells[ACol, ARow];
      If not (gdFixed in State) then
      begin
         Canvas.Font.Style := [fsBold];
         Canvas.TextOut(Rect.Left+1, Rect.Top+1, copy(s,1,1));
         Canvas.Font.Style := [];
         Canvas.TextOut(Rect.Left+8, Rect.Top+1, copy(s,2,length(s)-1));
      end;
   end;
end;