2 Schriftarten in Stringgrid-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;