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

IDE: High-DPI: ActionsEditor: Fixed image sizes.

Browse Source 
git-svn-id: trunk@55510 -
This commit is contained in:
michl 2017-07-15 18:04:54 +00:00
parent 176f413aa0
commit 2bb905f65d
2 changed files with 30 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
components/ideintf/actionseditor.lfm
View File

@ -243,40 +243,5 @@ object ActionListEditor: TActionListEditor
AllocBy = 8
left = 56
top = 116
Bitmap = {
4C69010000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007F7F7FFF7F7F
7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F
7FFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007F7F
7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFFFFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF007F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFFFFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF007F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFFFFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF007F7F7FFF7F7F7FFFFFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00
}
end
end

38
components/ideintf/actionseditor.pas
View File

@ -27,9 +27,10 @@ uses
Classes, SysUtils, contnrs,
// LCL
LCLIntf, LCLType, LCLProc, Forms, Controls, Dialogs, ExtCtrls, StdCtrls,
Graphics, Menus, ComCtrls, DBActns, StdActns, ActnList,
Graphics, Menus, ComCtrls, DBActns, StdActns, ActnList, Themes,
// IDEIntf
ObjInspStrConsts, ComponentEditors, PropEdits, PropEditUtils, IDEWindowIntf;
ObjInspStrConsts, ComponentEditors, PropEdits, PropEditUtils, IDEWindowIntf,
IDEImagesIntf;
type
TActStdPropItem = class;
@ -410,14 +411,35 @@ begin
end;
procedure TActionListEditor.FormCreate(Sender: TObject);
var
ImageSize: Integer;
Bitmap: TBitmap;
Details: TThemedElementDetails;
begin
//imageindex 0 exists
ImageList1.AddResourceName(HInstance, 'laz_add'); //imageindex 1
ImageList1.AddResourceName(HInstance, 'laz_delete'); //imageindex 2
ImageList1.AddResourceName(HInstance, 'arrow_up'); //imadeindex 3
ImageList1.AddResourceName(HInstance, 'arrow_down'); //imageindex 4
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;
btnAddMore.ImageIndex := 0;
// These must be set in code because OI does not work with non-existent values.
btnAdd.ImageIndex := 1;
btnDelete.ImageIndex := 2;
btnUp.ImageIndex := 3;