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
MinorVer=1
Release=0
Build=1
Build=4
Debug=0
PreRelease=0
Special=0
@ -126,7 +126,7 @@ CodePage=1252
[Version Info Keys]
CompanyName=AMX Mod X Dev Team
FileDescription=
FileVersion=1.1.0.1
FileVersion=1.1.0.4
InternalName=
LegalCopyright=
LegalTrademarks=

View File

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

Binary file not shown.

Binary file not shown.

View File

@ -530,14 +530,14 @@ begin
tsDocuments.Items.Add(TabItem);
end;
Plugin_ProjectsChange(OldIndex, Index, False);
if JumpToLastDoc then begin
Started := False;
tsDocuments.Items[Collection.ActiveDocument.Index].Checked := True;
Collection.Activate(Collection.ActiveDocument.Index, True);
Started := True;
end;
Plugin_ProjectsChange(OldIndex, Index, False);
end;
end;
@ -910,25 +910,7 @@ begin
Started := True;
end;
if Document.Code.Count > 75 then begin
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;
frmMain.sciEditor.SetText(Document.Code.GetText);
SetRTFText(frmMain.rtfNotes, Document.NotesText);
frmMain.sciEditor.ReadOnly := Document.ReadOnly;
@ -996,7 +978,7 @@ begin
if (Self = PawnProjects) and (frmMain.tsMain.ActiveTabIndex <> 0) then exit;
if (Self = CPPProjects) and (frmMain.tsMain.ActiveTabIndex <> 1) then exit;
if (Self = OtherProjects) and (frmMain.tsMain.ActiveTabIndex <> 2) then exit;
TabItem := TSpTBXTabItem.Create(frmMain.tsDocuments);
TabItem.Caption := Title;
TabItem.OnSelect := frmMain.OnTabSelect;

Binary file not shown.

View File

@ -14,16 +14,16 @@ type
lblInfo1: TLabel;
imgAMXXLarge: TImage;
cmdClose: TSpTBXButton;
pnlGallery: TPanel;
Label1: TLabel;
imgGabeN: TImage;
imgBurger: TImage;
Label2: TLabel;
Label3: TLabel;
lblCHelp: TLabel;
lblScintilla1: TLabel;
lblScintilla2: TLabel;
pnlImages: TPanel;
imgDoom4: TImage;
imgHampster: TImage;
imgYams: TImage;
procedure imgGabeNDblClick(Sender: TObject);
procedure imgBurgerDblClick(Sender: TObject);
procedure imgYamsDblClick(Sender: TObject);
procedure imgHampsterClick(Sender: TObject);
procedure imgDoom4Click(Sender: TObject);
procedure imgYamsClick(Sender: TObject);
end;
var
@ -33,24 +33,25 @@ implementation
{$R *.DFM}
procedure TfrmInfo.imgGabeNDblClick(Sender: TObject);
procedure TfrmInfo.imgHampsterClick(Sender: TObject);
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;
procedure TfrmInfo.imgBurgerDblClick(Sender: TObject);
procedure TfrmInfo.imgDoom4Click(Sender: TObject);
begin
MessageBeep(MB_ICONQUESTION);
if MessageBox(Handle, 'Do you want a BIG TASTY BURGER?', 'all-in-one-messagebox', MB_ICONQUESTION + MB_YESNO) = mrYes then begin
ShellExecute(Handle, 'open', 'http://www.amxmodx.org/forums/viewtopic.php?t=14658&karma_up=8284', nil, nil, SW_SHOW);
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;
MessageBox(Handle, 'gaben', 'doom', MB_ICONWARNING);
MessageBox(Handle, 'gaben gaben gaben gaben gaben gaben!', 'doom', MB_ICONERROR);
MessageBox(Handle, 'gab gab gab gab gab GABEN GABEN GABEN GAAGAGAGABEN! gabenygabgab gaben da gaben0r gabbagaben >_<', 'doom', MB_ICONINFORMATION);
end;
procedure TfrmInfo.imgYamsDblClick(Sender: TObject);
procedure TfrmInfo.imgYamsClick(Sender: TObject);
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.

View File

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

View File

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

View File

@ -153,7 +153,7 @@ begin
OtherProjects.Close(0);
ActivateProjects(0, False); // Started := True is already set here
PAWNProjects.Activate(PAWNProjects.Count -1, False, False);
PAWNProjects.Activate(PAWNProjects.Count -1, False, False);
UpdateCI;
LoadPlugins;
end;