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

ide: add check if TFrame doesnot exits on palette (lcl and ide has been compiled with different frame defines)

Browse Source 
git-svn-id: trunk@16086 -
This commit is contained in:
paul 2008-08-16 13:10:28 +00:00
parent 5199022d0c
commit 669af5fc10
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/customformeditor.pp
View File

@ -894,7 +894,8 @@ var
FrameComp: TRegisteredComponent;
begin
FrameComp:=IDEComponentPalette.FindComponent('TFrame');
FrameComp.OnGetCreationClass:=@FrameCompGetCreationClass;
if FrameComp <> nil then
FrameComp.OnGetCreationClass:=@FrameCompGetCreationClass;
end;
procedure TCustomFormEditor.SetSelection(

2
lcl/lcltype.pp
View File

@ -711,7 +711,7 @@ const
SBS_SIZEBOX = 8;
SBS_SIZEGRIP = $10;
SIF_Range = 1;
SIF_RANGE = 1;
SIF_PAGE = 2;
SIF_POS = 4;
SIF_DISABLENOSCROLL = 8;