AW: Listbox mit Farbflächendarstellung
ich korrigiere mich...
Die Zeilen werden schon unterschiedlich eingefärbt. Aber erst, wenn man mit dem Mauszeiger darüber fährt. Es soll aber so sein, dass die Liste gleich richtig farbig gezeichnet wird. Würde das gehen? |
AW: Listbox mit Farbflächendarstellung
Warum nicht 'ne TJvColorCombobox auf's Formular pappen?
Und dann sinngemäß:
Delphi-Quellcode:
Wie ist denn Polyneon definiert?
// Im FormCreate
Var i : Integer; begin JvColorComboBox1.Clear; for i := Low(Polyneon) to High(Polyneon) do begin JvColorComboBox1.AddColor(StringToColor(Polyneon[i]),Polyneon[i])); end; end;
Delphi-Quellcode:
type
// Dann muss man nicht irgendwie zwei Listen nebeneinander pflegen // und versuchen, die synchron zu halten. tColorRec = record Color : TColor; Name : String; end; var Polyneon array [0..AnzahlFarben] of tColorRec; // Im FormCreate o. ä. sinnvoller Stelle Var i : Integer; begin JvColorComboBox1.Clear; for i := Low(Polyneon) to High(Polyneon) do begin JvColorComboBox1.AddColor(Polyneon[i].Color,Polyneon[i].Name); end; end; |
AW: Listbox mit Farbflächendarstellung
Wo find ich denn diese Komponente in Delphi, wenn ich alles installiert habe?
|
AW: Listbox mit Farbflächendarstellung
In meinem Delphi 7 in der Palette auf dem Reiter Jv Lists, Combos, Trees, das 9. Symbol von rechts.
Oder Menü: -> Ansicht --> Komponentenliste ---> TJvColorComboBox eingeben. |
AW: Listbox mit Farbflächendarstellung
Du könntest die Komplementärfarbe nutzen, um die Schrift innerhalb eines farbgefüllten Bereiches immer lesbar zu haben.
|
AW: Listbox mit Farbflächendarstellung
Zitat:
Ich habe dein Problem aber noch nicht so ganz verstanden. Was genau funktioniert jetzt nicht? Dein SourceCode auf Seite 1 sieht soweit richtig aus bis evtl. auf die Textfarbe. Das With stört mich zwar etwas, aber das musst du wissen ob du das verwenden willst. Beherzige den Tipp von MyRealName. Dann kannst du den Text wenigstens richtig lesen. Zitat:
Delphi-Quellcode:
bilden (wenn ich das noch richtig im Kopf habe).
clBlack xor $DeineFarbe
|
AW: Listbox mit Farbflächendarstellung
@myrealname: ja genau das hatte ich vor bzw. als Alternative von der Farbsumme (R+G+B) die Schrift in schwarz oder weiß anzulegen.
@Aviator: mein Problem ist, dass die Hintergründe erst in den entsprechenden Farben gezeichnet werden, wenn ich mit der Maus darüber gehe. In dem Moment, wo ich die Combobox öffne, werden alle Hintergründe mit der Hintergrundfarbe des ersten Feldes gezeichnet, z.B. hellblau. Das ist auch beim Verschieben der Scrollbar so, alles einfarbig. Erst mit dem Mauszeiger drüberfahren ist irgendwie blöd. Um die Jedi Tools zu installieren, muss ich erst mein Delphi an WIN10 anpassen. Deshalb hatte ich die "schnelle" Comboboxvariante vorerst bevorzugt. |
AW: Listbox mit Farbflächendarstellung
Könntest du mal ein kleines Beispielprojekt anhängen wo man den Fehler nachvollziehen kann?
EDIT: Ich verstehe was du meinst, aber ich kann an dem SourceCode so nichts falsches erkennen. Deshalb wäre ein Beispielprojekt hilfreich. |
AW: Listbox mit Farbflächendarstellung
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo Aviator,
habe das Projekt auf die wesentlichen Funktionen zusammengeschrumpft. Du kannst die Projektdatei öffnen und starten. Im Formular Grafik findet man rechts unten die Combobox Polyneon. In der Unit ist die onDraw Prozedur die vorletzte. Gestern hatte ich bei einem ähnlichen Listboxproblem noch etwas mit DropKind oder so ähnlich gelesen. Das gibt es bei der Combobox wohl nicht?! VG |
AW: Listbox mit Farbflächendarstellung
Wenn man diese Zeile ändert
Delphi-Quellcode:
Brush.Color := StringToColor(Polyneon[ComboBox1.ItemIndex]);
in
Delphi-Quellcode:
Brush.Color := StringToColor(Polyneon[Index]);
werden die Farben beim Aufklappen (wie gestern schon vermutet) korrekt angezeigt. Es soll ja schließlich die Farbe zum entsprechenden Eintrag aus Polyneon und nicht immer die Farbe des zufällig gerade gewählten Eintrages genommen werden. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:03 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz