paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 19:36:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

- forget wince (untested)

Browse Source 
git-svn-id: trunk@11215 -
This commit is contained in:
paul 2007-05-29 09:21:52 +00:00
parent 8eefc8e23f
commit 014f349a63
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/interfaces/wince/wincewsextctrls.pp
View File

@ -573,13 +573,15 @@ end;
{ TWinCEWSCustomSplitter }
class procedure TWinCEWSCustomSplitter.DrawSplitter(const ASplitter: TCustomSplitter
);
class procedure TWinCEWSCustomSplitter.DrawSplitter(const ASplitter: TCustomSplitter);
var
ARect: TRect;
begin
// TODO: beveled
LCLIntf.DrawSplitter(ASplitter.Canvas.Handle,
Rect(0,0,ASplitter.Width,ASplitter.Height),
ASplitter.ResizeAnchor in [akTop,akBottom]);
if ASplitter.Beveled then
begin
ARect := Rect(0, 0, ASplitter.Width, ASplitter.Height);
Frame3D(ASplitter.Canvas.Handle, ARect, 1, bvRaised);
end;
end;
initialization