paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 05:01:50 +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 private
protected protected
published published
class function CreateHandle(const AWinControl: TWinControl; class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override;
const AParams: TCreateParams): HWND; override;
class procedure DestroyHandle(const AWinControl: TWinControl); override; class procedure DestroyHandle(const AWinControl: TWinControl); override;
end; end;
@ -183,6 +182,9 @@ type
implementation implementation
uses
fpg_panel;
{ TFpGuiWSCustomTrayIcon } { TFpGuiWSCustomTrayIcon }
class function TFpGuiWSCustomTrayIcon.Hide(const ATrayIcon: TCustomTrayIcon): Boolean; class function TFpGuiWSCustomTrayIcon.Hide(const ATrayIcon: TCustomTrayIcon): Boolean;
@ -215,10 +217,20 @@ end;
{ TFpGuiWSCustomPanel } { TFpGuiWSCustomPanel }
class function TFpGuiWSCustomPanel.CreateHandle(const AWinControl: TWinControl; class function TFpGuiWSCustomPanel.CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND;
const AParams: TCreateParams): HWND; var
lPanel: TfpgPanel;
begin begin
Result := TLCLIntfHandle(TFPGUIPrivateCustomPanel.Create(AWinControl, AParams)); 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; end;
class procedure TFpGuiWSCustomPanel.DestroyHandle(const AWinControl: TWinControl); class procedure TFpGuiWSCustomPanel.DestroyHandle(const AWinControl: TWinControl);