Class spezialisten

[EWeiss]

Hab jetzt meine ListBox fast fertig.
Kann bitte mal jemand in die Class schaun und mir sagen was ich besser machen könnte.
Mir geht es um die Bedienbarkeit von außen.

Delphi-Quellcode:

type
  TSkinListBox = class
  private
    LStyle:     DWORD;
    FHOwner  :  HWND;
    procedure SetCTLFont(hCtL: HWND; Font: hFont);
    procedure  SubClass(WinHandle: HWND);
    procedure UnSubClass(WinHandle: HWND);
  public
    Handle:  HWND;
    procedure SetFont(nPointSize: Integer; FontName: PAnsiChar; AktForecolor: COLORREF;
      InAktForecolor: COLORREF; Shadow: Boolean; SOffset: Integer; ShadowColor: COLORREF);

    class procedure DrawItem(WinHandle: HWND; Dc: Hdc; Index: Integer;Rect: TRect; Selected: Bool);
    procedure DrawItems(lP: Integer);
    class procedure ListSetTopIndex(hList: HWND; nTopIndex: Integer);
    class function ListGetTopIndex(hList: HWND): Integer;
    class function ListGetSel(hList: HWND; nSelected: Integer): Bool;
    class function GetItemHeight(hList: HWND; ItemHeigh: Integer): Integer;

    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;

gruss Emil

[mjustin]

Zitat:

Zitat von EWeiss

Hab jetzt meine ListBox fast fertig.
Kann bitte mal jemand in die Class schaun und mir sagen was ich besser machen könnte.
Mir geht es um die Bedienbarkeit von außen.

Delphi-Quellcode:

  public
    Handle:  HWND;

Das würde ich als public property implementieren, und wenn möglich nur mit read Zugriff. Damit ist dann die Bedienbarkeit von aussen geregelt :)

[EWeiss]

Zitat:

Zitat von mjustin

Zitat:

Zitat von EWeiss

Hab jetzt meine ListBox fast fertig.
Kann bitte mal jemand in die Class schaun und mir sagen was ich besser machen könnte.
Mir geht es um die Bedienbarkeit von außen.

Delphi-Quellcode:

  public
    Handle:  HWND;

Das würde ich als public property implementieren, und wenn möglich nur mit read Zugriff. Damit ist dann die Bedienbarkeit von aussen geregelt :)

Danke werd ich dann noch ändern.

gruss Emil

[Muetze1]

Ich frage mich, warum du soviele statische Methoden eingebaut hast. Warum nicht eine Instanz pro Listbox? Wenn dem so ist, dann kann die Listbox entsprechende Eigenschaften bekommen z.B. bezüglich ItemIndex.

Derzeit sieht es für mich so aus, als wenn du nur eine Instanz anlegst für x Listboxen und immer diese eine Instanz beflasterst mit dem entsprechenden Listbox Handle. Wozu?

Lege eine Instanz pro Listbox an, diese merkt sich ihr eigenes Handle in einem Member und du kannst einfach über Properties und Methoden auf die Eigenschaften zugreifen bzw. verändern.

Ich denke mit Schrecken an deine ersten Fragen hier zurück und besonders an eine elendig lange Diskussion zwischen uns, wo ich nachher von dir beschimpft wurde - und das alles nur, weil du das OOP Konzept nicht kanntest. So wie die Klasse gebaut ist, vermute ich, bist du noch immer nicht mit dem Konzept vertraut. Und da du zu schnell aufgibst bzw. wenn du die Vorschläge nicht verstehst entweder aggressiv wirst oder alles hinschmeißt in dem Thread, werde ich mich auch nicht weiter dazu äußern. Das gibt dir die Gelegenheit meinen Beitrag komplett zu ignorieren - da ich vermute, dass dir gerade wieder die Halsschlagader anschwillt beim Lesen...
Gruss

[SirThornberry]

Ich sehe bei der Klasse den Sinn einer Klasse verfehlt da fast nichts mit der Instanz der Klasse zu tun hat.

[EWeiss]

Zitat:

Zitat von SirThornberry

Ich sehe bei der Klasse den Sinn einer Klasse verfehlt da fast nichts mit der Instanz der Klasse zu tun hat.

Verstehe ich nicht was du meinst.
Es funktioniert doch alles habe sie ja nicht als eigenständige Componente erstellt.
Welche man installieren muss.

gruss Emil

[EWeiss]

@Muetze1

Zitat:

Und da du zu schnell aufgibst bzw. wenn du die Vorschläge nicht verstehst entweder aggressiv wirst oder alles hinschmeißt in dem Thread, werde ich mich auch nicht weiter dazu äußern. Das gibt dir die Gelegenheit meinen Beitrag komplett zu ignorieren - da ich vermute, dass dir gerade wieder die Halsschlagader anschwillt beim Lesen...

Denke mal nicht. Wer hat denn alles hingeschmissen und ist aus dem Forum ausgetreten?

gruss Emil

[SirThornberry]

Normalerweise erstellt man eine Klasse um mehrere Instanzen erzeugen zu können die man unabhängig von einander nutzen kann. Bei dir muss man jeder Funktion ein Handle mit geben so als wären es globale Funktionen. Der Vorteil einer Klasse ist doch eigentlich das eine Klasse sich selbst darum kümmert und icht nicht bei jeder Funktion etwas übergeben muss was schon teil davon ist. Hat man Beispielsweise mehrere Fenster(Listboxen) nutzt man wenn man es richtig macht für jede eine eigene Instanz. Bei der hingegen braucht man gar keine Instanz sondern übergibt jedes mal das Handle einer Klassfunction. Oder noch schlimmer. Man erstellt eine Instanz und übergibt den Methoden der Instanz ein Handle einer ganz anderes Listbox. Das so etwas möglich ist zeigt das es nicht ganz passt.

Richtig wäre es wenn eine Methode nur die Parameter braucht welche die Klasse nicht selbst kennt.

Ein weiteres Problem hätte ich mit folgender Methode:

Delphi-Quellcode:

class function GetItemHeight(hList: HWND; ItemHeigh: Integer): Integer;

Der Name drückt aus das ich damit die "ItemHeight" ermitteln kann, jedoch muss ich ItemHeight übergeben :gruebel:
(und eben das übliche das ich das Handle übergeben muss obwohl als normale Methde (nicht classfunction) das ganze überflüssig wäre.

[EWeiss]

Zitat:

Zitat von SirThornberry

Normalerweise erstellt man eine Klasse um mehrere Instanzen erzeugen zu können die man unabhängig von einander nutzen kann. Bei dir muss man jeder Funktion ein Handle mit geben so als wären es globale Funktionen. Der Vorteil einer Klasse ist doch eigentlich das eine Klasse sich selbst darum kümmert und icht nicht bei jeder Funktion etwas übergeben muss was schon teil davon ist. Hat man Beispielsweise mehrere Fenster(Listboxen) nutzt man wenn man es richtig macht für jede eine eigene Instanz. Bei der hingegen braucht man gar keine Instanz sondern übergibt jedes mal das Handle einer Klassfunction. Oder noch schlimmer. Man erstellt eine Instanz und übergibt den Methoden der Instanz ein Handle einer ganz anderes Listbox. Das so etwas möglich ist zeigt das es nicht ganz passt.

Richtig wäre es wenn eine Methode nur die Parameter braucht welche die Klasse nicht selbst kennt.

Danke für die Infos das war auch der sinn meiner frage.
Wo kann ich mehr informationen darüber bekommen damit es am ende richtig ist ?

Ja die ListBox ist so konzipiert das sie quasi nur einmal aufgerufen werden kann.
Für mein Programm reicht das aber nicht wenn man sie öffentlich machen oder mehrere Instanzen erstellen will
auf einer Form.

gruss Emil

[quendolineDD]

Die Frage ist doch, warum nimmst du static void function (class procedure) und static function (class function), wenn du diese selber über die Instanz in der eigenen Klasse verwalten kannst, und nicht erst den Umweg über den HWND der Listbox machst. Ich verstehe zum Beispiel diesen Weg gar nicht.
Warum nutzt du Klassen, wenn du ihnen nichtmal die Möglichkeit gibst "sich selbst verwalten zu können"... ?