GitHub-Mirror/unitswitcher
1
0
Fork 0
mirror of synced 2024-11-24 04:13:51 +00:00
Code Issues Projects Releases Wiki Activity

Fixed: version number updated to 0.5

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Lib/D2006/UnitSwitcherD2006.bpl
View File

Binary file not shown.

BIN
Lib/D7/UnitSwitcherD7.bpl
View File

Binary file not shown.

2
Source/UnSwConfiguration.dfm
View File

@ -268,7 +268,7 @@ object frmUnSwConfiguration: TfrmUnSwConfiguration
Top = 23 Top = 23
Width = 54 Width = 54
Height = 13 Height = 13
Caption = 'Version 0.4' Caption = 'Version 0.5'
end end
object TLabel object TLabel
Left = 135 Left = 135

6
Source/UnSwConfiguration.pas
View File

@ -33,18 +33,18 @@ type
lblDataModuleColor: TLabel; lblDataModuleColor: TLabel;
lblFormColor: TLabel; lblFormColor: TLabel;
lblProjectColor: TLabel; lblProjectColor: TLabel;
lblShortcutKeys: TLabel;
lblUnitColor: TLabel; lblUnitColor: TLabel;
lblVersion: TLabel; lblVersion: TLabel;
pcConfiguration: TPageControl; pcConfiguration: TPageControl;
pnlCustomColor: TPanel; pnlCustomColor: TPanel;
tsAbout: TTabSheet; tsAbout: TTabSheet;
tsGeneral: TTabSheet; tsGeneral: TTabSheet;
lblShortcutKeys: TLabel;
procedure lblShortcutKeysClick(Sender: TObject);
procedure btnDefaultClick(Sender: TObject); procedure btnDefaultClick(Sender: TObject);
procedure chkCustomColorClick(Sender: TObject); procedure chkCustomColorClick(Sender: TObject);
procedure lblBugReportClick(Sender: TObject); procedure lblBugReportClick(Sender: TObject);
procedure lblShortcutKeysClick(Sender: TObject);
procedure PickColor(Sender: TObject); procedure PickColor(Sender: TObject);
private private
FLabels: array[0..3] of TLabel; FLabels: array[0..3] of TLabel;
@ -72,6 +72,8 @@ class function TfrmUnSwConfiguration.Execute(): Boolean;
begin begin
with Self.Create(nil) do with Self.Create(nil) do
try try
pcConfiguration.ActivePage := tsGeneral;
Result := InternalExecute(); Result := InternalExecute();
finally finally
Free(); Free();

26
Source/UnSwShortcuts.dfm
View File

@ -4,7 +4,7 @@ object frmUnSwShortcuts: TfrmUnSwShortcuts
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'UnitSwitcher Shortcut keys' Caption = 'UnitSwitcher Shortcut keys'
ClientHeight = 470 ClientHeight = 484
ClientWidth = 354 ClientWidth = 354
Color = clBtnFace Color = clBtnFace
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -221,14 +221,14 @@ object frmUnSwShortcuts: TfrmUnSwShortcuts
end end
object TLabel object TLabel
Left = 28 Left = 28
Top = 384 Top = 400
Width = 68 Width = 68
Height = 13 Height = 13
Caption = 'Ctrl-Alt-Enter:' Caption = 'Ctrl-Alt-Enter:'
end end
object TLabel object TLabel
Left = 168 Left = 168
Top = 384 Top = 400
Width = 95 Width = 95
Height = 13 Height = 13
Caption = 'Open file properties' Caption = 'Open file properties'
@ -276,21 +276,35 @@ object frmUnSwShortcuts: TfrmUnSwShortcuts
end end
object TLabel object TLabel
Left = 28 Left = 28
Top = 400 Top = 416
Width = 77 Width = 77
Height = 13 Height = 13
Caption = 'Ctrl-Shift-Enter:' Caption = 'Ctrl-Shift-Enter:'
end end
object TLabel object TLabel
Left = 168 Left = 168
Top = 400 Top = 416
Width = 156 Width = 156
Height = 13 Height = 13
Caption = 'Open file properties for the .dfm' Caption = 'Open file properties for the .dfm'
end 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 object btnOk: TButton
Left = 139 Left = 139
Top = 437 Top = 449
Width = 75 Width = 75
Height = 25 Height = 25
Cancel = True Cancel = True