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: Enable d'n'd in component palette options ListView on Windows, required RowSelect=True. Fix item height.

Browse Source 
git-svn-id: trunk@46847 -
This commit is contained in:
juha 2014-11-14 10:56:18 +00:00
parent 0be1684966
commit 6ddc19d342
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/frames/componentpalette_options.lfm
View File

@ -154,6 +154,7 @@ object CompPaletteOptionsFrame: TCompPaletteOptionsFrame
54657374436F6D700800000054657374506167650B000000546573745061636B
616765FFFFFFFFFFFFFFFFFFFFFFFF
}
RowSelect = True
ScrollBars = ssAutoBoth
TabOrder = 0
ViewStyle = vsReport

8
ide/frames/componentpalette_options.pas
View File

@ -25,9 +25,10 @@ unit componentpalette_options;
interface
uses
Classes, SysUtils, FileUtil, Graphics, Forms, StdCtrls, Dialogs,
Buttons, ComCtrls, ExtCtrls, EnvironmentOpts, LazarusIDEStrConsts, IDEProcs,
IDEOptionsIntf, ComponentReg, Controls, LCLProc, LCLType, PackageDefs;
Classes, SysUtils,
Graphics, Forms, Controls, StdCtrls, Dialogs, Buttons, ComCtrls, ExtCtrls,
FileUtil, LCLProc, LCLType, IDEProcs, EnvironmentOpts, LazarusIDEStrConsts,
IDEOptionsIntf, IDEImagesIntf, ComponentReg, PackageDefs;
type
{ TCompPaletteOptionsFrame }
@ -124,6 +125,7 @@ begin
ComponentsListView.Column[1].Caption := lisName;
ComponentsListView.Column[2].Caption := lisPage;
ComponentsListView.Column[3].Caption := lisPackage;
ComponentsListView.SmallImages := IDEImages.Images_24;
// Arrow buttons for pages
PageMoveUpBtn.LoadGlyphFromResourceName(HInstance, 'arrow_up');
PageMoveDownBtn.LoadGlyphFromResourceName(HInstance, 'arrow_down');