|
Registriert seit: 5. Jun 2012
Ort: Berlin
65 Beiträge
Delphi XE6 Architect
|
AW: Ribbon
11. Sep 2012, 20:49
Ich hatte überlegt, die Geschichte mit dem FotnDialog so zu lösen :
procedure TForm1.FontEdit1BeforeExecute(Sender: TObject);
begin
if FontEdit1.Dialog.Execute then
begin
RichEdit1.Font.Assign(FontEdit1.Dialog.Font);
end;
end;
Der FontDialog wird doppelt gezeigt: Er übernimmt beim ersten Mal die Schriftart auf das RichEdit, beim zweiten Mal passiert nichts. Ich habe einen ähnlichen Code beim Speicherdialog versucht:
if FileSaveAs1.Execute then
begin
RichEdit1.Lines.SaveToFile(FileSaveAs1.Dialog.File Name);
end;
end;
Der SaveDialog wird gezeigt, sichert auch die Datei und lässt sich danach aber nicht mehr beenden; ich musste den Prozess killen... .
Friedrich
|