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

ide, synedit, lcl: don't construct resourceless forms using Create constructor - use CreateNew instead

Browse Source 
git-svn-id: trunk@29261 -
This commit is contained in:
paul 2011-01-31 03:38:11 +00:00
parent 8aca325693
commit bfe85e683f
3 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/syncompletion.pas
View File

@ -493,7 +493,8 @@ begin
FHintLock := 0;
BeginFormUpdate;
KeyPreview:= True;
inherited Create(AOwner);
// we have no resource => must be constructed using CreateNew
inherited CreateNew(AOwner, 1);
FItemList := TStringList.Create;
BorderStyle := bsNone;
FormStyle := fsSystemStayOnTop;

3
ide/mainbar.pas
View File

@ -428,7 +428,8 @@ end;
constructor TMainIDEBar.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
// This form has no resource => must be constructed using CreateNew
inherited CreateNew(TheOwner, 1);
end;
procedure TMainIDEBar.HideIDE;

3
lcl/include/hintwindow.inc
View File

@ -29,7 +29,8 @@ constructor THintWindow.Create(AOwner: TComponent);
var
TheTimer: TCustomTimer;
begin
inherited Create(AOwner);
// THintWindow has no resource => must be constructed using CreateNew
inherited CreateNew(AOwner, 1);
fCompStyle := csHintWindow;
Parent := nil;
Color := clInfoBk;