Einzelnen Beitrag anzeigen

OLLI_T

Registriert seit: 13. Okt 2003
Ort: Nähe Wetzlar / Hessen
143 Beiträge
 
Delphi 5 Enterprise
 
#4

Re: Suche "anderen" TSplitter :)

  Alt 21. Nov 2003, 12:44
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
No Pain No Gain!
  Mit Zitat antworten Zitat