Subversion Repositories fastphp

Compare Revisions

Regard whitespace Rev 59 → Rev 60

/trunk/EditorMain.pas
153,8 → 153,8
procedure Saveas1Click(Sender: TObject);
procedure Save1Click(Sender: TObject);
procedure BtnSpecialCharsClick(Sender: TObject);
procedure SynEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure WebBrowser1WindowClosing(ASender: TObject;
IsChildWindow: WordBool; var Cancel: WordBool);
private
CurSearchTerm: string;
HlpPrevPageIndex: integer;
454,29 → 454,6
*)
end;
 
procedure TForm1.SynEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
opts: TSynEditorOptions;
begin
// 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
// e.g. you start a line, add 10 tabs, and want to delete 1 tab, but then you remove all 10! That sucks!
if Trim(SynEdit1.LineText) = '' then
begin
opts := SynEdit1.Options;
Exclude(opts, eoSmartTabDelete);
Exclude(opts, eoTrimTrailingSpaces);
SynEdit1.Options := opts;
end
else
begin
opts := SynEdit1.Options;
Include(opts, eoSmartTabDelete);
Include(opts, eoTrimTrailingSpaces);
SynEdit1.Options := opts;
end;
end;
 
procedure TForm1.SynEdit1MouseCursor(Sender: TObject; const aLineCharPos: TBufferCoord; var aCursor: TCursor);
{$IFDEF OnlineHelp}
var
701,6 → 678,16
begin
BeforeNavigate(URL, Cancel);
end;
procedure TForm1.WebBrowser1WindowClosing(ASender: TObject;
IsChildWindow: WordBool; var Cancel: WordBool);
resourcestring
LNG_CLOSE_REQUEST = 'A script has requested the window to be closed. The window of a standalone script would now close.';
begin
ShowMessage(LNG_CLOSE_REQUEST);
TWebBrowser(ASender).Clear;
Cancel := true;
end;
 
(*
{$ELSE}
procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;