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

made sure, that lazarus code uses TImageList.AddDirect

Browse Source 
git-svn-id: trunk@9266 -
This commit is contained in:
mattias 2006-05-13 09:13:05 +00:00
parent 6746f6ade9
commit e441b52d38
7 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/codeexplorer.pas
View File

@ -208,7 +208,7 @@ procedure TCodeExplorerView.CodeExplorerViewCREATE(Sender: TObject);
DebugLn('TCodeExplorerView.CodeExplorerViewCREATE: ',
' WARNING: icon not found: "',ResName,'"');
Pixmap.LoadFromLazarusResource(ResName);
ImgList.Add(Pixmap,nil)
ImgList.AddDirect(Pixmap,nil)
end;
begin

2
ide/compileroptionsdlg.pp
View File

@ -323,7 +323,7 @@ constructor TfrmCompilerOptions.Create(TheOwner: TComponent);
Pixmap:=TPixmap.Create;
Pixmap.TransparentColor:=clWhite;
Pixmap.LoadFromLazarusResource(ResName);
ImageList.Add(Pixmap,nil)
ImageList.AddDirect(Pixmap,nil)
end;
var Page: integer;

2
ide/projectinspector.pas
View File

@ -379,7 +379,7 @@ procedure TProjectInspectorForm.SetupComponents;
Pixmap:=TPixmap.Create;
Pixmap.TransparentColor:=clWhite;
Pixmap.LoadFromLazarusResource(ResName);
ImageList.Add(Pixmap,nil)
ImageList.AddDirect(Pixmap,nil)
end;
begin

2
ide/sourcemarks.pas
View File

@ -685,7 +685,7 @@ begin
APixmap.TransparentColor:=clBtnFace;
APixmap.LoadFromLazarusResource(ResName);
Result:=ImgList.Count;
ImgList.Add(APixmap,nil);
ImgList.AddDirect(APixmap,nil);
end;
function TSourceMarks.GetSourceEditor(AMark: TSourceMark): TObject;

2
ideintf/imagelisteditor.pp
View File

@ -479,7 +479,7 @@ begin
if not Bmp.Empty then
begin
Glyph := CreateGlyph(Bmp, ImageList.Width, ImageList.Height, gaNone);
I := ImageList.Add(Glyph, nil);
I := ImageList.AddDirect(Glyph, nil);
New(P);
P^.Bitmap := Bmp;

2
packager/packageeditor.pas
View File

@ -1245,7 +1245,7 @@ procedure TPackageEditorForm.SetupComponents;
Pixmap:=TPixmap.Create;
Pixmap.TransparentColor:=clWhite;
Pixmap.LoadFromLazarusResource(ResName);
ImageList.Add(Pixmap,nil)
ImageList.AddDirect(Pixmap,nil)
end;
procedure LoadBitBtnGlyph(ABitBtn: TBitBtn; const ResName: string);

2
packager/pkggraphexplorer.pas
View File

@ -274,7 +274,7 @@ procedure TPkgGraphExplorerDlg.SetupComponents;
Pixmap:=TPixmap.Create;
Pixmap.TransparentColor:=clWhite;
Pixmap.LoadFromLazarusResource(ResName);
Result:=ImageList.Add(Pixmap,nil)
Result:=ImageList.AddDirect(Pixmap,nil)
end;
begin