Removed them from AMXX-Studio
This commit is contained in:
Christian Hammacher
parent
468d99ff70
commit
89aab62549
Binary file not shown.
|
|
@ -1,313 +0,0 @@
|
|||
unit UnitfrmSplashscreen;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Windows, Messages, Classes, Graphics, Controls,
|
||||
StdCtrls, ExtCtrls, Forms, SciLexerMemo, JvInspector,
|
||||
UnitfrmMain, UnitfrmSettings, UnitfrmSelectColor, UnitfrmSearch,
|
||||
UnitfrmReplace, UnitfrmAllFilesForm, UnitfrmGoToLine,
|
||||
UnitfrmPluginsIniEditor, UnitfrmSocketsTerminal, UnitfrmInfo, TBX,
|
||||
TB2Item, SpTBXItem, Dialogs, menus, SciKeyBindings;
|
||||
|
||||
type
|
||||
TfrmSplashscreen = class(TForm)
|
||||
imgSplashscreen: TImage;
|
||||
lblStudio: TLabel;
|
||||
tmrHide: TTimer;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure tmrHideTimer(Sender: TObject);
|
||||
public
|
||||
procedure OnMessage(var Msg: TMsg; var Handled: Boolean);
|
||||
procedure OnShortCut(var Msg: TWMKey; var Handled: Boolean);
|
||||
end;
|
||||
|
||||
var
|
||||
frmSplashscreen: TfrmSplashscreen;
|
||||
|
||||
implementation
|
||||
|
||||
uses UnitCodeExplorerUpdater, UnitCodeSnippets, UnitCodeUtils,
|
||||
UnitLanguages, UnitMainTools, UnitReadThread, UnitfrmHudMsgGenerator,
|
||||
UnitfrmAutoIndent, UnitfrmHTMLPreview, UnitCodeInspector, UnitPlugins,
|
||||
UnitfrmMenuGenerator, UnitfrmMOTDGen, UnitfrmClose, UnitfrmConnGen,
|
||||
UnitfrmIRCPaster;
|
||||
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
procedure TfrmSplashscreen.FormShow(Sender: TObject);
|
||||
var eCache: TStringList;
|
||||
i: integer;
|
||||
eExt: String;
|
||||
begin
|
||||
Application.ProcessMessages;
|
||||
Repaint;
|
||||
Application.CreateForm(TfrmMain, frmMain);
|
||||
Application.ProcessMessages;
|
||||
Repaint;
|
||||
Application.CreateForm(TfrmAutoIndent, frmAutoIndent);
|
||||
Application.ProcessMessages;
|
||||
Repaint;
|
||||
Application.CreateForm(TfrmSettings, frmSettings);
|
||||
Application.ProcessMessages;
|
||||
Repaint;
|
||||
Application.CreateForm(TfrmSelectColor, frmSelectColor);
|
||||
Application.ProcessMessages;
|
||||
Repaint;
|
||||
Application.CreateForm(TfrmInfo, frmInfo);
|
||||
Application.ProcessMessages;
|
||||
Repaint;
|
||||
Application.CreateForm(TfrmSearch, frmSearch);
|
||||
Application.ProcessMessages;
|
||||
Repaint;
|
||||
Application.CreateForm(TfrmReplace, frmReplace);
|
||||
Application.ProcessMessages;
|
||||
Repaint;
|
||||
Application.CreateForm(TfrmAllFilesForm, frmAllFilesForm);
|
||||
Application.ProcessMessages;
|
||||
Repaint;
|
||||
Application.CreateForm(TfrmGoToLine, frmGoToLine);
|
||||
Application.ProcessMessages;
|
||||
Repaint;
|
||||
Application.CreateForm(TfrmPluginsIniEditor, frmPluginsIniEditor);
|
||||
Application.ProcessMessages;
|
||||
Repaint;
|
||||
Application.CreateForm(TfrmSocketsTerminal, frmSocketsTerminal);
|
||||
Application.ProcessMessages;
|
||||
Repaint;
|
||||
Application.CreateForm(TfrmHudMsgGenerator, frmHudMsgGenerator);
|
||||
Application.ProcessMessages;
|
||||
Repaint;
|
||||
Application.CreateForm(TfrmMenuGenerator, frmMenuGenerator);
|
||||
Application.ProcessMessages;
|
||||
Repaint;
|
||||
Application.CreateForm(TfrmMOTDGen, frmMOTDGen);
|
||||
Application.ProcessMessages;
|
||||
Repaint;
|
||||
Application.CreateForm(TfrmClose, frmClose);
|
||||
Application.ProcessMessages;
|
||||
Repaint;
|
||||
Application.CreateForm(TfrmConnGen, frmConnGen);
|
||||
Application.ProcessMessages;
|
||||
Repaint;
|
||||
Application.CreateForm(TfrmIRCPaster, frmIRCPaster);
|
||||
Application.ProcessMessages;
|
||||
Repaint;
|
||||
|
||||
if IEInstalled then begin
|
||||
Application.CreateForm(TfrmHTMLPreview, frmHTMLPreview);
|
||||
Application.ProcessMessages;
|
||||
Repaint;
|
||||
end
|
||||
else
|
||||
frmMain.mnuMOTDGenerator.Enabled := False;
|
||||
|
||||
Application.OnMessage := OnMessage;
|
||||
Application.OnShortCut := OnShortCut;
|
||||
|
||||
with frmMain do begin
|
||||
sciPropertyLoader.FileName := ExtractFilePath(ParamStr(0)) + 'config\Editor.sci';
|
||||
if FileExists(sciPropertyLoader.FileName) then
|
||||
sciPropertyLoader.Load
|
||||
else
|
||||
sciPropertyLoader.Save; // create new if it doesnt exist...
|
||||
|
||||
sciEditor.Gutter1.Width := 40;
|
||||
sciEditor.Gutter1.MarginType := gutLineNumber;
|
||||
LoadCodeSnippets('Pawn');
|
||||
ResetToEnglish;
|
||||
TJvCustomInspectorData.ItemRegister.Add(TJvInspectorTypeInfoRegItem.Create(TJvInspectorSelectionTextListItem, TypeInfo(TSelectionTextList)));
|
||||
|
||||
eCache := TStringList.Create;
|
||||
if FileExists(ExtractFilePath(ParamStr(0)) + 'config\Cache.cfg') then
|
||||
eCache.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'config\Cache.cfg');
|
||||
for i := 1 to ParamCount do begin
|
||||
if eCache.IndexOf(ParamStr(i)) = -1 then
|
||||
eCache.Add(ParamStr(i));
|
||||
end;
|
||||
|
||||
for i := 0 to eCache.Count -1 do begin
|
||||
if FileExists(eCache[i]) then begin
|
||||
eExt := ExtractFileExt(eCache[i]);
|
||||
eExt := LowerCase(eExt);
|
||||
if (eExt = '.sma') or (eExt = '.inc') or (eExt = '.inl') then // Pawn files
|
||||
PAWNProjects.Open(eCache[i])
|
||||
else if (eExt = '.cpp') or (eExt = '.h') then // C++ files
|
||||
CPPProjects.Open(eCache[i])
|
||||
else if (eExt = '.htm') or (eExt = '.html') then // HTML files
|
||||
OtherProjects.Open(eCache[i], 'HTML')
|
||||
else if (eExt = '.sql') then // SQL databases
|
||||
OtherProjects.Open(eCache[i], 'SQL')
|
||||
else if (eExt = '.xml') then // XML files
|
||||
OtherProjects.Open(eCache[i], 'XML')
|
||||
else // Other files and/or Textfiles
|
||||
OtherProjects.Open(eCache[i], 'null');
|
||||
end;
|
||||
end;
|
||||
eCache.Free;
|
||||
|
||||
i := 0;
|
||||
if PAWNProjects.Count > 1 then begin
|
||||
PAWNProjects.Close(0);
|
||||
i := 1;
|
||||
end;
|
||||
if CPPProjects.Count > 1 then begin
|
||||
CPPProjects.Close(0);
|
||||
i := 1;
|
||||
end;
|
||||
if OtherProjects.Count > 1 then begin
|
||||
OtherProjects.Close(0);
|
||||
i := 1;
|
||||
end;
|
||||
|
||||
if i = 1 then begin
|
||||
ActivateProjects(0, False); // Started := True is already set here
|
||||
PAWNProjects.Activate(PAWNProjects.Count -1, False, False);
|
||||
end;
|
||||
UpdateCI;
|
||||
LoadPlugins;
|
||||
end;
|
||||
|
||||
tmrHide.Enabled := True;
|
||||
end;
|
||||
|
||||
procedure TfrmSplashscreen.OnMessage(var Msg: TMsg; var Handled: Boolean);
|
||||
begin
|
||||
Handled := not Plugin_AppMsg(Msg.hwnd, Msg.message, Msg.wParam, Msg.lParam, Msg.time, Msg.pt);
|
||||
end;
|
||||
|
||||
procedure TfrmSplashscreen.OnShortCut(var Msg: TWMKey;
|
||||
var Handled: Boolean);
|
||||
function TriggerMenuShortcut(eShortcut: TShortcut; Item: TTBCustomItem): Boolean;
|
||||
var i: integer;
|
||||
begin
|
||||
Result := False;
|
||||
for i := 0 to Item.Count -1 do begin
|
||||
if Item.Items[i].ShortCut = eShortcut then begin
|
||||
Item.Items[i].OnClick(Self);
|
||||
Result := True;
|
||||
exit;
|
||||
end
|
||||
else
|
||||
TriggerMenuShortcut(eShortcut, Item.Items[i]);
|
||||
end;
|
||||
end;
|
||||
|
||||
var i: integer;
|
||||
eShortcut: TShortcut;
|
||||
begin
|
||||
if not Started then exit;
|
||||
|
||||
// Check frmSettings shortcut
|
||||
if (frmSettings.Visible) and (frmSettings.txtShortcut.Focused) then begin
|
||||
if (Msg.CharCode = VK_CONTROL) or (Msg.CharCode = VK_MENU) or (Msg.CharCode = VK_SHIFT) then begin
|
||||
frmSettings.txtShortcut.Clear;
|
||||
if ssShift in KeyDataToShiftState(Msg.KeyData) then
|
||||
frmSettings.txtShortcut.Text := frmSettings.txtShortcut.Text + 'Shift+';
|
||||
if ssCtrl in KeyDataToShiftState(Msg.KeyData) then
|
||||
frmSettings.txtShortcut.Text := frmSettings.txtShortcut.Text + 'Ctrl+';
|
||||
if ssAlt in KeyDataToShiftState(Msg.KeyData) then
|
||||
frmSettings.txtShortcut.Text := frmSettings.txtShortcut.Text + 'Alt+';
|
||||
end
|
||||
else
|
||||
frmSettings.txtShortcut.Text := ShortcutToText(Shortcut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData)));
|
||||
Handled := True;
|
||||
end;
|
||||
|
||||
if GetForegroundWindow <> frmMain.Handle then exit;
|
||||
|
||||
// stop IRC Paster if escape is pressed
|
||||
if (Msg.CharCode = VK_ESCAPE) then begin
|
||||
frmMain.IRCPasterStop := True;
|
||||
if frmMain.sciEditor.CallTipActive then
|
||||
frmMain.sciEditor.CallTipCancel;
|
||||
if frmMain.sciEditor.AutoCActive then
|
||||
frmMain.sciEditor.AutoCCancel;
|
||||
exit;
|
||||
end;
|
||||
|
||||
eShortcut := Shortcut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData));
|
||||
// Some menu commands are suppressed by the controlchars thingy, so they will be triggered manually
|
||||
for i := 0 to frmMain.tbxMenu.Items.Count -1 do begin
|
||||
if TriggerMenuShortcut(eShortcut, frmMain.tbxMenu.Items[i]) then begin
|
||||
Handled := True;
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
for i := 0 to frmMain.tbxToolbar.Items.Count -1 do begin
|
||||
if frmMain.tbxToolbar.Items[i].ShortCut = eShortcut then begin
|
||||
Handled := True;
|
||||
frmMain.tbxToolbar.Items[i].OnClick(Self);
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
for i := 0 to frmMain.tbxEdit.Items.Count -1 do begin
|
||||
if frmMain.tbxEdit.Items[i].ShortCut = eShortcut then begin
|
||||
Handled := True;
|
||||
frmMain.tbxEdit.Items[i].OnClick(Self);
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
Application.ProcessMessages;
|
||||
// Control chars
|
||||
if (eShortcut = Shortcut(Ord('E'), [ssCtrl])) then
|
||||
Handled := True;
|
||||
if (eShortcut = Shortcut(Ord('H'), [ssCtrl])) then
|
||||
Handled := True;
|
||||
if (eShortcut = Shortcut(Ord('K'), [ssCtrl])) then
|
||||
Handled := True;
|
||||
if (eShortcut = Shortcut(Ord('S'), [ssCtrl])) then
|
||||
Handled := True;
|
||||
if (eShortcut = Shortcut(Ord('B'), [ssCtrl, ssShift])) then
|
||||
Handled := True;
|
||||
if (eShortcut = Shortcut(Ord('C'), [ssCtrl, ssShift])) then
|
||||
Handled := True;
|
||||
if (eShortcut = Shortcut(Ord('D'), [ssCtrl, ssShift])) then
|
||||
Handled := True;
|
||||
if (eShortcut = Shortcut(Ord('E'), [ssCtrl, ssShift])) then
|
||||
Handled := True;
|
||||
if (eShortcut = Shortcut(Ord('F'), [ssCtrl, ssShift])) then
|
||||
Handled := True;
|
||||
if (eShortcut = Shortcut(Ord('G'), [ssCtrl, ssShift])) then
|
||||
Handled := True;
|
||||
if (eShortcut = Shortcut(Ord('H'), [ssCtrl, ssShift])) then
|
||||
Handled := True;
|
||||
if (eShortcut = Shortcut(Ord('K'), [ssCtrl, ssShift])) then
|
||||
Handled := True;
|
||||
if (eShortcut = Shortcut(Ord('N'), [ssCtrl, ssShift])) then
|
||||
Handled := True;
|
||||
if (eShortcut = Shortcut(Ord('O'), [ssCtrl, ssShift])) then
|
||||
Handled := True;
|
||||
if (eShortcut = Shortcut(Ord('P'), [ssCtrl, ssShift])) then
|
||||
Handled := True;
|
||||
if (eShortcut = Shortcut(Ord('Q'), [ssCtrl, ssShift])) then
|
||||
Handled := True;
|
||||
if (eShortcut = Shortcut(Ord('R'), [ssCtrl, ssShift])) then
|
||||
Handled := True;
|
||||
if (eShortcut = Shortcut(Ord('V'), [ssCtrl, ssShift])) then
|
||||
Handled := True;
|
||||
if (eShortcut = Shortcut(Ord('W'), [ssCtrl, ssShift])) then
|
||||
Handled := True;
|
||||
if (eShortcut = Shortcut(Ord('X'), [ssCtrl, ssShift])) then
|
||||
Handled := True;
|
||||
if (eShortcut = Shortcut(Ord('Y'), [ssCtrl, ssShift])) then
|
||||
Handled := True;
|
||||
|
||||
if Handled then begin
|
||||
for i := 0 to frmMain.sciEditor.KeyCommands.Count -1 do begin
|
||||
if TSciKeyCommand(frmMain.sciEditor.KeyCommands.Items[i]).ShortCut = eShortcut then
|
||||
Handled := False;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmSplashscreen.tmrHideTimer(Sender: TObject);
|
||||
begin
|
||||
Hide;
|
||||
frmMain.Show;
|
||||
|
||||
tmrHide.Enabled := False;
|
||||
end;
|
||||
|
||||
end.
|
||||
Loading…
Reference in New Issue
Block a user