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

IDE: High-DPI: TabOrderDialog

Browse Source 
git-svn-id: trunk@55033 -
This commit is contained in:
michl 2017-05-21 19:46:44 +00:00
parent 9a8cf0cdd1
commit 8b82e27869
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
designer/taborderdlg.pas
View File

@ -36,7 +36,7 @@ uses
// LCL // LCL
Forms, Controls, Dialogs, Buttons, ExtCtrls, StdCtrls, ComCtrls, LCLType, LCLProc, Forms, Controls, Dialogs, Buttons, ExtCtrls, StdCtrls, ComCtrls, LCLType, LCLProc,
// IdeIntf // IdeIntf
PropEdits, IDEDialogs, PropEdits, IDEDialogs, IDEImagesIntf,
//IDE //IDE
IDEOptionDefs, LazarusIDEStrConsts; IDEOptionDefs, LazarusIDEStrConsts;
@ -139,9 +139,9 @@ begin
GlobalDesignHook.AddHandlerDeletePersistent(@OnDeletePersistent); GlobalDesignHook.AddHandlerDeletePersistent(@OnDeletePersistent);
GlobalDesignHook.AddHandlerSetSelection(@OnSetSelection); GlobalDesignHook.AddHandlerSetSelection(@OnSetSelection);
ArrowDown.LoadGlyphFromResourceName(HInstance, 'arrow_down'); TIDEImages.AssignImage(ArrowDown.Glyph, 'arrow_down');
ArrowUp.LoadGlyphFromResourceName(HInstance, 'arrow_up'); TIDEImages.AssignImage(ArrowUp.Glyph, 'arrow_up');
SortByPositionButton.LoadGlyphFromResourceName(HInstance, 'menu_edit_sort'); TIDEImages.AssignImage(SortByPositionButton.Glyph, 'menu_edit_sort');
ArrowDown.Hint:=lisTabOrderDownHint; ArrowDown.Hint:=lisTabOrderDownHint;
ArrowUp.Hint:=lisTabOrderUpHint; ArrowUp.Hint:=lisTabOrderUpHint;