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