Subversion Repositories fastphp

Rev

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

Rev 58 Rev 60
Line 151... Line 151...
151 
    procedure ActionRunConsoleExecute(Sender: TObject);
 151 
    procedure ActionRunConsoleExecute(Sender: TObject);
152 
    procedure SynEdit1Change(Sender: TObject);
 152 
    procedure SynEdit1Change(Sender: TObject);
153 
    procedure Saveas1Click(Sender: TObject);
 153 
    procedure Saveas1Click(Sender: TObject);
154 
    procedure Save1Click(Sender: TObject);
 154 
    procedure Save1Click(Sender: TObject);
155 
    procedure BtnSpecialCharsClick(Sender: TObject);
 155 
    procedure BtnSpecialCharsClick(Sender: TObject);
156 
    procedure SynEdit1KeyDown(Sender: TObject; var Key: Word;
 156 
    procedure WebBrowser1WindowClosing(ASender: TObject;
157 
      Shift: TShiftState);
 157 
      IsChildWindow: WordBool; var Cancel: WordBool);
158 
  private
 158 
  private
159 
    CurSearchTerm: string;
 159 
    CurSearchTerm: string;
160 
    HlpPrevPageIndex: integer;
 160 
    HlpPrevPageIndex: integer;
161 
    SrcRep: TSynEditFindReplace;
 161 
    SrcRep: TSynEditFindReplace;
162 
    {$IFDEF OnlineHelp}
 162 
    {$IFDEF OnlineHelp}
Line 452... Line 452...
452 
  TSynEdit(Sender).CaretY := Line;
 452 
  TSynEdit(Sender).CaretY := Line;
453 
  TSynEdit(Sender).SelLength := Length(TSynEdit(Sender).LineText);
 453 
  TSynEdit(Sender).SelLength := Length(TSynEdit(Sender).LineText);
454 
  *)
 454 
  *)
455 
end;
 455 
end;
456 
 
 456 
 
457 
procedure TForm1.SynEdit1KeyDown(Sender: TObject; var Key: Word;
 - 
 
458 
  Shift: TShiftState);
 - 
 
459 
var
 - 
 
460 
  opts: TSynEditorOptions;
 - 
 
461 
begin
 - 
 
462 
  // Hack: We want to use smart tabs/delete, but we don't want to jump to the very beginning if we have a fully empty line
 - 
 
463 
  //       e.g. you start a line, add 10 tabs, and want to delete 1 tab, but then you remove all 10! That sucks!
 - 
 
464 
  if Trim(SynEdit1.LineText) = '' then
 - 
 
465 
  begin
 - 
 
466 
    opts := SynEdit1.Options;
 - 
 
467 
    Exclude(opts, eoSmartTabDelete);
 - 
 
468 
    Exclude(opts, eoTrimTrailingSpaces);
 - 
 
469 
    SynEdit1.Options := opts;
 - 
 
470 
  end
 - 
 
471 
  else
 - 
 
472 
  begin
 - 
 
473 
    opts := SynEdit1.Options;
 - 
 
474 
    Include(opts, eoSmartTabDelete);
 - 
 
475 
    Include(opts, eoTrimTrailingSpaces);
 - 
 
476 
    SynEdit1.Options := opts;
 - 
 
477 
  end;
 - 
 
478 
end;
 - 
 
479 
 
 - 
 
480 
procedure TForm1.SynEdit1MouseCursor(Sender: TObject; const aLineCharPos: TBufferCoord; var aCursor: TCursor);
 457 
procedure TForm1.SynEdit1MouseCursor(Sender: TObject; const aLineCharPos: TBufferCoord; var aCursor: TCursor);
481 
{$IFDEF OnlineHelp}
 458 
{$IFDEF OnlineHelp}
482 
var
 459 
var
483 
  Line: Integer;
 460 
  Line: Integer;
484 
  Column: Integer;
 461 
  Column: Integer;
Line 699... Line 676...
699 
  const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,
 676 
  const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,
700 
  Headers: OleVariant; var Cancel: WordBool);
 677 
  Headers: OleVariant; var Cancel: WordBool);
701 
begin
 678 
begin
702 
  BeforeNavigate(URL, Cancel);
 679 
  BeforeNavigate(URL, Cancel);
703 
end;
 680 
end;
- 
 
 681 
procedure TForm1.WebBrowser1WindowClosing(ASender: TObject;
- 
 
 682 
  IsChildWindow: WordBool; var Cancel: WordBool);
- 
 
 683 
resourcestring
- 
 
 684 
  LNG_CLOSE_REQUEST = 'A script has requested the window to be closed. The window of a standalone script would now close.';
- 
 
 685 
begin
- 
 
 686 
  ShowMessage(LNG_CLOSE_REQUEST);
- 
 
 687 
  TWebBrowser(ASender).Clear;
- 
 
 688 
  Cancel := true;
- 
 
 689 
end;
- 
 
 690 
 
704 
(*
 691 
(*
705 
{$ELSE}
 692 
{$ELSE}
706 
procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
 693 
procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
707 
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
 694 
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
708 
  Headers: OleVariant; var Cancel: WordBool);
 695 
  Headers: OleVariant; var Cancel: WordBool);