Forum - Public Discussion and Support
https://www.ghisler.ch/board/
Hi Gil ! 
KR, Cordialement,Implemented in Universal Viewer 1.5.9.2...It would also be nice to have this feature in Compare by content in edit mode (2 clicks select word; 3 clicks select whole line).
Code: Select all
unit Test3Click;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
procedure Panel1DblClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
F2Click: boolean;
F3Click: boolean;
F3Time: DWORD;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
F2Click:= false;
F3Click:= false;
F3Time:= 0;
end;
procedure TForm1.Panel1DblClick(Sender: TObject);
begin
Panel1.Caption:= 'Double click';
F2Click:= true;
F3Click:= false;
F3Time:= 0;
end;
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if F3Click and
(GetTickCount-F3Time <= GetDoubleClickTime) then
begin
Panel1.Caption:= 'Triple click';
F2Click:= false;
F3Click:= false;
F3Time:= 0;
end;
if F2Click then
begin
Panel1.Caption:= 'Double click';
F2Click:= false;
F3Click:= true;
F3Time:= GetTickCount;
end;
end;
end.• ONLY ?Clo, I'm 29.
• Most certainly… But a Little Bird told me that it doubts that this be added in Lister for hexa……2. in Hex mode - there you cannot see begin/end of line (easily).
KRWell, as Dark One pointed out, you just have to drag the cursor vertically from the beginning of the line to select to the beginning of the next line, just below.2Dark One
I not agree.
I find it very useful: 1. with very long strings (larger than Lister width)
Well you cannot do this if the beginning of the line is scrolled out of left border. Triple click is useful here.Dark One pointed out, you just have to drag the cursor vertically from the beginning of the line to select to the beginning of the next line, just below.