Suche: ClickSplitter

[Alaitoc]

Hallo zusammen,

kennt zufällig jemand einen simplen Splitter, wo noch ein Button vorhanden ist der den Teil des Formulars versteckt?
Ich habe zwar zur Zeit einem in Einsatz, jedoch entstehen dabei im XP-Style merkwürdige Grafikfehler und der Code
ist einfach nur zum davonlaufen

Wenn es auch ne simple Code technische Lösung gibt, wäre mir diese noch lieber

MfG Alaitoc

[MarioM.]

Was meinst Du genau?

[Alaitoc]

Naja ich habe einen Splitter und zwei Panels mit alTop und alClient.
Wenn ich nun auf den Button am Splitter klicke wird der Bereich mit alTop ausgeblendet
und wenn ich wieder auf den Button drücke wieder eingeblendet.

Auf Torrys Delphi Page gibts soeinen der heißt BMSplitter v2.5, jedoch in C.

Sollte halt wirklich möglichst simpel sein ( wenn es geht natürlich nur )

MfG Alaitoc

[MarioM.]

Ich meine, die jVCL hätte etwas deratiges.

Wenn Du es selber bauen müsstest: hättest Du dann Probleme mit dem Zeichnen des zusätzlichen Button-Elements, oder mit dem fehlenden OnClick-Event?

[Alaitoc]

Ich würd sagen mit dem Event, zum Zeichnen würd ich ThemeServices nutzen..denk ich.
Ich will halt nur sauberen Code produzieren und ich bin mir nicht genau sicher wie ich
das mit dem verstecken und wieder anzeigen der Elemente machen sollte.

MfG Alaitoc

[MarioM.]

Naja, Du musst Dir ja prinzipiell nur ein OnClick-Event schaffen.
Da dieses im TSplitter protected ist, genügt es, Dir eine Ableitung von TSplitter zu schaffen, in der Du dieses Event veröffentlichst.

Delphi-Quellcode:

   TClickSplitter = Class(TSplitter)
   published
      Property OnClick;
   End;

Das Ganze als Komponente registriert, und schon gehts los

Delphi-Quellcode:

Procedure Register;
Begin
   RegisterComponents('Samples', [TClickSplitter]);
End;

Im OnClick blendest Du dann einfach die entsprechenden Bereich mit Visible=False aus (als Beispiel).