Fixed shortcut bug

This commit is contained in:
Christian Hammacher 2005-08-26 23:22:30 +00:00
parent 2a2d5697b8
commit 270d898f82
7 changed files with 19 additions and 16 deletions

View File

@ -34,7 +34,6 @@
-K$00400000 -K$00400000
-LE"c:\programme\borland\delphi7\Projects\Bpl" -LE"c:\programme\borland\delphi7\Projects\Bpl"
-LN"c:\programme\borland\delphi7\Projects\Bpl" -LN"c:\programme\borland\delphi7\Projects\Bpl"
-DmadExcept
-w-UNSAFE_TYPE -w-UNSAFE_TYPE
-w-UNSAFE_CODE -w-UNSAFE_CODE
-w-UNSAFE_CAST -w-UNSAFE_CAST

View File

@ -96,7 +96,7 @@ PackageDLLOutputDir=
PackageDCPOutputDir= PackageDCPOutputDir=
SearchPath= SearchPath=
Packages=vcl;rtl;vclx;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;VclSmp;dbrtl;dbexpress;vcldb;dsnap;dbxcds;inetdb;bdertl;vcldbx;adortl;teeui;teedb;tee;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;Rave50CLX;Rave50VCL;dclOffice2k;Indy70;DJcl;FlatStyle_D5;DelphiX_for7;mxFlatPack_D7;tbx_d7;tb2k_d7;mbTBXLibPack;TntUnicodeVcl_R70;SynEdit_R7 Packages=vcl;rtl;vclx;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;VclSmp;dbrtl;dbexpress;vcldb;dsnap;dbxcds;inetdb;bdertl;vcldbx;adortl;teeui;teedb;tee;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;Rave50CLX;Rave50VCL;dclOffice2k;Indy70;DJcl;FlatStyle_D5;DelphiX_for7;mxFlatPack_D7;tbx_d7;tb2k_d7;mbTBXLibPack;TntUnicodeVcl_R70;SynEdit_R7
Conditionals=madExcept Conditionals=
DebugSourceDirs= DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
@ -115,7 +115,7 @@ AutoIncBuild=1
MajorVer=1 MajorVer=1
MinorVer=0 MinorVer=0
Release=0 Release=0
Build=7 Build=9
Debug=0 Debug=0
PreRelease=1 PreRelease=1
Special=0 Special=0
@ -126,7 +126,7 @@ CodePage=1252
[Version Info Keys] [Version Info Keys]
CompanyName=AMX Mod X Dev Team CompanyName=AMX Mod X Dev Team
FileDescription= FileDescription=
FileVersion=1.0.0.7 FileVersion=1.0.0.9
InternalName= InternalName=
LegalCopyright= LegalCopyright=
LegalTrademarks= LegalTrademarks=
@ -134,3 +134,9 @@ OriginalFilename=
ProductName=AMXX-Studio ProductName=AMXX-Studio
ProductVersion=1.0.0.0 ProductVersion=1.0.0.0
Comments= Comments=
[HistoryLists\hlConditionals]
Count=1
Item0=madExcept
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

View File

@ -1,9 +1,6 @@
program AMXX_Studio; program AMXX_Studio;
uses uses
madExcept,
madLinkDisAsm,
madScreenShot,
Forms, Forms,
Windows, Windows,
Messages, Messages,
@ -38,12 +35,13 @@ uses
UnitPlugins in 'UnitPlugins.pas'; UnitPlugins in 'UnitPlugins.pas';
{ Used components: { Used components:
JVCL 3.0 - JVCL 3.0
FlatPack - FlatPack
FlatStyle - FlatStyle
Toolbar2000, TBX, SpTBX, mbTBX Lib - Toolbar2000, TBX, SpTBX, mbTBX Lib
Scintilla and DelphiSci - Scintilla and DelphiSci
madExcept - madExcept
}
{$R *.res} {$R *.res}

Binary file not shown.

Binary file not shown.

View File

@ -553,7 +553,7 @@ begin
if frmSettings.ShowModal = mrOk then begin if frmSettings.ShowModal = mrOk then begin
{ Shortcuts } { Shortcuts }
for i := 0 to frmSettings.lvShortcuts.Items.Count - 1 do for i := 0 to frmSettings.lvShortcuts.Items.Count - 1 do
TSciKeyCommand(frmSettings.lvShortcuts.Items[i].Data).ShortCut := ShortcutToSciKey(TextToShortCut(frmSettings.lvShortcuts.Items[i].SubItems[0])); TSciKeyCommand(frmSettings.lvShortcuts.Items[i].Data).ShortCut := (TextToShortCut(frmSettings.lvShortcuts.Items[i].SubItems[0]));
{ Tools } { Tools }
if frmSettings.chkIndentGuides.Checked then if frmSettings.chkIndentGuides.Checked then
sciEditor.Indentation := sciEditor.Indentation + [IndentationGuides] sciEditor.Indentation := sciEditor.Indentation + [IndentationGuides]

View File

@ -59,7 +59,7 @@ object frmSettings: TfrmSettings
Top = 0 Top = 0
Width = 353 Width = 353
Height = 260 Height = 260
ActivePage = jspTools ActivePage = jspShortcuts
PropagateEnable = False PropagateEnable = False
Align = alClient Align = alClient
OnChange = jplSettingsChange OnChange = jplSettingsChange
@ -105,7 +105,7 @@ object frmSettings: TfrmSettings
Height = 21 Height = 21
Style = csDropDownList Style = csDropDownList
Color = clWindow Color = clWindow
ItemHeight = 13 ItemHeight = 0
TabOrder = 0 TabOrder = 0
ItemIndex = -1 ItemIndex = -1
OnChange = cboLanguageChange OnChange = cboLanguageChange