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; |