ActionManager: Eigene RibbonSkin

[Codewalker]

Hallo zusammen.

Ich versuche dem in Delphi mitgelieferten TRibbon ein eigenes Skin zu verpassen. Eine eigene Instanz von

Delphi-Quellcode:

TCustomRibbonColorMap, TRibbonStyleActionBars

und

Delphi-Quellcode:

TCustomRibbonSkin

habe ich schon angelegt und mit Werten gefüllt. Die mitgelieferten Ribbons lesen aber über einen einen ResourceStream die Datei RibbonLunaSkin.res ein. Den Inhalt davon kriege ich aber auch mit dem ResourceHacker nicht kapiert. Es scheint ein ZLib-komprimierter Stream zu sein und ich will wissen, wie diese Bitmap aufgebaut ist, damit ich meine eigene Variante erstellen kann.
Wer kann hier weiterhelfen?

[cookie22]

Dekomprimier doch RibbonLunaSkin.res einfach.

In der Datei "Vcl.RibbonStyleActnCtrls", in Zeile 2058, siehst du wie es geht. Danach komprimierst du deine Datei wieder und bindest sie als Res-Datei ein, bzw lädst das Ding als Bmp, ich glaube das geht sogar auch. Das sollte funktionieren.

Allerdings verstehe ich nicht, wie sich jemand das Delphi Ribbon antun kann, wo es doch für ein paar Euros super skinnable Ribbons (DevExpress, TMS, Business Skinform) gibt.

[Bentissimo]

Oder auch das Original von Microsoft für lau. :wink:

Windows Ribbon Framework

[Codewalker]

Zitat:

Zitat von cookie22 (Beitrag 1204393)

Dekomprimier doch RibbonLunaSkin.res einfach.

In der Datei "Vcl.RibbonStyleActnCtrls", in Zeile 2058, siehst du wie es geht. Danach komprimierst du deine Datei wieder und bindest sie als Res-Datei ein, bzw lädst das Ding als Bmp, ich glaube das geht sogar auch. Das sollte funktionieren.

Das habe ich versucht. Ich habe die Resource mit dem ResourceHacker extrahiert und dann per ZLib-Stream versucht zu dekomprimieren. Dabei kam aber kein gültiges Bitmap raus.

[cookie22]

Also bei mir funzt das:

Delphi-Quellcode:

...

uses
System.ZLib;

...

var
  LResStream: TResourceStream;
  LZStream: TZDecompressionStream;
  FS: TMemoryStream;
begin
  LResStream := TResourceStream.Create(HInstance, 'RIBBON_LUNA', RT_RCDATA);
  LZStream := TZDecompressionStream.Create(LResStream);
  FS := TMemoryStream.Create;
  try
*   FS.CopyFrom(LZStream, LZStream.Size);
*   FS.SaveToFile('C:\Users\cookie\Desktop\Luna.bmp');
  finally
    LZStream.Free;
    LResStream.Free;
    FS.Free;
  end;
end;

Und das Bmp im Anhang kommt dabei heraus.

Einfach ein Ribbon auf eine Form und das ins "OnCreate". Pfad zur Datei musst du natürlich anpassen.