94,6 → 94,7 |
MousePos: TPoint; var Handled: Boolean); |
procedure ActionOpenExecute(Sender: TObject); |
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
procedure Memo2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); |
private |
CurSearchTerm: string; |
HlpPrevPageIndex: integer; |
557,6 → 558,12 |
end; |
end; |
|
procedure TForm1.Memo2KeyDown(Sender: TObject; var Key: Word; |
Shift: TShiftState); |
begin |
if ((ssCtrl in Shift) and (Key = 65)) then TMemo(Sender).SelectAll; |
end; |
|
function TForm1.MarkUpLineReference(cont: string): string; |
var |
p, a, b: integer; |