Subversion Repositories fastphp

Rev

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

Rev 87 Rev 89
Line 174... Line 174...
174 
    procedure BtnLightClick(Sender: TObject);
 174 
    procedure BtnLightClick(Sender: TObject);
175 
    procedure StartUpTimerTimer(Sender: TObject);
 175 
    procedure StartUpTimerTimer(Sender: TObject);
176 
    procedure FileModTimerTimer(Sender: TObject);
 176 
    procedure FileModTimerTimer(Sender: TObject);
177 
    procedure GotoPHPdir1Click(Sender: TObject);
 177 
    procedure GotoPHPdir1Click(Sender: TObject);
178 
    procedure PHPShell1Click(Sender: TObject);
 178 
    procedure PHPShell1Click(Sender: TObject);
- 
 
 179 
    procedure SynEdit1DropFiles(Sender: TObject; X, Y: Integer;
- 
 
 180 
      AFiles: TStrings);
179 
  private
 181 
  private
180 
    hMutex: THandle;
 182 
    hMutex: THandle;
181 
    CurSearchTerm: string;
 183 
    CurSearchTerm: string;
182 
    HlpPrevPageIndex: integer;
 184 
    HlpPrevPageIndex: integer;
183 
    SrcRep: TSynEditFindReplace;
 185 
    SrcRep: TSynEditFindReplace;
Line 187... Line 189...
187 
    FileModLast: TDateTime;
 189 
    FileModLast: TDateTime;
188 
    procedure Help;
 190 
    procedure Help;
189 
    function InputRequestCallback(var data: AnsiString): boolean;
 191 
    function InputRequestCallback(var data: AnsiString): boolean;
190 
    function OutputNotifyCallback(const data: AnsiString): boolean;
 192 
    function OutputNotifyCallback(const data: AnsiString): boolean;
191 
    procedure RightTrimAll;
 193 
    procedure RightTrimAll;
192 
    procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
 - 
 
193 
  protected
 194 
  protected
194 
    ChmIndex: TMemIniFile;
 195 
    ChmIndex: TMemIniFile;
195 
    FScrapFile: string;
 196 
    FScrapFile: string;
196 
    FSaveAsFilename: string;
 197 
    FSaveAsFilename: string;
197 
    codeExplorer: TRunCodeExplorer;
 198 
    codeExplorer: TRunCodeExplorer;
Line 512... Line 513...
512 
procedure TForm1.SynEdit1Change(Sender: TObject);
 513 
procedure TForm1.SynEdit1Change(Sender: TObject);
513 
begin
 514 
begin
514 
  RefreshModifySign;
 515 
  RefreshModifySign;
515 
end;
 516 
end;
516 
 
 517 
 
- 
 
 518 
procedure TForm1.SynEdit1DropFiles(Sender: TObject; X, Y: Integer;
- 
 
 519 
  AFiles: TStrings);
- 
 
 520 
var
- 
 
 521 
  FileName: string;
- 
 
 522 
const
- 
 
 523 
  WARN_FILE_COUNT = 10;
- 
 
 524 
begin
- 
 
 525 
  if AFiles.Count > WARN_FILE_COUNT then
- 
 
 526 
  begin
- 
 
 527 
    if not MessageDlg(Format('Are you sure you want to open %d files?', [WARN_FILE_COUNT]), mtConfirmation, mbYesNoCancel, 0) <> mrYes then
- 
 
 528 
      exit;
- 
 
 529 
  end;
- 
 
 530 
 
- 
 
 531 
  for FileName in AFiles do
- 
 
 532 
  begin
- 
 
 533 
    ShellExecute(0, 'open', PChar(ParamStr(0)), PChar('"' + FileName + '"'), '', SW_NORMAL);
- 
 
 534 
  end;
- 
 
 535 
end;
- 
 
 536 
 
517 
procedure TForm1.SynEdit1GutterClick(Sender: TObject; Button: TMouseButton; X,
 537 
procedure TForm1.SynEdit1GutterClick(Sender: TObject; Button: TMouseButton; X,
518 
  Y, Line: Integer; Mark: TSynEditMark);
 538 
  Y, Line: Integer; Mark: TSynEditMark);
519 
begin
 539 
begin
520 
  (*
 540 
  (*
521 
  TSynEdit(Sender).CaretX := 1;
 541 
  TSynEdit(Sender).CaretX := 1;
Line 824... Line 844...
824 
  ShowMessage(LNG_CLOSE_REQUEST);
 844 
  ShowMessage(LNG_CLOSE_REQUEST);
825 
  TWebBrowser(ASender).Clear;
 845 
  TWebBrowser(ASender).Clear;
826 
  Cancel := true;
 846 
  Cancel := true;
827 
end;
 847 
end;
828 
 
 848 
 
829 
procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
 - 
 
830 
var
 - 
 
831 
   DropH: HDROP;               // drop handle
 - 
 
832 
   DroppedFileCount: Integer;  // number of files dropped
 - 
 
833 
   FileNameLength: Integer;    // length of a dropped file name
 - 
 
834 
   FileName: string;           // a dropped file name
 - 
 
835 
   I: Integer;                 // loops thru all dropped files
 - 
 
836 
   DropPoint: TPoint;          // point where files dropped
 - 
 
837 
 begin
 - 
 
838 
   inherited;
 - 
 
839 
   // Store drop handle from the message
 - 
 
840 
   DropH := Msg.Drop;
 - 
 
841 
   try
 - 
 
842 
     // Get count of files dropped
 - 
 
843 
     DroppedFileCount := DragQueryFile(DropH, $FFFFFFFF, nil, 0);
 - 
 
844 
     // Get name of each file dropped and process it
 - 
 
845 
     for I := 0 to Pred(DroppedFileCount) do
 - 
 
846 
     begin
 - 
 
847 
       // get length of file name
 - 
 
848 
       FileNameLength := DragQueryFile(DropH, I, nil, 0);
 - 
 
849 
       // create string large enough to store file
 - 
 
850 
       SetLength(FileName, FileNameLength);
 - 
 
851 
       // get the file name
 - 
 
852 
       DragQueryFile(DropH, I, PChar(FileName), FileNameLength + 1);
 - 
 
853 
       // process file name (application specific)
 - 
 
854 
       // ... processing code here
 - 
 
855 
       ShellExecute(0, 'open', PChar(ParamStr(0)), PChar('"' + FileName + '"'), '', SW_NORMAL);
 - 
 
856 
     end;
 - 
 
857 
     // Optional: Get point at which files were dropped
 - 
 
858 
     DragQueryPoint(DropH, DropPoint);
 - 
 
859 
     // ... do something with drop point here
 - 
 
860 
   finally
 - 
 
861 
     // Tidy up - release the drop handle
 - 
 
862 
     // don't use DropH again after this
 - 
 
863 
     DragFinish(DropH);
 - 
 
864 
   end;
 - 
 
865 
   // Note we handled message
 - 
 
866 
   Msg.Result := 0;
 - 
 
867 
end;
 - 
 
868 
 
 - 
 
869 
procedure TForm1.BeforeNavigate(const URL: OleVariant; var Cancel: WordBool);
 849 
procedure TForm1.BeforeNavigate(const URL: OleVariant; var Cancel: WordBool);
870 
var
 850 
var
871 
  s, myURL: string;
 851 
  s, myURL: string;
872 
  lineno: integer;
 852 
  lineno: integer;
873 
  p: integer;
 853 
  p: integer;