Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Farben ändern per Scroolbar


Davidandflash - Fr 16.08.02 17:29
Titel: Farben ändern per Scroolbar
Ich würde gerne in ein Grafikprogramm eine Scroolbar einbauen über die man die Farbe des Pinsels durch Schieben ändern kann, also z.b. ganz links =rot, mitte=blau, rechts =schwarz.
Ausserdem würde ich gerne neben der Scroolbar ein kleines Kästchen haben in dem man die aktuelle Frabe sieht, und welches sich aktiv verändert.
Wenn jemand weiss wie es geht so bitte ich um eine möglichst detaillierte Erklärung da ich neu in Delphi bin.
Vielen Dank. :D


DeCodeGuru - Fr 16.08.02 17:35

guck dir mal folgenden Code an:

Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
var
  rot,gruen,blau: Byte;
  MyColor: TColor;
begin
  rot := 100;
  gruen := 200;
  blau := 150;
  MyColor := (blau shl 16) + (gruen shl 8) # rot;
end;


So, du kannst natürlich auch die Byte-Werte auslesen und die Scrollbox so einstellen. Wenn der Wert in der Scrollbox geändert wird, änderst du halt die Farbwerte.


Alfons-G - Fr 16.08.02 17:46

Hi,
ich würde Dir empfehlen, zum Verändern einer Farbe keine Scrollbar zu verwenden, sondern eine Trackbar. Mit einer Scrollbar werden Fensterausschnitte verschoben - Anwender erwarten nicht, dass damit Werte, wie z.B. Farben, eingestellt werden. Im Gegensatz dazu ist die Trackbar speziell für diese Aufgabe gedacht.

:idea:


Davidandflash - Fr 16.08.02 17:49

Wie gesagt kenne ich mich noch nicht so aus mit Delphi. Ich hab den Text auf die Scroolleiste gelegt und es kam eine Fehlermeldung und die letzte Zeile wurde markiert. Muss ich noch was machen?
Oder kannst du es nochmal etwas genauer erklären?
Danke.