TInterfacedObject Subclass

[EWeiss]

Seit ich meine Listbox auf Interface umgestellt habe kann ich die Listbox nicht mehr subclassen.

Gibt es eine andere möglichkeit TObject auf ein Interface umzulegen?

Neu..

Delphi-Quellcode:

  ISkinListBox = interface
    ['{38EF3B4F-86A1-45D0-A7F3-4E45E125979D}']
    function GetHandle: hWnd;
    property Handle: hWnd read GetHandle;
    procedure SetFont(nPointSize: Integer; FontName: PAnsiChar; AktForecolor: COLORREF;
      InAktForecolor: COLORREF; Shadow: Boolean; SOffset: Integer; ShadowColor: COLORREF);    
  end;

  TSkinListBox = class(TInterfacedObject, ISkinListBox)

vorher..

Delphi-Quellcode:

TSkinListBox = class(TObject)

Delphi-Quellcode:

procedure TSkinListBox.SubClass(WinHandle: HWND);
var
  Method: TMethod;
begin
  Method.Code := @TSkinListBox.ListBoxProc;
  Method.Data := Self;
  FEnumProcInst := MakeProcInstance(Method);

  PrevWndProc := SetWindowLong(WinHandle, GWL_WNDPROC, integer(@WndProc));
  PrevWndProcLB := SetWindowLong(Handle, GWL_WNDPROC, integer(FEnumProcInst));

end;

Vorher einwandfrei Funktioniert.



gruss

[mkinzler]

Zitat:

Seit ich meine Listbox auf Interface umgestellt habe kann ich die Listbox nicht mehr subclassen.

Wie äussert sich das? Fehlermeldung?

[EWeiss]

Zitat:

Zitat von mkinzler (Beitrag 1087573)

Zitat:

Seit ich meine Listbox auf Interface umgestellt habe kann ich die Listbox nicht mehr subclassen.

Wie äussert sich das? Fehlermeldung?

Außer der Meldung Access violation kommt da leider nichts..
Es kracht auf jedenfall in der Winproc.

Kann aber ohne probleme compilieren.
Die Listbox befindet sich in einer DLL und wird von außen aufgerufen.

Delphi-Quellcode:

    InstrumentList := CTRL_ListBoxCreate(hMain, PAnsiChar(SKAERO_FOLDER + 'Sound.png'),
      145, 62, 610, 268, ID_INSTRUMENTLIST, True, 18, SKAERO_INACTIVECAPTION);
    SKAERO_SetAnchorMode(InstrumentList.Handle, ANCHOR_RIGHT);
    SKAERO_SetZorder(InstrumentList.Handle, ANCHOR_RIGHT);
    InstrumentList.SetFont(SKAERO_CAPTIONFONTHEIGHT, PAnsiChar(SKAERO_TEXTFONT),
      SKAERO_ACTIVECAPTION, SKAERO_INACTIVECAPTION, TRUE, 2, 0);

Rückgabe der Winproc

Delphi-Quellcode:

  Result := CallWindowProc(Pointer(PrevWndProcLB), WinHandle, Msg, wP, lP);

gruss

[Blup]

Alle Variablen auf ISkinListBox umgestellt?
Ist sichergestellt, das es nirgends im Programm eine Variable gibt, die direkt auf das Objekt "TSkinListBox" verweist?
Existiert mindestens eine Interfacevariable, die das verwendete Objekt TSkinListBox referenziert, so lange wie das geskinnte Objekt existiert?

[sx2008]

Warum nicht so?

Delphi-Quellcode:

TSkinListBox = class(TListBox, ISkinListBox);

In der Klasse TComponent sind die Methoden _AddRef, _Release und QueryInterface schon implementiert.
Deshalb kann man Komponenten und Controls als Basisklasse verwenden und damit weitere Interfaces implementieren.

[EWeiss]

Zitat:

Alle Variablen auf ISkinListBox umgestellt?

Wenn du mir sagen könntest was alles für Variablen ..
Also die ich definiert habe im ISkinListBox Interface selbst ja .. Zumindest meldet der Compiler da keine Fehler.

Zitat:

Ist sichergestellt, das es nirgends im Programm eine Variable gibt, die direkt auf das Objekt "TSkinListBox" verweist?

Doch eine die hat aber keine Funktion mehr gehabt wurde also nicht mehr aufgerufen.

Delphi-Quellcode:

TMPlayList: TSkinListBox;

Zitat:

Existiert mindestens eine Interfacevariable, die das verwendete Objekt TSkinListBox referenziert, so lange wie das geskinnte Objekt existiert?

Delphi-Quellcode:

InstrumentList.Handle

Welches beim erstellen der ListBox zurückgegeben wird.

Ich habe aber bemerkt das die ListBox kurz nach dem erstellen wieder zerstört wird

Delphi-Quellcode:

destructor TSkinListBox.Destroy;
begin
  UnSubClass(FHOwner);

  inherited Destroy;
end;

Obwohl ich diese selber nicht beende.


Beim beenden.
error: to many consecutive exceptions.
Aber welche meldet er nicht.
Denke das hat damit zu tun das die ListBox schon zerstört wurde.

er springt dann in

Delphi-Quellcode:

001D3D32 8B08             mov ecx,[eax]
001D3D34 FF51FC           call dword ptr [ecx-$04]
001D3D37 C3               ret 
TObject.InitInstance:
001D3D38 53               push ebx

sagt mir aber ehrlich gesagt nicht viel!


gruss

[EWeiss]

Zitat:

Zitat von sx2008 (Beitrag 1087605)

Warum nicht so?

Delphi-Quellcode:

TSkinListBox = class(TListBox, ISkinListBox);

In der Klasse TComponent sind die Methoden _AddRef, _Release und QueryInterface schon implementiert.
Deshalb kann man Komponenten und Controls als Basisklasse verwenden und damit weitere Interfaces implementieren.

Weil es eine Nonvcl ListBox mit OwnerDraw ist.

gruss

[sx2008]

Zitat:

Zitat von EWeiss (Beitrag 1087608)

Weil es eine Nonvcl ListBox mit OwnerDraw ist.

Ach ja, stimmt ja; IMHO eine totale Zeitverschwendung.
Aber jeder soll seine eigenen Erfahrungen machen...

[EWeiss]

Zitat:

Zitat von sx2008 (Beitrag 1087612)

Zitat:

Zitat von EWeiss (Beitrag 1087608)

Weil es eine Nonvcl ListBox mit OwnerDraw ist.

Ach ja, stimmt ja; IMHO eine totale Zeitverschwendung.
Aber jeder soll seine eigenen Erfahrungen machen...

OT:
Um ein Controll vernünftig zu Überzeichen kommt man da nicht drumherum.
Und ob es eine Zeitverschwendung ist ?
Für mich nicht!

Und Erfahrungen habe ich gute gemacht.

gruss

[EWeiss]

Auch wenn es eine blöde frage zu sein scheint.
aber wie komme ich an die WinProc der Hauptanwendung?

Denke das ich das problem erkannt habe.
ich muss die Winproc der Anwendung subclassen nicht meine eigene. :(

Delphi-Quellcode:

PrevWndProc := SetWindowLong(WinHandle, GWL_WNDPROC, integer(@WndProc));

anstelle von

Delphi-Quellcode:

PrevWndProc := SetWindowLong(WinHandle, GWL_WNDPROC, integer(@TSkinListBox.ListBoxProc));

Aber ich habe die Vermutung ... Gar nicht!

gruss

[Uwe Raabe]

Zitat:

Zitat von EWeiss (Beitrag 1087607)

Ich habe aber bemerkt das die ListBox kurz nach dem erstellen wieder zerstört wird

Dann zeig doch mal den Code, der die ListBox erzeugt und wie die Variable deklariert ist, der die erzeugte ListBox zugewiesen wird.

[EWeiss]

Zitat:

Zitat von Uwe Raabe (Beitrag 1087785)

Zitat:

Zitat von EWeiss (Beitrag 1087607)

Ich habe aber bemerkt das die ListBox kurz nach dem erstellen wieder zerstört wird

Dann zeig doch mal den Code, der die ListBox erzeugt und wie die Variable deklariert ist, der die erzeugte ListBox zugewiesen wird.

Kein Problem..

Delphi-Quellcode:

type
  ISkinListBox = interface
    ['{38EF3B4F-86A1-45D0-A7F3-4E45E125979D}']
    function GetHandle: hWnd;
    property Handle: hWnd read GetHandle;
    procedure SetFont(nPointSize: Integer; FontName: PAnsiChar; AktForecolor: COLORREF;
      InAktForecolor: COLORREF; Shadow: Boolean; SOffset: Integer; ShadowColor: COLORREF);
  end;

  TSkinListBox = class(TInterfacedObject, ISkinListBox)
  private
    LStyle:  DWORD;
    FHOwner: HWND;
    FHandle: HWND;
    FEnumProcInst: Pointer;
    ImgIcon:  Cardinal;
    ImgIconH: Cardinal;
    ImgIconW: Cardinal;
    function MakeProcInstance(M: TMethod): Pointer;
    procedure SetCTLFont(hCtL: HWND; Font: hFont);
    procedure  SubClass(WinHandle: HWND);
    procedure UnSubClass(WinHandle: HWND);
    function GetHandle: hWnd;
  public
    property Handle: HWND Read FHandle;
    procedure SetFont(nPointSize: Integer; FontName: PAnsiChar; AktForecolor: COLORREF;
      InAktForecolor: COLORREF; Shadow: Boolean; SOffset: Integer; ShadowColor: COLORREF);
    function ListBoxProc(WinHandle: HWND; Msg: UINT; wP: WParam; lP: LParam): LRESULT; stdcall;

    procedure DrawItem(WinHandle: HWND; Dc: Hdc; Index: Integer;Rect: TRect; Selected: Bool);
    procedure InitTrackbar;
    procedure ListSetTopIndex(hList: HWND; nTopIndex: Integer);
    function ListGetTopIndex(hList: HWND): Integer;
    function ListGetSel(hList: HWND; nSelected: Integer): Bool;
    function GetItemHeight(hList: HWND; ItemHeigh: Integer): Integer;
    function ListCount(hList: HWND): Integer;
    procedure ListDeleteAll(hList: HWND);
    procedure ListDelete(hList: HWND; nIndex: Integer);
    procedure ListSelectPlus(hList: HWND; nSelected: Integer);
    function ListFindString(hList: HWND; Tmp: string): Integer;
    function ListGetCurSel(hList: HWND): Integer;
    function ListAdd(hList: HWND; Tmp: string): Integer;
    function ListGetText(hList: HWND; Item: Integer): PAnsiChar;
    constructor Create(hOwner: HWND; FullpathImageName: string; x, y, xW, yH,
      ListID: integer; Visible: Boolean; ItemHeight: Integer; BackColor: COLORREF);
    destructor Destroy; override;
  end;

type
  LBTYPE = Record
    AktForecolor      : COLORREF;
    InAktForecolor    : COLORREF;
    Backcolor         : COLORREF;
    Shadow            : Boolean;
    ShadowColor       : COLORREF;
    ShadowOffset      : Integer;
    ForeColorSelected : COLORREF;
    BackColorSelected : COLORREF;
    PointSize         : Integer;
    DrawStyle         : Integer;
    BorderStyle       : Integer;
    Icon              : string;
    ItemHeight        : Integer;
    Handle            : HWND;
    Left              : Integer;
    Top               : Integer;
    Width             : Integer;
    Height            : Integer;
    Font              : HFONT;
  end;

Delphi-Quellcode:

constructor TSkinListBox.Create(hOwner: HWND; FullpathImageName: string; x, y, xW, yH,
  ListID: integer; Visible: Boolean; ItemHeight: Integer; BackColor: COLORREF);

begin

  with SkinEngine do
  begin
        // LBS_NOTIFY übergeben ohne wird kein Event
        // auf LBN_DBLCLK ausgelößt
        if Visible = True then
        begin
          LStyle := LBS_HASSTRINGS or LBS_OWNERDRAWFIXED or
                    LBS_NOINTEGRALHEIGHT or LBS_NOTIFY or WS_CHILD or WS_VISIBLE;
        end else
        LStyle := LBS_HASSTRINGS or LBS_OWNERDRAWFIXED or
                  LBS_NOINTEGRALHEIGHT or LBS_NOTIFY or WS_CHILD;

        // Propertys der Listbox festlegen
        ListBoxType.Backcolor := BackColor;
        ListBoxType.ForeColorSelected := GetSysColor(COLOR_HIGHLIGHTTEXT);
        ListBoxType.BackColorSelected := GetSysColor(COLOR_HIGHLIGHT);
        ListBoxType.BorderStyle := EDGE_RAISED;
        ListBoxType.Left := x;
        ListBoxType.Top := y;
        ListBoxType.Width := xW;
        ListBoxType.Height := yH;
        ListBoxType.Icon := FullpathImageName;
        ListBoxType.ShadowColor := (RGB(0,0,0));
        ListBoxType.Shadow:= FALSE;
        ListBoxType.ShadowOffset := 3;
        ListBoxType.ItemHeight := ItemHeight;

        // ListBox erstellen
        FHandle := CreateWindowEx(WS_EX_TRANSPARENT,
          SKLISTBOX, nil, LStyle, ListBoxType.Left, ListBoxType.Top, ListBoxType.Width, ListBoxType.Height,
          hOwner, ListID, skInstance, nil);

        if FHandle <> 0 then
        begin
          ListBoxType.Handle := FHandle;
          SendMessage(Handle, LB_SETITEMHEIGHT, 0, ListBoxType.ItemHeight);

          ListBoxType.DrawStyle := CreateSolidBrush(ListBoxType.Backcolor);
          FHOwner := hOwner;
          SubClass(FHOwner);
        end;
  end;
end;

gruss

[Uwe Raabe]

Und wo wird hier TSkinListBox.Create aufgerufen? Welche Variable hält die erzeugte Instanz? Was für einen Typ hat diese Variable?

Was da im Create passiert, ist wahrscheinlich völlig irrelevant. Die Tatsache, daß du das Window-Handle abspeicherst, hat mit der Lebensdauer der Instanz nichts zu tun.

Ich hätte jetzt hier so etwas erwartet:

Delphi-Quellcode:

var
  SkinListBox: ISkinListBox; // Wichtig! Hier muss eine Interface-Variable stehen. IInterface ginge auch, nicht aber TSkinListBox oder TObject.
...
  SkinListBox := TSkinListBox.Create(...);

[EWeiss]

Zitat:

Zitat von Uwe Raabe (Beitrag 1087866)

Und wo wird hier TSkinListBox.Create aufgerufen? Welche Variable hält die erzeugte Instanz? Was für einen Typ hat diese Variable?

Was da im Create passiert, ist wahrscheinlich völlig irrelevant. Die Tatsache, daß du das Window-Handle abspeicherst, hat mit der Lebensdauer der Instanz nichts zu tun.

Ich hätte jetzt hier so etwas erwartet:

Delphi-Quellcode:

var
  SkinListBox: ISkinListBox; // Wichtig! Hier muss eine Interface-Variable stehen. IInterface ginge auch, nicht aber TSkinListBox oder TObject.
...
  SkinListBox := TSkinListBox.Create(...);

Wird es auch :)

Delphi-Quellcode:

InstrumentList:     ISkinListBox;

Aber in meiner Anwendung nicht in der TSkinList Classe.


Wird doch von außerhalb aufgerufen...

Delphi-Quellcode:

    InstrumentList := CTRL_ListBoxCreate(hMain, PAnsiChar(SKAERO_FOLDER + 'Sound.png'),
      145, 62, 610, 268, ID_INSTRUMENTLIST, True, 18, SKAERO_INACTIVECAPTION);
    SKAERO_SetAnchorMode(InstrumentList.Handle, ANCHOR_RIGHT);
    SKAERO_SetZorder(InstrumentList.Handle, ANCHOR_RIGHT);
    InstrumentList.SetFont(SKAERO_CAPTIONFONTHEIGHT, PAnsiChar(SKAERO_TEXTFONT),
      SKAERO_ACTIVECAPTION, SKAERO_INACTIVECAPTION, TRUE, 2, 0);

In der DLL..

Delphi-Quellcode:

function CTRL_ListBoxCreate(hOwner: HWND; FullpathImageName: string; x, y, xW, yH,
  ListID: integer; Visible: Boolean; ItemHeight: Integer; BackColor: COLORREF): ISkinListBox; stdcall;
begin

  result := TSkinListBox.Create(hOwner, FullpathImageName, x, y, xW, yH,
    ListID, Visible, ItemHeight, BackColor);
end;

Zurückgegeben wird ein handle mit dem ich in der Anwendung
in verbindung mit der übergebenen ID der ListBox arbeite.

Zitat:

Was da im Create passiert, ist wahrscheinlich völlig irrelevant.

In wie fern ?
Du kennst doch die Zusammenhänge nicht wie ich mit den Daten im weiteren verlauf arbeite.
Alles was deklariert wurde wird auch im späteren verlauf verwendet.
Und funktioniert in meiner anderen Anwendung "OHNE" Dll.

gruss

[Uwe Raabe]

Zitat:

Zitat von EWeiss (Beitrag 1087873)

Zitat:

Was da im Create passiert, ist wahrscheinlich völlig irrelevant.

In wie fern ?
Du kennst doch die Zusammenhänge nicht wie ich mit den Daten im weiteren verlauf arbeite.
Alles was deklariert wurde wird auch im späteren verlauf verwendet.
Und funktioniert in meiner anderen Anwendung "OHNE" Dll.

Mit irrelevant meinte ich "für die Lebensdauer der Instanz irrelevant". Du erwähntest, daß die Listbox kurz nach der Erstellung wieder freigegeben wird. Wenn nicht an irgendeiner Stelle die Instanz explizit freigegeben wird, kann das eigentlich nur geschehen, wenn sämtliche Interface-Referenzen auf die Instanz (auch implizit) auf nil gesetzt werden. Also sollte solange der Variablen InstrumentList nichts anderes zugewiesen wird und diese Variable nicht aus dem Scope verschwindet auch die TSkinListBox-Instanz intakt bleiben.

Kannst du nicht einen Breakpoint in das Destroy setzen und schauen, wodurch es ausgelöst wurde?

BTW, es macht zwar bislang hier keinen Unterschied, aber man sollte doch immer

Delphi-Quellcode:

inherited Create

aufrufen. Man weiß ja nie, was in zukünftigen Delphi-Versionen in

Delphi-Quellcode:

TObject.Create

so alles noch eingebaut wird.

[EWeiss]

Habs schon versucht.. mit Breakpoint
Das problem ist das der Compiler nur den ASM Bildschirm öffnet und da kann ich nur lesen

Zitat:

TObject.InitInstance:

Als wenn bei der Initialisierung irgend etwas schief läuft.

Zitat:

aber man sollte doch immer inherited Create aufrufen

Ja das kann ich machen.


gruss

[Uwe Raabe]

InitInstance ist auch in Assembler, da wird man nicht viel mehr sehen können. Aber vielleicht kannst du im Aufrufstack etwas erkennen?

In der DLL wird nach dem Create dreimal auf InstrumentList zugegriffen. Kommt es überhaupt dazu oder knallt es schon beim Create?

Ich weiß, daß man in einer DLL nicht immer alles das machen kann, was in einer Exe problemlos möglich ist. Ich habe aber noch keine Ahnung, was das hier sein könnte. Zumindest würde man mit diesem Wissen die Suche in eine andere Richtung bringen.

[EWeiss]

Zitat:

Zitat von Uwe Raabe (Beitrag 1087950)

InitInstance ist auch in Assembler, da wird man nicht viel mehr sehen können. Aber vielleicht kannst du im Aufrufstack etwas erkennen?

In der DLL wird nach dem Create dreimal auf InstrumentList zugegriffen. Kommt es überhaupt dazu oder knallt es schon beim Create?

Ich weiß, daß man in einer DLL nicht immer alles das machen kann, was in einer Exe problemlos möglich ist. Ich habe aber noch keine Ahnung, was das hier sein könnte. Zumindest würde man mit diesem Wissen die Suche in eine andere Richtung bringen.

Bei Create funktioniert noch alles weil ich zu dem zeitpunkt noch nicht auf die WinProc zugreife.
Lasse ich alles andere weg dann habe ich aber keinen Zugriff mehr auf meine Default WinProc in der Anwendung selbst.
Das merkt man weil ich keine Messagen mehr verarbeiten kann zum beispiel wenn ich auf einen Button Klicke.
Die Anwendung läßt sich dann nicht mehr schließen.

Ich glaube das es an der Winproc selbst liegt bzw.. wie diese gesubclassed wird.
Mein Fehler ist das ich wie vorher schon mal erwähnt nicht die WinProc der Anwendung sondern die der ListBox subclasse.
Es werden meineserachtens keine Messagen an die Hauptanwendung geschickt bzw.. dort verarbeitet.

Zitat:

ich muss die Winproc der Anwendung subclassen nicht meine eigene.
PrevWndProc := SetWindowLong(WinHandle, GWL_WNDPROC, integer(@WndProc));
anstelle von
PrevWndProc := SetWindowLong(WinHandle, GWL_WNDPROC, integer(@TSkinListBox.ListBoxProc));

Deshalb meine Frage wie komme ich an die WinProc in der Anwendung selbst heran oder kann sie weiter leiten.

Das sie funktioniert siehst du am Bild..
Aber nur in der Anwenung ohne DLL

gruss

[Uwe Raabe]

GetWindowLong?

[EWeiss]

Zitat:

Zitat von Uwe Raabe (Beitrag 1087990)

GetWindowLong?

Danke für deine hilfe Uwe..
Ja damit komme ich an die Winproc (Hätte mir auch selbst einfallen können ;) )
Aber funktionieren tut es trotzdem nicht.

Habe jetzt das Interface zur ListBox entfernt also zurück auf TObject
und siehe da jetzt funktioniert es wieder.

Warum ich die ListBox nicht mit dem Interface initialisiert bekomme ist mir noch nicht ganz klar.
Wäre aber die Ideale lösung.

Muss trotzdem noch einges ändern damit die Listbox von außen besser bedienbar ist.
Siehe Bild!

Wie du sehen kannst kopiere ich den Hintergrund ab der position 0, 0, 610, 268 mit dem Handle meines Frames in die Listbox
So emuliere ich quasi eine Transparente ListBox.
Das es jetzt so komisch aussieht ist absicht ;)
Normalerweise muss ich das Handle der Anwendung selbst verwenden und die Position
auf der meines Frames setzen. 145, 62, 610, 268

Habe es jetzt mal absichtlich so gemacht damit du sehen kannst das es wieder funktioniert.


gruss