paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 12:49:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, Carbon: Painting non-visual controls for TDataModule and TFrame descendants. From Maciej.

Browse Source 
git-svn-id: trunk@50423 -
This commit is contained in:
juha 2015-11-19 13:55:44 +00:00
parent a3553d9e5a
commit 1d411f67bf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/carbon/carbonwsforms.pp
View File

@ -160,7 +160,7 @@ class function TCarbonWSCustomForm.CreateHandle(const AWinControl: TWinControl;
var var
frm : TCustomForm; frm : TCustomForm;
begin begin
if csDesigning in AWinControl.ComponentState then if IsFormDesign(AWinControl) then
Result := TLCLIntfHandle(TCarbonDesignWindow.Create(AWinControl, AParams)) Result := TLCLIntfHandle(TCarbonDesignWindow.Create(AWinControl, AParams))
else else
Result := TLCLIntfHandle(TCarbonWindow.Create(AWinControl, AParams)); Result := TLCLIntfHandle(TCarbonWindow.Create(AWinControl, AParams));