[Delphi] TListView Column resize event?

[Ariejan]

Ik vraag me af op wat voor manier je kan zien wanneer de user een column resized?

OnResize werkt niet, alleen als de TListView zelf geresized wordt. Verder heb ik niets kunnen vinden.

[Paul]

Op woensdag 24 oktober 2001 22:49 schreef Ariejan het volgende:
Ik vraag me af op wat voor manier je kan zien wanneer de user een column resized?

OnResize werkt niet, alleen als de TListView zelf geresized wordt. Verder heb ik niets kunnen vinden.

Dat OnRezise alleen op de hele component werkt is niet zo gek, aangezien deze van TControl afkomt, en niet van TCustonListView.
Ik heb trouwens even naar nog een paar componenten gekeken (stringgrid, dbgrid) ze hebben geen van allen een OnRowRezise oid...
Waar heb je hem voor nodig? Om je progressbar te resizen? want strings en zo worden voor zover ik weet automagisch afgekapt of weer neergezet als je de row resized...

[Ariejan]

Progress bar jah... Als je 'n progressbar geklust hebt, en je vergroot de column bijvoorbeeld, dan blijf j'n kleine progressbar houden. (en dat willen we niet natuurlijk)

Ik heb zitten denken of er misschien 'n windowsmessage is die wordt gegenereerd als de resize van 'n column plaats vind. Maar, daar heb ik ook nog niks over kunnen vinden ;'(

[Verwijderd]

Doe zoiets:

code:

  TMyListView = class(TListView)
  protected
    procedure WMNotify(var Message: TWMNotify); message WM_NOTIFY;
  end;

..

procedure TMyListView.WMNotify(var Message: TWMNotify);
begin
  inherited;
  with PHDNotify(Message.NMHdr)^ do
    case Hdr.Code of
    HDN_ITEMCHANGED:
      if (PItem^.mask and HDI_WIDTH) <> 0 then
        DoIetsMetColumn(Item);
    end;
  end;
end;

Je kunt ook op een HDN_ENDTRACK reageren geloof ik...

[Ariejan]

Dat klinkt heel nuttig, alleen heb ik niet echt ervaring met het inmekaar hacken van m'n eigen components.

Nouja, ik zal er eens mee aan de gang gaan, hopen dat 't lukt.

[Ariejan]

Met m'n mooie delphi boekje heb ik 'n component gelust, en er 'n standaard TNotifyEvent in gehackt, alleen nu is 't zo dat m'n Delphi 6, jouw PHDNotify een undeclared identifier vind. OP die manier werkt de rest ook niet dus.

Waar komt die PHDNotify vandaan?? Moet ik die nog includen via uses?

Als je de source-code van de TMyListView wilt zien (derived va TListView) moet je maar even 'n reply posten.

(BTW. Eindelijk wat Delphi hackers gevonden... thanks!)

[Ariejan]

Ben ik sietsofreen ofzo?? Ik loop nogal in mezelf te praten, niet?

Nou ja, ik ben er nu dus achter dat als ik ook nog commctrl bij uses zet, ie wel compiled. En zelfs 'n hoop events maakt op de OnColumnResize die ik nu heb.

Oftewel: 't worked!!!

HDN_ENDTRACK is bruikbaarder omdat deze alleen fired nadat 'n column geresized is. (Dus minder vaak fired, dus sneller is.)

Hier de code, voor evt. mensen die gaan zoeken in GoT:

code:

unit MyListView1;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, ComCtrls, CommCtrl;

type
  TMyListView1 = class(TListView)
  private
    { Private declarations }
    FOnColumnResize : TNotifyEvent;
  protected
    { Protected declarations }
    procedure WMNotify(var Message: TWMNotify); message WM_NOTIFY;
    procedure doColumnResize; virtual;
  public
    { Public declarations }
  published
    { Published declarations }
    property OnColumnResize: TNotifyEvent
    read FOnColumnResize write FOnColumnResize;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TMyListView1]);
end;

procedure TMyListView1.WMNotify(var Message: TWMNotify);
begin
  inherited;
  with PHDNotify(Message.NMHdr)^ do
    case Hdr.Code of
    HDN_ENDTRACK:
      if (PItem^.mask and HDI_WIDTH) <> 0 then
        doColumnResize;
    end;
end;

procedure TMyListView1.doColumnResize;
begin
     if Assigned(FOnColumnResize) then FOnColumnResize(self);
end;

end.

[Bigs]

Kon je niet gewoon OnMouseUp gebruiken? Of zit die er niet bij

[Ariejan]

Kan wel, maar dan moet je zelf nog uit gaan zoeken waar die mouseup plaats vond, en of er dan ook echt wel een column geresized werd.

Nu weet je dat zeker, er is een columngeresized, en dus kun je bv. 'n progressbar in zo'n columnt scalen.

[Verwijderd]

Op donderdag 25 oktober 2001 zat Ariejan tegen zichzelf te praten:

Toch veel leuker om het zelf te bedenken of niet

[Ariejan]

Da's waar, maar ik zit meestal dan 'n hele tijd te kijken en te kijken.. lukt 't gewoon niet.. en dan post ik 't hier.

En dan na even 'n reply posten, heb ik 'n helder moment.. en dan lukt 't soms wel. vandaar.

[Bigs]

Op donderdag 25 oktober 2001 23:40 schreef Bigs het volgende:
Kon je niet gewoon OnMouseUp gebruiken? Of zit die er niet bij

De oplossing die je nu hebt is idd wel een stuk netter natuurlijk ja