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

IDE: High-DPI: Better assigning of images to imagelists.

Browse Source 
git-svn-id: trunk@55512 -
This commit is contained in:
michl 2017-07-15 19:17:54 +00:00
parent a6cb66d5aa
commit 470d10fcd0
3 changed files with 13 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/ideintf/actionseditor.pas
View File

@ -413,32 +413,16 @@ end;
procedure TActionListEditor.FormCreate(Sender: TObject);
var
ImageSize: Integer;
Bitmap: TBitmap;
Details: TThemedElementDetails;
begin
ImageSize := TIDEImages.ScaledSize;
ImageList1.Width := ImageSize;
ImageList1.Height := ImageSize;
Bitmap := TBitmap.Create;
try
Bitmap.SetSize(ImageSize, ImageSize);
Bitmap.Canvas.Brush.Color := clBtnFace;
Bitmap.Canvas.FillRect(0, 0, ImageSize, ImageSize);
Details := ThemeServices.GetElementDetails(ttbSplitButtonDropDownNormal);
ThemeServices.DrawElement(Bitmap.Canvas.Handle, Details, Rect(0, 0, ImageSize, ImageSize));
// TIDEImages.AssignImage(Bitmap, 'btn_downarrow'); //imageindex 0
ImageList1.Add(Bitmap, nil);
TIDEImages.AssignImage(Bitmap, 'laz_add'); //imageindex 1
ImageList1.Add(Bitmap, nil);
TIDEImages.AssignImage(Bitmap, 'laz_delete'); //imageindex 2
ImageList1.Add(Bitmap, nil);
TIDEImages.AssignImage(Bitmap, 'arrow_up'); //imadeindex 3
ImageList1.Add(Bitmap, nil);
TIDEImages.AssignImage(Bitmap, 'arrow_down'); //imageindex 4
ImageList1.Add(Bitmap, nil);
finally
Bitmap.Free;
end;
TIDEImages.AddImageToImageList(ImageList1, 'btn_downarrow'); //imageindex 0
TIDEImages.AddImageToImageList(ImageList1, 'laz_add'); //imageindex 1
TIDEImages.AddImageToImageList(ImageList1, 'laz_delete'); //imageindex 2
TIDEImages.AddImageToImageList(ImageList1, 'arrow_up'); //imadeindex 3
TIDEImages.AddImageToImageList(ImageList1, 'arrow_down'); //imageindex 4
btnAddMore.ImageIndex := 0;
btnAdd.ImageIndex := 1;
btnDelete.ImageIndex := 2;

25
components/ideintf/componenttreeview.pas
View File

@ -582,8 +582,6 @@ begin
end;
constructor TComponentTreeView.Create(TheOwner: TComponent);
var
Bitmap: TBitmap;
begin
inherited Create(TheOwner);
DragMode := dmAutomatic;
@ -592,23 +590,12 @@ begin
FImageList := TImageList.Create(nil);
FImageList.Width := TIDEImages.ScaledSize;
FImageList.Height := TIDEImages.ScaledSize;
Bitmap := TBitmap.Create;
try
TIDEImages.AssignImage(Bitmap, 'oi_form');
ImgIndexForm:=FImageList.Add(Bitmap, nil);
TIDEImages.AssignImage(Bitmap, 'oi_comp');
ImgIndexComponent:=FImageList.Add(Bitmap, nil);
TIDEImages.AssignImage(Bitmap, 'oi_control');
ImgIndexControl:=FImageList.Add(Bitmap, nil);
TIDEImages.AssignImage(Bitmap, 'oi_box');
ImgIndexBox:=FImageList.Add(Bitmap, nil);
TIDEImages.AssignImage(Bitmap, 'oi_collection');
ImgIndexCollection:=FImageList.Add(Bitmap, nil);
TIDEImages.AssignImage(Bitmap, 'oi_item');
ImgIndexItem:=FImageList.Add(Bitmap, nil);
finally
Bitmap.Free;
end;
ImgIndexForm := TIDEImages.AddImageToImageList(FImageList, 'oi_form');
ImgIndexComponent := TIDEImages.AddImageToImageList(FImageList, 'oi_comp');
ImgIndexControl := TIDEImages.AddImageToImageList(FImageList, 'oi_control');
ImgIndexBox := TIDEImages.AddImageToImageList(FImageList, 'oi_box');
ImgIndexCollection := TIDEImages.AddImageToImageList(FImageList, 'oi_collection');
ImgIndexItem := TIDEImages.AddImageToImageList(FImageList, 'oi_item');
Images := FImageList;
end;

13
ide/comppagespopup.pas
View File

@ -108,22 +108,13 @@ begin
end;
procedure TDlgCompPagesPopup.FormCreate(Sender: TObject);
var
Bitmap: TBitmap;
begin
TIDEImages.AssignImage(cBtnClose.Glyph, 'menu_close');
ImageList1.Width := TIDEImages.ScaledSize;
ImageList1.Height := TIDEImages.ScaledSize;
Bitmap := TBitmap.Create;
try
TIDEImages.AssignImage(Bitmap, 'item_package');
ImageList1.Add(Bitmap, nil);
TIDEImages.AssignImage(Bitmap, 'pkg_open');
ImageList1.Add(Bitmap, nil);
finally
Bitmap.Free;
end;
TIDEImages.AddImageToImageList(ImageList1, 'item_package');
TIDEImages.AddImageToImageList(ImageList1, 'pkg_open');
end;
procedure TDlgCompPagesPopup.DoClose(var CloseAction: TCloseAction);