Subversion Repositories fastphp

Rev

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

Rev 101 Rev 102
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;
130 
    procedure Run(Sender: TObject);
 131 
    procedure Run(Sender: TObject);
131 
    procedure RunConsole(Sender: TObject);
 132 
    procedure RunConsole(Sender: TObject);
132 
    procedure FormShow(Sender: TObject);
 133 
    procedure FormShow(Sender: TObject);
133 
    procedure FormCreate(Sender: TObject);
 134 
    procedure FormCreate(Sender: TObject);
134 
    procedure FormDestroy(Sender: TObject);
 135 
    procedure FormDestroy(Sender: TObject);
Line 190... Line 191...
190 
    procedure ActionGoToPHPDirExecute(Sender: TObject);
 191 
    procedure ActionGoToPHPDirExecute(Sender: TObject);
191 
    procedure ActionPHPInteractiveShellExecute(Sender: TObject);
 192 
    procedure ActionPHPInteractiveShellExecute(Sender: TObject);
192 
    procedure SynEdit1KeyDown(Sender: TObject; var Key: Word;
 193 
    procedure SynEdit1KeyDown(Sender: TObject; var Key: Word;
193 
      Shift: TShiftState);
 194 
      Shift: TShiftState);
194 
    procedure FontSizeTimerTimer(Sender: TObject);
 195 
    procedure FontSizeTimerTimer(Sender: TObject);
- 
 
 196 
    procedure RefreshModifySignTimerTimer(Sender: TObject);
195 
  private
 197 
  private
196 
    hMutex: THandle;
 198 
    hMutex: THandle;
197 
    CurSearchTerm: string;
 199 
    CurSearchTerm: string;
198 
    HlpPrevPageIndex: integer;
 200 
    HlpPrevPageIndex: integer;
199 
    SrcRep: TSynEditFindReplace;
 201 
    SrcRep: TSynEditFindReplace;
Line 242... Line 244...
242 
 
 244 
 
243 
procedure TForm1.RefreshModifySign;
 245 
procedure TForm1.RefreshModifySign;
244 
var
 246 
var
245 
  tmp: string;
 247 
  tmp: string;
246 
begin
 248 
begin
- 
 
 249 
  if SynEdit1 = nil then exit;
- 
 
 250 
 
247 
  tmp := Caption;
 251 
  tmp := Caption;
248 
 
 252 
 
249 
  tmp := StringReplace(tmp, '*', '', [rfReplaceAll]);
 253 
  tmp := StringReplace(tmp, '*', '', [rfReplaceAll]);
250 
  if SynEdit1.Modified then tmp := tmp + '*';
 254 
  if SynEdit1.Modified then tmp := tmp + '*';
251 
 
 255 
 
Line 904... Line 908...
904 
  // TODO: Insert a small online help hint
 908 
  // TODO: Insert a small online help hint
905 
  //Caption := gOnlineHelpWord;
 909 
  //Caption := gOnlineHelpWord;
906 
  {$ENDIF}
 910 
  {$ENDIF}
907 
end;
 911 
end;
908 
 
 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 
 
909 
procedure TForm1.TreeView1DblClick(Sender: TObject);
 920 
procedure TForm1.TreeView1DblClick(Sender: TObject);
910 
var
 921 
var
911 
  tn: TTreeNode;
 922 
  tn: TTreeNode;
912 
  lineNo: integer;
 923 
  lineNo: integer;
913 
begin
 924 
begin