Ribbon

[himitsu]

Das die dahinterliegenden Funktionen nicht funktionieren, liegt aber nicht an den Ribbons,
denn da die Dialoge angezeigt werden, scheint der entsprechende Code ja aufgerufen zu werden.

Aber ohne uns zu verraten, was dein Code macht und wie er aussieht, wird dir da keiner helfen können.

[Pfl]

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... .

[Steku]

Hi,

bei den Delphi Demos müsste auch ein Ribbon-Demo dabei sein.
Schau' es dir einfach mal an, bzw. probier' einfach mal ein bisschen
herum...

Und zum Einstieg helfen vielleicht diese Online Tuts:

http://www.rongrove.com/Article/View...ibbon-tutorial

http://www.rongrove.com/Article/View...nubar-tutorial

http://www.rongrove.com/Article/View...-button-groups


Und ich könnte beinahe wetten, dass sich auf Youtube auch noch das
eine oder andere zum Thema finden lässt...

Gruß
Steku

[Pfl]

Ich habe lange bei youtube gesucht, aber nichts brauchbares gefunden; FontDialogs werden nie benutzt; wie man den Speicher u8nd Öffendialog benutzt, wird ebenfalls nicht erklärt...

[himitsu]

Was ist FontEdit1 für eine Komponente?

Beim Speichern sieht es soweit eigentlich OK aus, aber du solltest unbedingt mal das Dialog. weglassen, denn das erstellt einen "weiteren" Dialog und gibt es als Interface zurück, aber du wolltest doch auf die Ergebnisse des letzen Dialogs (in Execute) zugreifen.

Tipp: Wir besitzen hier auch [delphi]-Tags (da oben im Beitragsedior der Button mit rotem Delphi-Helm).

Delphi-Quellcode:

begin
  if FileSaveAs1.Execute then
    RichEdit1.Lines.SaveToFile(FileSaveAs1.FileName);
end;