TCategoryPanel Anzeige-Bug?

[Alex_ITA01]

Hallo zusammen,
ich habe eine TCategoryPanelGroup mit 3 TCategoryPanel darauf.
In jedem TCategoryPanel sind testweise ein Memo, 2 Panels und ein Button.
Das dritte TCategoryPanel ist ausgeklappt.
Wenn ich die Anwendung starte, sieht alles normal aus.
Wenn ich danach allerdings auf das zweite TCategoryPanel klicke, wird das dritte TCategoryPanel natürlich nach unten verschoben aber mein Button ist halb abgeschnitten. Klicke ich nochmal auf das zweite TCategoryPanel, wird dieses eingeklappt und das dritte TCategoryPanel sollte so aussehen wie nach Anwendungsstart. Tut es aber nicht.
Habe schon mit Repaint versucht irgendwas zu machen aber keine Besserung.
Habt ihr eine Idee dazu?

[Alex_ITA01]

*push* Irgendjemand eine Idee oder benutzt ihr diese Komponente nicht? Wenn nicht, welche nutzt ihr dann um sowas darzustellen?

[LoZe]

Hallo, ich benutze die Komponente nicht aber kannst du vielleicht ein redraw Triggern?
ich muss dass bei meinen TStringgrids auch immer wieder mal machen wenn sich das Fenster ändert (onResize, onScroll z.b.)

[Gausi]

Ich benutze die Komponente, und habe gelegentlich ähnliche Probleme. Edit-Felder werden z.B. auch nicht zuverlässig aktualisiert. Hinzu kommen so Späße, dass eine deaktivierte Komponente auf einem CategoryPanel auch in der IDE deaktiviert (d.h. nicht mehr anklickbar) ist.

Eine direkte Lösung habe ich nicht. Eine Verbesserung tritt bei mir ein, wenn ich im OnCollapse und OnExpand die enthaltenen Elemente neu zeichne (Repaint). Evtl. ist das aber zu früh. Triggern des Repaint per PostMessage könnte funktionieren, oder halt Quick&Dirty über einen Timer, der im OnExpand/OnCollapse gestartet wird.

[Michael II]

Ich verwende das Ding nicht (wusste nicht mal, dass es sowas gibt), kann aber das Verhalten (dein Projekt) bestätigen.

Wenn ich einen Haltepunkt bei procedure TCustomCategoryPanelGroup.WMPaint() setze, dann sehe ich, dass der Button zu früh gesetzt wird (die eine Hälfte) - und später wird dann die andere Hälfte gemalt (jene, welche du nach Abschluss der Malarbeiten siehst).

Das scheint nicht sauber programmiert zu sein.

[Michael II]

Du solltest dieses Problem melden.

Als Workaround schlage ich dir vor, die Kinder selber neu zu malen.

Zum Beispiel so:

Delphi-Quellcode:

procedure RepaintChildren(Parent: TWinControl);
var
  i: Integer;
  Child: TControl;
begin
  for i := 0 to Parent.ControlCount-1 do
  begin
    Child := Parent.Controls[i];
    if Child is TWinControl then
    begin
      Child.Repaint;
      RepaintChildren(TWinControl(Child));
    end;
  end;
end;

Aufruf:
Auf die Ereignisse OnCollapse und OnExpand von cpSprache reagierst du mit NeuMalen aller Kinder und Kindeskinder von CategoryPanelGroup1. (CategoryPanelGroup1.Repaint oder Panel2.Repaint funktionieren nicht, da du damit wieder in den programmierten Mist reingerätst.)

Delphi-Quellcode:

procedure TForm3.cpSprache2Expand(Sender: TObject);
begin
   RepaintChildren(CategoryPanelGroup1);
end;