Fixed: version number updated to 0.5
Fixed: added Ctrl-Alt-R to shortcut overview
This commit is contained in:
parent
4a3019e6dd
commit
25f0fb41a1
Binary file not shown.
Binary file not shown.
@ -268,7 +268,7 @@ object frmUnSwConfiguration: TfrmUnSwConfiguration
|
||||
Top = 23
|
||||
Width = 54
|
||||
Height = 13
|
||||
Caption = 'Version 0.4'
|
||||
Caption = 'Version 0.5'
|
||||
end
|
||||
object TLabel
|
||||
Left = 135
|
||||
|
@ -33,18 +33,18 @@ type
|
||||
lblDataModuleColor: TLabel;
|
||||
lblFormColor: TLabel;
|
||||
lblProjectColor: TLabel;
|
||||
lblShortcutKeys: TLabel;
|
||||
lblUnitColor: TLabel;
|
||||
lblVersion: TLabel;
|
||||
pcConfiguration: TPageControl;
|
||||
pnlCustomColor: TPanel;
|
||||
tsAbout: TTabSheet;
|
||||
tsGeneral: TTabSheet;
|
||||
lblShortcutKeys: TLabel;
|
||||
procedure lblShortcutKeysClick(Sender: TObject);
|
||||
|
||||
procedure btnDefaultClick(Sender: TObject);
|
||||
procedure chkCustomColorClick(Sender: TObject);
|
||||
procedure lblBugReportClick(Sender: TObject);
|
||||
procedure lblShortcutKeysClick(Sender: TObject);
|
||||
procedure PickColor(Sender: TObject);
|
||||
private
|
||||
FLabels: array[0..3] of TLabel;
|
||||
@ -72,6 +72,8 @@ class function TfrmUnSwConfiguration.Execute(): Boolean;
|
||||
begin
|
||||
with Self.Create(nil) do
|
||||
try
|
||||
pcConfiguration.ActivePage := tsGeneral;
|
||||
|
||||
Result := InternalExecute();
|
||||
finally
|
||||
Free();
|
||||
|
@ -4,7 +4,7 @@ object frmUnSwShortcuts: TfrmUnSwShortcuts
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'UnitSwitcher Shortcut keys'
|
||||
ClientHeight = 470
|
||||
ClientHeight = 484
|
||||
ClientWidth = 354
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -221,14 +221,14 @@ object frmUnSwShortcuts: TfrmUnSwShortcuts
|
||||
end
|
||||
object TLabel
|
||||
Left = 28
|
||||
Top = 384
|
||||
Top = 400
|
||||
Width = 68
|
||||
Height = 13
|
||||
Caption = 'Ctrl-Alt-Enter:'
|
||||
end
|
||||
object TLabel
|
||||
Left = 168
|
||||
Top = 384
|
||||
Top = 400
|
||||
Width = 95
|
||||
Height = 13
|
||||
Caption = 'Open file properties'
|
||||
@ -276,21 +276,35 @@ object frmUnSwShortcuts: TfrmUnSwShortcuts
|
||||
end
|
||||
object TLabel
|
||||
Left = 28
|
||||
Top = 400
|
||||
Top = 416
|
||||
Width = 77
|
||||
Height = 13
|
||||
Caption = 'Ctrl-Shift-Enter:'
|
||||
end
|
||||
object TLabel
|
||||
Left = 168
|
||||
Top = 400
|
||||
Top = 416
|
||||
Width = 156
|
||||
Height = 13
|
||||
Caption = 'Open file properties for the .dfm'
|
||||
end
|
||||
object TLabel
|
||||
Left = 28
|
||||
Top = 384
|
||||
Width = 49
|
||||
Height = 13
|
||||
Caption = 'Ctrl-Alt-R:'
|
||||
end
|
||||
object TLabel
|
||||
Left = 168
|
||||
Top = 384
|
||||
Width = 121
|
||||
Height = 13
|
||||
Caption = 'Toggle the read-only flag'
|
||||
end
|
||||
object btnOk: TButton
|
||||
Left = 139
|
||||
Top = 437
|
||||
Top = 449
|
||||
Width = 75
|
||||
Height = 25
|
||||
Cancel = True
|
||||
|
Loading…
Reference in New Issue
Block a user