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

LCL: fpgui: implements TPanel OuterBevel

Browse Source 
git-svn-id: trunk@48615 -
This commit is contained in:
mattias 2015-04-03 21:40:54 +00:00
parent f5eb0d6d7b
commit 1beebb68d0
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/interfaces/fpgui/fpguiwsextctrls.pp
View File

@ -157,8 +157,7 @@ type
private
protected
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override;
class procedure DestroyHandle(const AWinControl: TWinControl); override;
end;
@ -183,6 +182,9 @@ type
implementation
uses
fpg_panel;
{ TFpGuiWSCustomTrayIcon }
class function TFpGuiWSCustomTrayIcon.Hide(const ATrayIcon: TCustomTrayIcon): Boolean;
@ -215,10 +217,20 @@ end;
{ TFpGuiWSCustomPanel }
class function TFpGuiWSCustomPanel.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND;
class function TFpGuiWSCustomPanel.CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND;
var
lPanel: TfpgPanel;
begin
Result := TLCLIntfHandle(TFPGUIPrivateCustomPanel.Create(AWinControl, AParams));
lPanel := TFPGUIPrivateCustomPanel(Result).Panel;
case TCustomPanel(AWinControl).BevelOuter of
bvLowered: lPanel.Style := bsLowered;
bvRaised: lPanel.Style := bsRaised;
bvNone,
bvSpace: lPanel.Style := bsFlat;
end
end;
class procedure TFpGuiWSCustomPanel.DestroyHandle(const AWinControl: TWinControl);