Ist es möglich das Aussehen der CheckedListBox zu ändern?

[zenith]

Hallo Leute,

helft mir bitte die CheckedListBox-Darstellung anzupassen...

ich muss ein paar Einträge in fetter Schrift darstellen können.

Leider hab ich keine Möglichkeit gefunden die DrawItem-Methode (wie bei ListBox)
abzufangen, wird im Objektinspektor garnicht angezeigt

hat einer nen Tipp oder Idee?

PS: ich nutze "Turbo Delphi für .NET Explorer Edition"

mfg, zenith

[Khabarakh]

Du musst du Methode OnDrawItem überschreiben. Am Besten kopierst du den gesamten Quelltext aus dem Reflector (oder Rotor) und änderst die wichtigen Stellen.

Achja, herzlich Willkommen in der DP .

[zenith]

Danke für deine Antwort.

Leider hab ich ja keine Möglichkeit gefunden diese Methode zu überschreiben...
die ist nicht in dem Objektinspektor aufgelistet. Oder verstehe ich was falsch,
bzw. suche an der falschen Stelle?

[Muetze1]

Eine Methode zu überschreiben bedeutet, eine Ableitung der CheckListBox Klasse zu machen und darin die Methode OnDrawItem neu zu implementieren mit deinen Änderungen. Bei der Deklaration der Methode müsstest du dann mit Override angeben, dass du diese überschrieben möchtest. Diese neue Komponente dann noch installieren und bei dir auf die Form ablegen und konfigurieren.

[zenith]

Danke, hab volgendes gemacht:

hier definiere ich meine eigene Klasse

Delphi-Quellcode:

type TMyCLB = class(System.Windows.Forms.CheckedListBox)
  procedure OnDrawItem(e: DrawItemEventArgs); override;
end;

mein Formular hat eine Komponente Namens "newCB"
newCB: WinForm.TMyCLB; diese wird auch initialisiert mit:
Self.newCB := WinForm.TMyCLB.Create; der Rest ist unverändert...

die Methode hab ich zum Testen folgendermassen überschrieben:

Delphi-Quellcode:

procedure TMyCLB.OnDrawItem(e: DrawItemEventArgs);
begin
  inherited OnDrawItem(e);
  e.Graphics.DrawLine(Pen.Create(Color.Red), 0, 0, 10, 20);
end;

die rote Linie wird auch gezeichnet... das ist schon mal was


leider weis ich nicht wie ich an den original-Quellcode komme,
um ihn in meiner Methode einzufügen. Das Reflection-Tool liefert mir
keinen Quellcode

mfg
zenith

[Khabarakh]

Reflector
=> http://www.aisto.com/roeder/dotnet/

[zenith]

Danke,

leider kann ich den Quellcode nicht einfach einfügen

es verwendet Methoden und Klassen, die mein .NET nicht hergibt

z.B.:
Application.RenderWithVisualStyles
self.UseCompatibleTextRendering
self.idealCheckSize
UseCustomTabOffsets
System.Windows.Forms.TextFormatFlags

und noch paar Sachen mehr...

auch kann ich nichts anfangen mit:

Delphi-Quellcode:

  ...
  ...
    endgoto Label_049B
  ...

Label_049B:
  ...

[Khabarakh]

Wortwörtlich wird es nicht funktionieren, da musst du schon selbst Hand anlegen.
So viel verrate ich aber schon einmal:

Zitat:

Application.RenderWithVisualStyles

uses-Eintrag vergessen?

Zitat:

self.UseCompatibleTextRendering
UseCustomTabOffsets

Sind öffentliche Eigenschaften, sollte kein Problem sein.

Zitat:

System.Windows.Forms.TextFormatFlags

Da Delphi Enumwerte immer noch als Konstanten behandelt, solltest du statt TextFormatFlags.XYZ einfach XYZ schreiben können.

[zenith]

Ok, ich danke euch Leute... ich hab es hinbekommen.

zuerst hatte ich dem Reflector die Assemblies der Version 2.0 angegeben,
damit konnte ich nicht viel anfangen, denn die uses-Einträge waren da.

dann habe ich den Reflector mit Assemblies v1.1.4322 gefüttert...
diesen quellcode konnte ich schneller und leichter lauffähig machen.

auch kann ich jetzt meine gewünschten Zeilen fett darstellen.


Danke also noch mal für die Hilfe!

Gruß, zenith