amxmodx/editor/studio/UnitfrmSplashscreen.pas

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.