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

ppulistdlg: Improvement appearance, close the dialog with [Esc]

Browse Source
This commit is contained in:
n7800 2024-07-18 09:24:51 +05:00 committed by Maxim Ganetsky
parent 82d3fdbe13
commit 6078ca4e45
2 changed files with 80 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

104
components/codetools/ide/ppulistdlg.lfm
View File

@ -6,10 +6,12 @@ object PPUListDialog: TPPUListDialog
Caption = 'PPUListDialog'
ClientHeight = 531
ClientWidth = 740
KeyPreview = True
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poScreenCenter
OnKeyDown = FormKeyDown
Position = poWorkAreaCenter
LCLVersion = '3.99.0.0'
object ButtonPanel1: TButtonPanel
Left = 6
@ -56,54 +58,59 @@ object PPUListDialog: TPPUListDialog
Height = 209
Top = 6
Width = 724
Align = alTop
Align = alClient
AutoFillColumns = True
BorderSpacing.Around = 6
ColCount = 6
Columns = <
item
SizePriority = 10
SizePriority = 1
Title.Caption = 'Unit'
Width = 120
end
item
SizePriority = 10
SizePriority = 0
Title.Caption = 'Size of .ppu file'
Width = 120
Width = 130
end
item
SizePriority = 10
SizePriority = 0
Title.Caption = 'Size of .o file'
Width = 120
Width = 130
end
item
SizePriority = 5
SizePriority = 0
Title.Caption = 'Uses'
Width = 120
Width = 100
end
item
SizePriority = 5
SizePriority = 0
Title.Caption = 'Used by'
Width = 120
Width = 100
end
item
Title.Caption = 'Package'
Width = 120
Width = 119
end>
DefaultColWidth = 150
FixedCols = 0
FixedRows = 2
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goThumbTracking, goColSpanning, goDblClickAutoSize, goSmoothScroll]
FocusRectVisible = False
MouseWheelOption = mwGrid
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goThumbTracking, goDblClickAutoSize, goSmoothScroll, goTruncCellHints, goCellEllipsis, goRowHighlight]
ParentShowHint = False
RowCount = 2
ShowHint = True
TabOrder = 0
OnMouseDown = UnitsStringGridMouseDown
OnSelectCell = UnitsStringGridSelectCell
ColWidths = (
120
120
120
120
120
120
119
119
119
119
)
end
object Splitter1: TSplitter
@ -112,15 +119,15 @@ object PPUListDialog: TPPUListDialog
Height = 5
Top = 221
Width = 736
Align = alTop
ResizeAnchor = akTop
Align = alBottom
ResizeAnchor = akBottom
end
object UnitGroupBox: TGroupBox
Left = 6
Height = 179
Top = 232
Width = 724
Align = alClient
Align = alBottom
BorderSpacing.Around = 6
Caption = 'UnitGroupBox'
ClientHeight = 149
@ -170,18 +177,24 @@ object PPUListDialog: TPPUListDialog
Width = 716
Align = alClient
AutoFillColumns = True
BorderSpacing.Around = 6
ColCount = 1
Columns = <
item
Title.Caption = 'Unit'
Width = 712
Width = 704
end>
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goThumbTracking, goSmoothScroll]
FocusRectVisible = False
MouseWheelOption = mwGrid
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goThumbTracking, goSmoothScroll, goTruncCellHints, goCellEllipsis, goRowHighlight]
ParentShowHint = False
RowCount = 1
ShowHint = True
TabOrder = 0
OnMouseDown = UnitStringGridMouseDown
ColWidths = (
712
704
)
end
end
@ -196,18 +209,24 @@ object PPUListDialog: TPPUListDialog
Width = 716
Align = alClient
AutoFillColumns = True
BorderSpacing.Around = 6
ColCount = 1
Columns = <
item
Title.Caption = 'Unit'
Width = 712
Width = 704
end>
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goThumbTracking, goSmoothScroll]
FocusRectVisible = False
MouseWheelOption = mwGrid
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goThumbTracking, goSmoothScroll, goTruncCellHints, goCellEllipsis, goRowHighlight]
ParentShowHint = False
RowCount = 1
ShowHint = True
TabOrder = 0
OnMouseDown = UnitStringGridMouseDown
ColWidths = (
712
704
)
end
end
@ -222,18 +241,24 @@ object PPUListDialog: TPPUListDialog
Width = 716
Align = alClient
AutoFillColumns = True
BorderSpacing.Around = 6
ColCount = 1
Columns = <
item
Title.Caption = 'Unit'
Width = 712
Width = 704
end>
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goSmoothScroll]
FocusRectVisible = False
MouseWheelOption = mwGrid
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goThumbTracking, goSmoothScroll, goTruncCellHints, goCellEllipsis, goRowHighlight]
ParentShowHint = False
RowCount = 1
ShowHint = True
TabOrder = 0
OnMouseDown = UnitStringGridMouseDown
ColWidths = (
712
704
)
end
end
@ -248,27 +273,34 @@ object PPUListDialog: TPPUListDialog
Width = 716
Align = alClient
AutoFillColumns = True
BorderSpacing.Around = 6
ColCount = 3
Columns = <
item
Title.Caption = 'Type'
Width = 231
Width = 235
end
item
Title.Caption = 'File'
Width = 230
Width = 235
end
item
SizePriority = 0
Title.Caption = 'Flags'
Width = 230
Width = 160
end>
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goThumbTracking, goColSpanning, goSmoothScroll]
FocusRectVisible = False
MouseWheelOption = mwGrid
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goThumbTracking, goSmoothScroll, goTruncCellHints, goCellEllipsis, goRowHighlight]
ParentShowHint = False
RowCount = 1
ShowHint = True
TabOrder = 0
ColWidths = (
231
230
230
235
235
234
)
end
end

13
components/codetools/ide/ppulistdlg.pas
View File

@ -33,7 +33,7 @@ uses
Classes, SysUtils, contnrs, math, AVL_Tree,
// LCL
FileUtil, Forms, Controls, Dialogs, ButtonPanel, Grids, StdCtrls,
ExtCtrls, ComCtrls,
ExtCtrls, ComCtrls, LCLType,
// LazUtils
AvgLvlTree, LazUTF8,
// BuildIntf
@ -121,6 +121,7 @@ type
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure LinkedFilesTreeViewDblClick(Sender: TObject);
procedure UnitsStringGridMouseDown(Sender: TObject; {%H-}Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
@ -319,6 +320,16 @@ begin
FreeAndNil(FDlgLinkedFiles);
end;
procedure TPPUListDialog.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_ESCAPE) and (Shift = []) then
begin
Close;
Key := 0;
end;
end;
procedure TPPUListDialog.LinkedFilesTreeViewDblClick(Sender: TObject);
var
Node: TTreeNode;