Suche "anderen" TSplitter :)

[digitalthread]

Hi!

Ich bin auf der Suche nach einer anderen TSplitter-Komponente.
Und zwar soll/muss diese so aussehen, wie ich es mit Panels mal nachgestellt habe (im blauen Kasten):

http://www.tolica.de/delphi/splitter.jpg

Ich hoffe ihr habt da was für mich, denn den Style von der Standard-TSplitter-Kombo kann man leider nicht verändern. Und wenn die die Std-Kombo nehme, dann sieht das halt net so aus, wie es soll und zwar so:

http://www.tolica.de/delphi/splitter2.jpg

und wenn ich "Beveled = true" setze wird's schon nahezu grausam.
Ich bedanke mich für Eure Hilfe :)

Grüße,
Tobias

[r_kerber]

Hallo digitalthread,

schau Dir doch mal die Orpheus-Komponenten von Turbopower (TurboPower Orpheus) bzw. die jedi.Komponenten(Project JEDI) an. Vielleicht ist da etwas für Dich dabei.

[woki]

Hi,

die früheren RX-Komponenten haben auch einen Splitter, es kann aber sein, daß die von den Jedis übernommen worden sind.

[OLLI_T]

Hallo!

Konstruieren wir einfach mal den Fall es gäbe nirgendwo mehr was zum Downloaden. Das wäre sicher das ideale Szenario für einen Horrorfilm.

Schreib doch einfach ein bissel Code für das OnPaint Event ode bastel selber ne Compo draus!

Delphi-Quellcode:

procedure TForm1.SplitterPaint(Sender: TObject);
Var Rc:TRect;
begin
  With Splitter Do Begin
    Rc:=ClientRect;
    DrawEdge(Canvas.Handle,Rc,BDR_RAISEDINNER,BF_TOPLEFT Or BF_BOTTOMRIGHT);
  End;
end;

Alle Konstanten für DrawEdge findest Du in der Delphi Hilfe oder dem PSDK.

Viele Grüsse

OLLI

[digitalthread]

Zitat:

Zitat von OLLI_T

Hallo!

Konstruieren wir einfach mal den Fall es gäbe nirgendwo mehr was zum Downloaden. Das wäre sicher das ideale Szenario für einen Horrorfilm.

Schreib doch einfach ein bissel Code für das OnPaint Event ode bastel selber ne Compo draus!

Delphi-Quellcode:

procedure TForm1.SplitterPaint(Sender: TObject);
Var Rc:TRect;
begin
  With Splitter Do Begin
    Rc:=ClientRect;
    DrawEdge(Canvas.Handle,Rc,BDR_RAISEDINNER,BF_TOPLEFT Or BF_BOTTOMRIGHT);
  End;
end;

Alle Konstanten für DrawEdge findest Du in der Delphi Hilfe oder dem PSDK.

Viele Grüsse

OLLI

Wenn Du ne Frau wärst, würde ich Dich küssen :)
Danke! Funktioniert bestens.

*freu*

Grüße,
Tobias

[OLLI_T]

Hallo Tobias!

Ich freu mich, wenn Du Dich freust. Aber bitte nicht küssen! Wenn das meine Freundin erfährt. :twisted: