assignd funktioniert allerdings geht der code nicht richtig . . .
also ich versuche alle Zellen in einem Stringgrid mit font und color eigenschaften zu belegen.
mit color funktioniert das wunderbar - allerdings nicht mit font.
Delphi-Quellcode:
procedure Temaske_excel.Schriftartbearbeiten1Click(Sender: TObject);
begin
if Assigned(ca1[stringgrid1.Col,stringgrid1.Row].font) then
fontdialog1.Font := ca1[stringgrid1.Col,stringgrid1.Row].font
else
fontdialog1.Font := stdfont;
if fontdialog1.Execute then
begin
ca1[stringgrid1.Col,stringgrid1.Row].font := fontdialog1.Font;
end;
end;
das problem : wenn ich eine zelle anklicke, das popupmenü öffen und denn auf 'schriftarten bearbeiten' klicke wird der font wert stdfont nicht richtig in den fontdialog1 eingefügt.
der fontdialog1 sollte dann doch eigentlich stdfont anzeigen, oder?
in der oncreate definiere ich stdfont so:
stdfont := Fontdialog1.font;