9 replies to this topic

[deonvn]

Hi Boki

The title says it all. NxEdit.OnGlyphClick does nothing.

Thanks
Deon

[deonvn]

Hi Boki

Can you look at this when you get time? (it's not urgent - so "whenever" will be fine).

I'm trying to make a search/filter edit like the one in ThunderBird to do searches of set filters on specific columns.

(See attached screenshots)

NxEdit is already very close - I just need to pop up a menu when the glyph is clicked.

For the life of me, I cannot get NxEdit to respond to MouseMove events when the mouse is in the glyph or preview areas

I would appreciate it if you can check what the problem is..

Thanks in advance.
Deon

Attached Files

•  Edit.jpg   2.38KB   1 downloads
•  EditDropped.jpg   12.24KB   2 downloads

[Boki (Berg)]

Hello Deon,

I will add now OnGlyphClick. Don't know how it is detached

Why you need MouseMove in this situation?

Best regards

[Boki (Berg)]

Update: I have fix OnGlyphClick.

[deonvn]

Great - thanks

Can you send the new NxEdit.pas to my e-mail?

PS: I don't need MouseMove - I was justing using it to try and find out why the glyph is not responding to mouse events.

Thanks again
Deon

[Boki (Berg)]

Hello Deon,

Add next procedure:

CODE

TNxEditInfo = class...
...
protected
  procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
...

procedure TNxEditInfo.MouseDown(Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  inherited;
  if Assigned(FOwner.FGlyph) and not FOwner.FGlyph.Empty
    and PtInRect(Rect(0, 0, FOwner.FGlyph.Width, Height), Point(X, Y)) then
  begin
    FOwner.DoGlyphClick;
  end;
end;

and delete same code from TNxCustomEdit.MouseDown.

Best regards

[deonvn]

Nope - did that - still doesn't work

[Boki (Berg)]

Hello Deon,

Maybe adding override at end of procedure in interface section may help (I have skip to include it):

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; override;

regards

[deonvn]

That's it - it's working fine now

PS: I think the following two procedure need to check GlyphWidth and Indent for preview?

CODE

procedure TNxEdit.MouseMove(Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  if X <= 2 then Cursor := crReversedArrow else Cursor := crDefault;
end;

procedure TNxEdit.MouseDown(Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  if X <= 2 then SelectAll;
end;

Thanks again.
Deon

[Boki (Berg)]

Hello Deon,

I have fix it. Add one new procedure inside protected of TNxCustomEdit.

CODE

function TNxCustomEdit.GetEditLeft: Integer;
begin
  if FEditInfo.Visible then
  begin
    Result := FEditInfo.Left + FEditInfo.Width;
  end else Result := 0;
end;

then code in both mouse events change with

CODE

if X <= 2

into

CODE

if X <= GetEditLeft + 2

Best regards