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.

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

Man liest sich, Stanlay

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

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

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.

zusammenfalten · markieren

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;