paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 21:00:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32 interface: implemented beveled splitter from Jernej (bug #7805)

Browse Source 
git-svn-id: trunk@10195 -
This commit is contained in:
vincents 2006-11-13 11:46:18 +00:00
parent 4baeb4b575
commit b2dd5fc016
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/win32/win32wsextctrls.pp
View File

@ -595,10 +595,12 @@ end;
class procedure TWin32WSCustomSplitter.DrawSplitter(const ASplitter: TCustomSplitter
);
begin
// TODO: beveled
if ASplitter.Beveled then begin
LCLIntf.DrawSplitter(ASplitter.Canvas.Handle,
Rect(0,0,ASplitter.Width,ASplitter.Height),
ASplitter.ResizeAnchor in [akTop,akBottom]);
end;
end;
initialization