Fixed switch bug, now even (much) faster

Updated aboutbox
This commit is contained in:
Christian Hammacher 2005-09-03 23:47:40 +00:00
parent fdbe0e2064
commit ea1d72401c
10 changed files with 29 additions and 52 deletions

View File

@ -115,7 +115,7 @@ AutoIncBuild=1
MajorVer=1 MajorVer=1
MinorVer=1 MinorVer=1
Release=0 Release=0
Build=1 Build=4
Debug=0 Debug=0
PreRelease=0 PreRelease=0
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.1.0.1 FileVersion=1.1.0.4
InternalName= InternalName=
LegalCopyright= LegalCopyright=
LegalTrademarks= LegalTrademarks=

View File

@ -55,7 +55,7 @@ begin
for i := 1 to ParamCount do for i := 1 to ParamCount do
SendStudioMsg(SCM_LOADFILE, ParamStr(i), 0); SendStudioMsg(SCM_LOADFILE, ParamStr(i), 0);
end; end;
exit; //exit;
end; end;
Application.Initialize; Application.Initialize;
Application.Title := 'AMXX-Studio'; Application.Title := 'AMXX-Studio';

Binary file not shown.

Binary file not shown.

View File

@ -530,14 +530,14 @@ begin
tsDocuments.Items.Add(TabItem); tsDocuments.Items.Add(TabItem);
end; end;
Plugin_ProjectsChange(OldIndex, Index, False);
if JumpToLastDoc then begin if JumpToLastDoc then begin
Started := False; Started := False;
tsDocuments.Items[Collection.ActiveDocument.Index].Checked := True; tsDocuments.Items[Collection.ActiveDocument.Index].Checked := True;
Collection.Activate(Collection.ActiveDocument.Index, True); Collection.Activate(Collection.ActiveDocument.Index, True);
Started := True; Started := True;
end; end;
Plugin_ProjectsChange(OldIndex, Index, False);
end; end;
end; end;
@ -910,25 +910,7 @@ begin
Started := True; Started := True;
end; end;
if Document.Code.Count > 75 then begin frmMain.sciEditor.SetText(Document.Code.GetText);
ShowProgress;
frmMain.pbLoading.Max := Document.Code.Count;
for i := 0 to Document.Code.Count -1 do begin
if Cancel then begin
Cancel := False;
exit;
end;
frmMain.sciEditor.Lines.Add(Document.Code.Strings[i]);
frmMain.pbLoading.Position := i;
SetProgressStatus('Adding Code To Editor...');
Application.ProcessMessages;
end;
HideProgress;
frmMain.sciEditor.EmptyUndoBuffer;
end
else
frmMain.sciEditor.Lines.Text := Document.Code.Text;
SetRTFText(frmMain.rtfNotes, Document.NotesText); SetRTFText(frmMain.rtfNotes, Document.NotesText);
frmMain.sciEditor.ReadOnly := Document.ReadOnly; frmMain.sciEditor.ReadOnly := Document.ReadOnly;

Binary file not shown.

View File

@ -14,16 +14,16 @@ type
lblInfo1: TLabel; lblInfo1: TLabel;
imgAMXXLarge: TImage; imgAMXXLarge: TImage;
cmdClose: TSpTBXButton; cmdClose: TSpTBXButton;
pnlGallery: TPanel; lblCHelp: TLabel;
Label1: TLabel; lblScintilla1: TLabel;
imgGabeN: TImage; lblScintilla2: TLabel;
imgBurger: TImage; pnlImages: TPanel;
Label2: TLabel; imgDoom4: TImage;
Label3: TLabel; imgHampster: TImage;
imgYams: TImage; imgYams: TImage;
procedure imgGabeNDblClick(Sender: TObject); procedure imgHampsterClick(Sender: TObject);
procedure imgBurgerDblClick(Sender: TObject); procedure imgDoom4Click(Sender: TObject);
procedure imgYamsDblClick(Sender: TObject); procedure imgYamsClick(Sender: TObject);
end; end;
var var
@ -33,24 +33,25 @@ implementation
{$R *.DFM} {$R *.DFM}
procedure TfrmInfo.imgGabeNDblClick(Sender: TObject); procedure TfrmInfo.imgHampsterClick(Sender: TObject);
begin begin
ShellExecute(Handle, 'open', PChar('http://sniperbeamer.de/gallery/gaben.php'), nil, nil, SW_SHOW); MessageBox(Handle, 'Hampster!', 'Your computer! wtf', MB_ICONERROR);
MessageBox(Handle, 'ZOMG YES it''s a hampster!', 'zomg', MB_ICONINFORMATION);
MessageBox(Handle, 'hampster hampster hampster hampster hampster hampster hampster hampster hampster hampster hampster hampster hampster hampster hampster hampster!', 'ham ham hampster', MB_ICONWARNING);
end; end;
procedure TfrmInfo.imgBurgerDblClick(Sender: TObject); procedure TfrmInfo.imgDoom4Click(Sender: TObject);
begin begin
MessageBeep(MB_ICONQUESTION); MessageBox(Handle, 'gaben', 'doom', MB_ICONWARNING);
if MessageBox(Handle, 'Do you want a BIG TASTY BURGER?', 'all-in-one-messagebox', MB_ICONQUESTION + MB_YESNO) = mrYes then begin MessageBox(Handle, 'gaben gaben gaben gaben gaben gaben!', 'doom', MB_ICONERROR);
ShellExecute(Handle, 'open', 'http://www.amxmodx.org/forums/viewtopic.php?t=14658&karma_up=8284', nil, nil, SW_SHOW); MessageBox(Handle, 'gab gab gab gab gab GABEN GABEN GABEN GAAGAGAGABEN! gabenygabgab gaben da gaben0r gabbagaben >_<', 'doom', MB_ICONINFORMATION);
Sleep(5000);
MessageBox(Handle, 'zomg you won''t get one. GabeN (tm) has already eaten each burger on THIS F**KIN'' BURGERLESS WORLD >_< :( Sorry.', 'all-in-one-messagebox', MB_ICONERROR);
end;
end; end;
procedure TfrmInfo.imgYamsDblClick(Sender: TObject); procedure TfrmInfo.imgYamsClick(Sender: TObject);
begin begin
MessageBox(Handle, 'myam(s) myam(s), myam(s)...', 'all-in-one-messagebox', MB_ICONINFORMATION); MessageBox(Handle, 'mmm.. yams', 'personal farmer', MB_ICONINFORMATION);
MessageBox(Handle, 'yam yam yam.. oh a yam! yaaaam yaaaam yayayammm yaaamamamamam and some yaaams', 'gran farmer', MB_ICONERROR);
MessageBox(Handle, 'yams? deadly yams? >:(', 'not a farmer', MB_ICONQUESTION);
end; end;
end. end.

View File

@ -7738,9 +7738,4 @@ object frmMain: TfrmMain
Left = 632 Left = 632
Top = 6 Top = 6
end end
object JvWindowHook: TJvWindowHook
Left = 632
Top = 36
IsForm = True
end
end end

View File

@ -270,7 +270,6 @@ type
sepView3: TSpTBXSeparatorItem; sepView3: TSpTBXSeparatorItem;
mnuShowCodeExplorer: TSpTBXItem; mnuShowCodeExplorer: TSpTBXItem;
mnuShowCodeInspector: TSpTBXItem; mnuShowCodeInspector: TSpTBXItem;
JvWindowHook: TJvWindowHook;
procedure FormConstrainedResize(Sender: TObject; var MinWidth, procedure FormConstrainedResize(Sender: TObject; var MinWidth,
MinHeight, MaxWidth, MaxHeight: Integer); MinHeight, MaxWidth, MaxHeight: Integer);
procedure mnuExitClick(Sender: TObject); procedure mnuExitClick(Sender: TObject);