Schriftarten im Stringgrid

Adrian · Beiträge: 314

Servus!

Ich lasse mir verschiedene Schriftarten in meinem Stringgrid ausgeben

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.SchriftButtonClick(Sender: TObject);
var
  z: Integer;
  Zeile: String;
begin
  for z:=1 to 10 do
  begin
    Zeile:=PcFonts[z];
    FontGrid.Font.Name:=Zeile;
    FontGrid.Cells[0,z]:=Zeile;
  end;//von for z...
end;

wobei ich mir die Fontnamen zuvor schon eingeholt habe mit

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.FormCreate(Sender: TObject);
begin
  PcFonts:=Screen.Fonts;
end;

Allerdings erscheinen in den Zellen zwar die einzelnen Namen der Schriftarten, aber dargestellt werden Sie doch nur mit dem im Objekinspektor eingestellten Wert.
Und nun stellt sich mir die Frage: Warum?

Gruß,

Adrian

Keldorn · Verfasst: Mo 27.02.06 19:55

Hallo

dein code ist nur von kurzer Dauer, minimier mal dein Delphi-prog, dann ist auch die schriftart weg. Du mußt die Zellen selber zeichnen im Suche in: Delphi-Forum, Delphi-Library

ONDRAWCELL und auch dort die Schriftart setzen.
Mfg Frank

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

digi_c · Beiträge: 1905 W98, XP D7 PE, Lazarus, WinAVR

Nun du bringst ja nur Text in die Zellen. Wenn die Zellen jetzt auchnoch die Schriftart annehmen sollen, musst du die Zellen selber zeichnen. Das ist nicht sooo schwer.

Lehn dich am besten daran an Suche bei Delphi-Treff

ZEILEN EINES STRINGGRIDS FÄRBEN

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme