1
0
mirror of synced 2024-11-21 10:53:50 +00:00

Fixed: version number updated to 0.5

Fixed: added Ctrl-Alt-R to shortcut overview
This commit is contained in:
Mark van Renswoude 2006-03-14 20:11:31 +00:00
parent 4a3019e6dd
commit 25f0fb41a1
5 changed files with 25 additions and 9 deletions

Binary file not shown.

Binary file not shown.

View File

@ -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

View File

@ -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();

View File

@ -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