BGRA Ribbon

[coasting]

Hey

Habe mithilfe der BGRA Controls ein Ribbon-Style Projekt Template erstellt.

Screenshot

Zum kompilieren werden die BGRABitmap und BGRAControls Packages benötigt.

Das Template ist noch nicht fertig und es gibt noch ein paar Dinge, die ich gerne umsetzen möchte. Sourcen liegen aber trotzdem schon mal bei. Bin für Anregungen und Kritik offen

Update 06.04.2016
+ Fenster ist Resizeable und Moveable ohne Titelleiste
+ Fenster hat einen Schatten (CS_DROPSHADOW)
+ Maximize / Minimize des Fensters, inkl. Doppelklick der Titelleiste
+ Slide-in / Slide-out Effekt der Menus
+ XML Storage zum Abspeichern der Farbe, Größe und Position
+ Fokusstatus des Fensters wird berücksichtigt
+ Systemmenu
+ "Quick Access" Buttons
+ Fensterdeko in der Titelleiste
+ Cross Platform (so hoffe ich)
+ Diverse kleine Verbesserungen

coasting

[Roland Chastain]

Hallo!

Das ist sehr hübsch. Danke für das Code.

Nur eine Frage: Ich habe nicht verstanden, was man mit die .bcbtn Dateien machen soll.

[Dragon]

@Roland Chastain
Ich glaube da sind die themes drin gespeichert also das aussehen der Ribbon bars

@coasting
Die komponente sieht auf jedenfall ziemlich nice aus gute arbeit. Werde mir bei gelegenheit den code mal ansehen.

[coasting]

Nur eine Frage: Ich habe nicht verstanden, was man mit die .bcbtn Dateien machen soll.

Die kannst Du in das ..\Styles\ Verzeichnis der BGRAControls kopieren. Sie dienen als Vorlage für die Tab- bzw. Ribbon-Buttons.

coasting

[coasting]

@coasting
Die komponente sieht auf jedenfall ziemlich nice aus gute arbeit. Werde mir bei gelegenheit den code mal ansehen.

Leider ist es (noch) keine Komponente, sondern erstmal nur ein Template für ein neues Projekt. Ja, schau bitte mal in den Source Code, da ist sicherlich einiges was man besser machen kann...

coasting

[Dragon]

Ja, schau bitte mal in den Source Code, da ist sicherlich einiges was man besser machen kann...

Ich bin auch noch relativer anfänger kann zu dem code wrsl deshalb nicht alzuviel sagen, auch wenn ich mich mit Lazarus auch schon ne weile beschäftige, aber der Tag hat Leider auch nur 24Stunden, hat wer lust das mal zu patchen, aber selber draus lernen kann ich bestimmt ein wenig oder vll tipps geben.

[Roland Chastain]

Die kannst Du in das ..\Styles\ Verzeichnis der BGRAControls kopieren. Sie dienen als Vorlage für die Tab- bzw. Ribbon-Buttons.

Ich sehe. Danke.

[Mathias]

Ich habe die Example BGRA Ribbon-Template.zip probiert, wen man dort die Unit Windows entfernt. läuft es sogar unter Linux.

[coasting]

Ich habe die Example BGRA Ribbon-Template.zip probiert, wen man dort die Unit Windows entfernt. läuft es sogar unter Linux.

Ohh... das ist gut zu wissen! Hatte bisher noch keine Gelegenheit, es auf anderen Systemen als Windows 10 zu probieren.

Was mir ein wenig Kopfweh bereitet, ist das Zeichnen der Form ohne Titelleiste. Eigentlich funktioniert das schon, nur das die Form ohne Schatten gezeichnet wird und das das Resize ein wenig holprig aussieht. Aber beides weicht zu deutlich vom UI des Betriebssystems ab, daher belass ich es erst mal bei dem normalen Form Style.

coasting

[Mathias]

Was mir ein wenig Kopfweh bereitet, ist das Zeichnen der Form ohne Titelleiste.

Damit habe ich auch schon geübt, dies ist gar nicht so einfach.
Ich wollte eine eigene Titel-Leiste machen, so wie es zB. Chrome hat.
Verstellt man BorderStyle auf bsNone, dann hat man nicht mal mehr ein Rand am Form, welcher man braucht um die Fenstergrösse zu verändern.
Die Titel-Leiste selbst könnte man mit einem Panel, welches auf Align=alTop ist, bauen.

[Soner]

Für das Zeichnen ohne Titelzeile braucht ihr das:

Code: Alles auswählen

 
procedure TForm1.FormCreate(Sender: TObject);
begin
  //Nicht vergessen: uses LCLIntf; 
  SetWindowLong(Handle,GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and not WS_CAPTION);
  Height:=ClientHeight;
  Refresh;
end; 
 
// Falls man Formular verschieben will, dann man Mausklickereignis verwenden:
// Entwerde für Formular selbst oder bei Panel, Label usw. 
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 {Diese 1. Möglichkeit für das Verschieben funktioniert bei Lazarus nicht,
   aber bei Delphi funktioniert's!}
  ReleaseCapture;
  Perform(WM_SYSCOMMAND, $F012, 0);
 
  {Diese 2. Möglichkeit für das Verschieben funktioniert bei Lazarus nicht,
   aber bei Delphi funktioniert's!} 
  //SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
end;
 

Leider funktionieren die beiden Verschiebemöglichkeiten bei Lazarus nicht. Ich habe es trotzdem hinzugefügt. Einfach probieren ob das bei euch funktioniert.

Es gibt auch eine Ribboncomponente für Lazarus:
http://forum.lazarus.freepascal.org/ind ... c=17126.15

[Mathias]

Leider funktionieren die beiden Verschiebemöglichkeiten bei Lazarus nicht.

Das ist vielfach bei Lazarus so, ich hatte mal eigene Button für das Fenster gebaut, aber wie erwartet läuft dies nur mit Delphi und Windows.
Das Haupt-Problem wird die Platformübergreifung von Lazarus sein, man kann nicht den Fünfer und das Weggli haben.

[coasting]

Leider funktionieren die beiden Verschiebemöglichkeiten bei Lazarus nicht. Ich habe es trotzdem hinzugefügt. Einfach probieren ob das bei euch funktioniert.

Es gibt auch eine Ribboncomponente für Lazarus:
http://forum.lazarus.freepascal.org/ind ... c=17126.15

Ich habe eine neue Version im ersten Post hochgeladen. Die ist nun Resizable und Moveable. Allerdings fehlt noch der Schatten der Form.

Screenshot

Screenshot.png (8.82 KiB) 6549 mal betrachtet

Die SpkToolbar kenne ich ebenfalls. Allerdings lassen sich damit keine Ribbons im neuen Stil erstellen. Ein weiterer Tip sind die FZControls https://code.google.com/archive/p/fz-controls/ Eine Sammlung von Komponenten die sich ebenfalls toll anpassen lassen.

coasting

[wp_xyz]

Die SpkToolbar kenne ich ebenfalls. Allerdings lassen sich damit keine Ribbons im neuen Stil erstellen.

Bei SpkToolbar kann man jede Farbe jedes Farbübergangs verändern, die "flachen" neuen Ribbons sollte man damit hinbekommen. Was fehlt, das ist diese 1. Seite (plus einige weitere Controls, z.B. einrastende Buttons - ich wollte das immer mal probieren, habe aber nie mehr die Energie aufgebracht, mich in diese Komponenten tiefer einzuarbeiten).

Ein weiterer Tip sind die FZControls https://code.google.com/archive/p/fz-controls/ Eine Sammlung von Komponenten die sich ebenfalls toll anpassen lassen.

Leider funktioniert der Google-Link nicht mehr.

[coasting]

Bei SpkToolbar kann man jede Farbe jedes Farbübergangs verändern, die "flachen" neuen Ribbons sollte man damit hinbekommen. Was fehlt, das ist diese 1. Seite (plus einige weitere Controls, z.B. einrastende Buttons - ich wollte das immer mal probieren, habe aber nie mehr die Energie aufgebracht, mich in diese Komponenten tiefer einzuarbeiten).

Ein weiterer Tip sind die FZControls https://code.google.com/archive/p/fz-controls/ Eine Sammlung von Komponenten die sich ebenfalls toll anpassen lassen.

Leider funktioniert der Google-Link nicht mehr.

Hmm... komisch. Wenn ich auf den Link klicke, wird die Seite angezeigt. Hier https://code.google.com/archive/p/fz-controls/downloads ist die Downloadseite.

coasting