paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 20:38:20 +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; FrameComp: TRegisteredComponent;
begin begin
FrameComp:=IDEComponentPalette.FindComponent('TFrame'); FrameComp:=IDEComponentPalette.FindComponent('TFrame');
FrameComp.OnGetCreationClass:=@FrameCompGetCreationClass; if FrameComp <> nil then
FrameComp.OnGetCreationClass:=@FrameCompGetCreationClass;
end; end;
procedure TCustomFormEditor.SetSelection( procedure TCustomFormEditor.SetSelection(

2
lcl/lcltype.pp
View File

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