Subversion Repositories fastphp

Rev

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

Rev 98 Rev 99
Line 124... Line 124...
124 
    GotoPHPdir1: TMenuItem;
 124 
    GotoPHPdir1: TMenuItem;
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 
    procedure Run(Sender: TObject);
 130 
    procedure Run(Sender: TObject);
130 
    procedure RunConsole(Sender: TObject);
 131 
    procedure RunConsole(Sender: TObject);
131 
    procedure FormShow(Sender: TObject);
 132 
    procedure FormShow(Sender: TObject);
132 
    procedure FormCreate(Sender: TObject);
 133 
    procedure FormCreate(Sender: TObject);
133 
    procedure FormDestroy(Sender: TObject);
 134 
    procedure FormDestroy(Sender: TObject);
Line 188... Line 189...
188 
    procedure ActionSaveAsExecute(Sender: TObject);
 189 
    procedure ActionSaveAsExecute(Sender: TObject);
189 
    procedure ActionGoToPHPDirExecute(Sender: TObject);
 190 
    procedure ActionGoToPHPDirExecute(Sender: TObject);
190 
    procedure ActionPHPInteractiveShellExecute(Sender: TObject);
 191 
    procedure ActionPHPInteractiveShellExecute(Sender: TObject);
191 
    procedure SynEdit1KeyDown(Sender: TObject; var Key: Word;
 192 
    procedure SynEdit1KeyDown(Sender: TObject; var Key: Word;
192 
      Shift: TShiftState);
 193 
      Shift: TShiftState);
- 
 
 194 
    procedure FontSizeTimerTimer(Sender: TObject);
193 
  private
 195 
  private
194 
    hMutex: THandle;
 196 
    hMutex: THandle;
195 
    CurSearchTerm: string;
 197 
    CurSearchTerm: string;
196 
    HlpPrevPageIndex: integer;
 198 
    HlpPrevPageIndex: integer;
197 
    SrcRep: TSynEditFindReplace;
 199 
    SrcRep: TSynEditFindReplace;
Line 1053... Line 1055...
1053 
    end;
 1055 
    end;
1054 
  end;
 1056 
  end;
1055 
  FileModTimer.Enabled := true;
 1057 
  FileModTimer.Enabled := true;
1056 
end;
 1058 
end;
1057 
 
 1059 
 
- 
 
 1060 
procedure TForm1.FontSizeTimerTimer(Sender: TObject);
- 
 
 1061 
begin
- 
 
 1062 
  if Memo2.Font.Size <> SynEdit1.Font.Size then
- 
 
 1063 
    Memo2.Font.Size := SynEdit1.Font.Size;
- 
 
 1064 
end;
- 
 
 1065 
 
1058 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
 1066 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
1059 
begin
 1067 
begin
1060 
  DragAcceptFiles(Handle, False);
 1068 
  DragAcceptFiles(Handle, False);
1061 
  TFastPHPConfig.FontSize := SynEdit1.Font.Size;
 1069 
  TFastPHPConfig.FontSize := SynEdit1.Font.Size;
1062 
end;
 1070 
end;