Subversion Repositories fastphp

Compare Revisions

Regard whitespace Rev 16 → Rev 17

/trunk/EditorMain.pas
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;