| 44,7 → 44,7 |
|---|
| Dialogs, StdCtrls, OleCtrls, ComCtrls, ExtCtrls, ToolWin, IniFiles, |
| SynEditHighlighter, SynHighlighterPHP, SynEdit, ShDocVw, FindReplace, |
| ActnList, SynEditMiscClasses, SynEditSearch, RunPHP, ImgList, SynUnicode, |
| System.ImageList, System.Actions, Vcl.Menus, Vcl.Themes; |
| System.ImageList, System.Actions, Vcl.Menus, Vcl.Themes, System.UITypes; |
| |
| {.$DEFINE OnlineHelp} |
| |
| 111,6 → 111,7 |
|---|
| BtnLightOff: TImage; |
| BtnLight: TImage; |
| StartUpTimer: TTimer; |
| FileModTimer: TTimer; |
| procedure Run(Sender: TObject); |
| procedure RunConsole(Sender: TObject); |
| procedure FormShow(Sender: TObject); |
| 169,6 → 170,7 |
|---|
| IsChildWindow: WordBool; var Cancel: WordBool); |
| procedure BtnLightClick(Sender: TObject); |
| procedure StartUpTimerTimer(Sender: TObject); |
| procedure FileModTimerTimer(Sender: TObject); |
| private |
| hMutex: THandle; |
| CurSearchTerm: string; |
| 177,6 → 179,7 |
|---|
| {$IFDEF OnlineHelp} |
| gOnlineHelpWord: string; |
| {$ENDIF} |
| FileModLast: TDateTime; |
| procedure Help; |
| function InputRequestCallback(var data: AnsiString): boolean; |
| function OutputNotifyCallback(const data: AnsiString): boolean; |
| 900,6 → 903,30 |
|---|
| SynEdit1.Options := opts; |
| end; |
| |
| procedure TForm1.FileModTimerTimer(Sender: TObject); |
| begin |
| FileModTimer.Enabled := false; |
| if FileModLast <> FileAge(GetScrapFile) then |
| begin |
| FileModLast := FileAge(GetScrapFile); |
| if SynEdit1.Modified then |
| begin |
| if MessageDlg('The file was changed in a different application BUT IT WAS ALSO MODIFIED HERE! Reload file AND LOSE CHANGES HERE?', mtWarning, mbYesNoCancel, 0) = mrYes then |
| begin |
| SynEdit1.Lines.LoadFromFile(GetScrapFile); |
| end; |
| end |
| else |
| begin |
| if MessageDlg('The file was changed in a different application! Reload file?', mtConfirmation, mbYesNoCancel, 0) = mrYes then |
| begin |
| SynEdit1.Lines.LoadFromFile(GetScrapFile); |
| end; |
| end; |
| end; |
| FileModTimer.Enabled := true; |
| end; |
| |
| procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); |
| begin |
| TFastPHPConfig.FontSize := SynEdit1.Font.Size; |
| 936,10 → 963,13 |
|---|
| procedure TForm1.FormCreate(Sender: TObject); |
| var |
| exeDir: string; |
| sScrapFile: string; |
| begin |
| HlpPrevPageIndex := -1; |
| CurSearchTerm := ''; |
| Caption := Caption + ' - ' + GetScrapFile; |
| sScrapFile := GetScrapFile; |
| Caption := Caption + ' - ' + sScrapFile; |
| Application.Title := Format('%s - FastPHP', [ExtractFileName(sScrapFile)]); |
| SrcRep := TSynEditFindReplace.Create(self); |
| SrcRep.Editor := SynEdit1; |
| SynEdit1.Gutter.Gradient := HighColorWindows; |
| 949,6 → 979,9 |
|---|
| |
| exeDir := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))); |
| if FileExists(exeDir + 'codeexplorer.bmp') then ImageList1.LoadAndSplitImages(exeDir + 'codeexplorer.bmp'); |
| |
| FileModLast := FileAge(sScrapFile); |
| FileModTimer.Enabled := True; |
| end; |
| |
| procedure TForm1.FormDestroy(Sender: TObject); |
| 1058,6 → 1091,7 |
|---|
| |
| FSaveAsFilename := SaveDialog1.FileName; |
| Caption := Copy(Caption, 1, Pos(' - ', Caption)-1) + ' - ' + FSaveAsFilename; |
| Application.Title := Format('%s - FastPHP', [ExtractFileName(FSaveAsFilename)]); |
| Button7.Click; |
| end; |
| end; |
| 1070,6 → 1104,8 |
|---|
| eolStyle: string; |
| str: string; |
| begin |
| FileModTimer.Enabled := false; |
| |
| ms := TMemoryStream.Create; |
| ss := TStringStream.Create(''); |
| fs := TFileStream.Create(filename, fmCreate); |
| 1135,6 → 1171,9 |
|---|
| FreeAndNil(ss); |
| FreeAndNil(fs); |
| end; |
| |
| FileModLast := FileAge(GetScrapFile); |
| FileModTimer.Enabled := True; |
| end; |
| |
| procedure TForm1.StartCodeExplorer; |