Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Delphi.Narium,
29. Dez 2017
Wenn man diese Zeile ändert
Brush.Color := StringToColor(Polyneon);
in
Brush.Color := StringToColor(Polyneon);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Delphi.Narium,
28. Dez 2017
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.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Delphi.Narium,
28. Dez 2017
Warum nicht 'ne TJvColorCombobox auf's Formular pappen?
Und dann sinngemäß:
// Im FormCreate
Var
i : Integer;
begin
JvColorComboBox1.Clear;
for i := Low(Polyneon) to High(Polyneon) do begin
JvColorComboBox1.AddColor(StringToColor(Polyneon),Polyneon));
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Delphi.Narium,
28. Dez 2017
ItemIndex ist das gerade ausgewählte Element in Items. Ist nichts ausgewählt, ist ItemIndex -1 und damit ungültig.
Beim TextOut nutzt Du Index, warum nicht auch beim Zugriff auf das Array Polyneon? Beginnt das Array bei 0? Dann sollte das gehen, ansonsten zeig' und bitte mal die Definition von Polyneon.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Delphi.Narium,
28. Dez 2017
Nutze die Jedis seit Jahr und Tag und das mit einer so großen Selbstverständlichkeit, dass es mit nichtmal mehr auffällt.
Probleme: Keine mir bekannten.
Vielleicht liegts ja dadran, das mein Delphi 7 total veraltet ist, ich die Jedis aber eigentlich immer recht aktuell halte.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Delphi.Narium,
28. Dez 2017
Schau Dir bitte mal die TJvColorComboBox der Jedis an.
Da funktioniert sowas:
Var
Color : TColor;
begin
JvColorComboBox1.Clear;
JvColorComboBox1.SelectAll;
JvColorComboBox1.DeleteSelected;
JvColorComboBox1.AddColor($00FFFFFF,'Weiß');