Subversion Repositories fastphp

Rev

Rev 102 | Rev 104 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 102 Rev 103
Line 125... Line 125...
125 
    PHPShell1: TMenuItem;
 125 
    PHPShell1: TMenuItem;
126 
    ActionSaveAs: TAction;
 126 
    ActionSaveAs: TAction;
127 
    ActionGoToPHPDir: TAction;
 127 
    ActionGoToPHPDir: TAction;
128 
    ActionPHPInteractiveShell: TAction;
 128 
    ActionPHPInteractiveShell: TAction;
129 
    FontSizeTimer: TTimer;
 129 
    FontSizeTimer: TTimer;
130 
    RefreshModifySignTimer: TTimer;
 - 
 
131 
    procedure Run(Sender: TObject);
 130 
    procedure Run(Sender: TObject);
132 
    procedure RunConsole(Sender: TObject);
 131 
    procedure RunConsole(Sender: TObject);
133 
    procedure FormShow(Sender: TObject);
 132 
    procedure FormShow(Sender: TObject);
134 
    procedure FormCreate(Sender: TObject);
 133 
    procedure FormCreate(Sender: TObject);
135 
    procedure FormDestroy(Sender: TObject);
 134 
    procedure FormDestroy(Sender: TObject);
Line 176... Line 175...
176 
      Line: Integer; Mark: TSynEditMark);
 175 
      Line: Integer; Mark: TSynEditMark);
177 
    procedure SynEdit1PaintTransient(Sender: TObject; Canvas: TCanvas;
 176 
    procedure SynEdit1PaintTransient(Sender: TObject; Canvas: TCanvas;
178 
      TransientType: TTransientType);
 177 
      TransientType: TTransientType);
179 
    procedure ActionLintExecute(Sender: TObject);
 178 
    procedure ActionLintExecute(Sender: TObject);
180 
    procedure ActionRunConsoleExecute(Sender: TObject);
 179 
    procedure ActionRunConsoleExecute(Sender: TObject);
181 
    procedure SynEdit1Change(Sender: TObject);
 - 
 
182 
    procedure BtnSpecialCharsClick(Sender: TObject);
 180 
    procedure BtnSpecialCharsClick(Sender: TObject);
183 
    procedure WebBrowser1WindowClosing(ASender: TObject;
 181 
    procedure WebBrowser1WindowClosing(ASender: TObject;
184 
      IsChildWindow: WordBool; var Cancel: WordBool);
 182 
      IsChildWindow: WordBool; var Cancel: WordBool);
185 
    procedure BtnLightClick(Sender: TObject);
 183 
    procedure BtnLightClick(Sender: TObject);
186 
    procedure StartUpTimerTimer(Sender: TObject);
 184 
    procedure StartUpTimerTimer(Sender: TObject);
Line 191... Line 189...
191 
    procedure ActionGoToPHPDirExecute(Sender: TObject);
 189 
    procedure ActionGoToPHPDirExecute(Sender: TObject);
192 
    procedure ActionPHPInteractiveShellExecute(Sender: TObject);
 190 
    procedure ActionPHPInteractiveShellExecute(Sender: TObject);
193 
    procedure SynEdit1KeyDown(Sender: TObject; var Key: Word;
 191 
    procedure SynEdit1KeyDown(Sender: TObject; var Key: Word;
194 
      Shift: TShiftState);
 192 
      Shift: TShiftState);
195 
    procedure FontSizeTimerTimer(Sender: TObject);
 193 
    procedure FontSizeTimerTimer(Sender: TObject);
196 
    procedure RefreshModifySignTimerTimer(Sender: TObject);
 194 
    procedure SynEdit1StatusChange(Sender: TObject; Changes: TSynStatusChanges);
197 
  private
 195 
  private
198 
    hMutex: THandle;
 196 
    hMutex: THandle;
199 
    CurSearchTerm: string;
 197 
    CurSearchTerm: string;
200 
    HlpPrevPageIndex: integer;
 198 
    HlpPrevPageIndex: integer;
201 
    SrcRep: TSynEditFindReplace;
 199 
    SrcRep: TSynEditFindReplace;
Line 460... Line 458...
460 
          lines.Strings[i] := newval;
 458 
          lines.Strings[i] := newval;
461 
        end;
 459 
        end;
462 
      end;
 460 
      end;
463 
      if somethingchanged then
 461 
      if somethingchanged then
464 
      begin
 462 
      begin
465 
        SynEdit1Change(SynEdit1); // set the "changed" flag
 463 
        RefreshModifySign;
466 
      end;
 464 
      end;
467 
    end;
 465 
    end;
468 
 
 466 
 
469 
    function SpacesAvailable(lines: {$IFDEF UNICODE}TStrings{$ELSE}TUnicodeStrings{$ENDIF}): boolean;
 467 
    function SpacesAvailable(lines: {$IFDEF UNICODE}TStrings{$ELSE}TUnicodeStrings{$ENDIF}): boolean;
470 
    var
 468 
    var
Line 596... Line 594...
596 
begin
 594 
begin
597 
  ActionSave.Execute; // TODO: if it is not the scrap file: do not save the file, since the user did not intended to save... better create a temporary file and run it instead.
 595 
  ActionSave.Execute; // TODO: if it is not the scrap file: do not save the file, since the user did not intended to save... better create a temporary file and run it instead.
598 
  RunPHPScript(GetScrapFile, Sender=ActionLint, True);
 596 
  RunPHPScript(GetScrapFile, Sender=ActionLint, True);
599 
end;
 597 
end;
600 
 
 598 
 
601 
procedure TForm1.SynEdit1Change(Sender: TObject);
 - 
 
602 
begin
 - 
 
603 
  RefreshModifySign;
 - 
 
604 
end;
 - 
 
605 
 
 - 
 
606 
procedure TForm1.SynEdit1DropFiles(Sender: TObject; X, Y: Integer;
 599 
procedure TForm1.SynEdit1DropFiles(Sender: TObject; X, Y: Integer;
607 
  AFiles: TStrings);
 600 
  AFiles: TStrings);
608 
var
 601 
var
609 
  FileName: string;
 602 
  FileName: string;
610 
const
 603 
const
Line 844... Line 837...
844 
    end;
 837 
    end;
845 
    Editor.Canvas.Brush.Style := bsSolid;
 838 
    Editor.Canvas.Brush.Style := bsSolid;
846 
  end;
 839 
  end;
847 
end;
 840 
end;
848 
 
 841 
 
- 
 
 842 
procedure TForm1.SynEdit1StatusChange(Sender: TObject;
- 
 
 843 
  Changes: TSynStatusChanges);
- 
 
 844 
begin
- 
 
 845 
  if scModified in Changes then
- 
 
 846 
    RefreshModifySign;
- 
 
 847 
end;
- 
 
 848 
 
849 
procedure TForm1.SynEditFocusTimerTimer(Sender: TObject);
 849 
procedure TForm1.SynEditFocusTimerTimer(Sender: TObject);
850 
begin
 850 
begin
851 
  SynEditFocusTimer.Enabled := false;
 851 
  SynEditFocusTimer.Enabled := false;
852 
  Button1.SetFocus; // Workaround for weird bug... This (and the timer) is necessary to get the focus to SynEdit1
 852 
  Button1.SetFocus; // Workaround for weird bug... This (and the timer) is necessary to get the focus to SynEdit1
853 
  SynEdit1.SetFocus;
 853 
  SynEdit1.SetFocus;
Line 908... Line 908...
908 
  // TODO: Insert a small online help hint
 908 
  // TODO: Insert a small online help hint
909 
  //Caption := gOnlineHelpWord;
 909 
  //Caption := gOnlineHelpWord;
910 
  {$ENDIF}
 910 
  {$ENDIF}
911 
end;
 911 
end;
912 
 
 912 
 
913 
procedure TForm1.RefreshModifySignTimerTimer(Sender: TObject);
 - 
 
914 
begin
 - 
 
915 
  // This timer is a workaround for this bug:
 - 
 
916 
  // https://github.com/TurboPack/SynEdit/issues/246
 - 
 
917 
  RefreshModifySign;
 - 
 
918 
end;
 - 
 
919 
 
 - 
 
920 
procedure TForm1.TreeView1DblClick(Sender: TObject);
 913 
procedure TForm1.TreeView1DblClick(Sender: TObject);
921 
var
 914 
var
922 
  tn: TTreeNode;
 915 
  tn: TTreeNode;
923 
  lineNo: integer;
 916 
  lineNo: integer;
924 
begin
 917 
begin