[DevExpress-Ribbon] Flickern unterdrücken

[neo4a]

Ich habe den Effekt, dass ein TdxRibbon flickert, wenn sich auf dem Formular zumindest ein angedocktes TdxDockPanel befindet.

Im beiliegenden Sample werden alle Komponenten im Code erzeugt. Sobald man die erzeugten DockPanels schließt, hört der Flicker-Spuk beim Resizen auf.

Kennt vielleicht jemand eine Lösung?

[Bernhard Geyer]

probier mal alle Properties "DoubleBuffer" die du findest auf True zu setzen.

[neo4a]

Zitat von Bernhard Geyer:

probier mal alle Properties "DoubleBuffer" die du findest auf True zu setzen.

Ist eigentlich schon geschehen.

Meine Lösung ist, im TdxCustomRibbonForm.AfterResize-Event die Aufrufe SendMessage(ARibbonHandle, WM_SETREDRAW herauszunehmen bzw. so zu verschieben, dass sie nur wirken, wenn wirklich etwas per Redraw-Window gezeichnet werden muss.

[Bebe]

Welche Version hast du von DevExpress installiert?

Eine Lösung hätte ich. Füge mal folgendes in deinem Formular ein, dann sollte es gehen.

Delphi-Quellcode:

type
  TdcRibbon = class(TdxCustomRibbon)
....
protected
    procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;

...

procedure TForm25.WMEraseBkgnd(var Message: TWMEraseBkgnd);
begin
  if UseSkin then // Ribbon Skin
    Message.Result := 1 // do nothing
  else
    inherited;
end;

Gruß
Matze

[neo4a]

Zitat von Bebe:

Welche Version hast du von DevExpress installiert?

Ich habe hier v2011 vol 1.8

Zitat von Bebe:

Füge mal folgendes in deinem Formular ein, dann sollte es gehen.

Perfekt. Ich danke Dir.