Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Farbe zu Laufzeit definieren? (https://www.delphipraxis.net/15135-farbe-zu-laufzeit-definieren.html)

Spurius 22. Jan 2004 15:22


Farbe zu Laufzeit definieren?
 
Hallo,
gibt es eine Komponente, mit der man zur Laufzeit eine Farbe definieren kann?
Gruß
Spurius

RomanK 22. Jan 2004 15:33

Re: Farbe zu Laufzeit definieren?
 
Hoi,
schau dir mal TColorDialog an.
In der Palette Dialogs.

Spurius 22. Jan 2004 16:23

Re: Farbe zu Laufzeit definieren?
 
Ich mein eher sowas, wie z.B. das definieren von Farben im Objektinspektor.
Also das man die farben z.B. im blauen Bereich differenzieren kann.

Spurius 23. Jan 2004 14:22

Re: Farbe zu Laufzeit definieren?
 
Liste der Anhänge anzeigen (Anzahl: 1)
Falls ihr nicht versteht, wie ich das mein, könnt ihr euch mal das Bild im Anhang anschauen.
Gruß
Spurius

Luckie 23. Jan 2004 14:25

Re: Farbe zu Laufzeit definieren?
 
Liste der Anhänge anzeigen (Anzahl: 1)
Und was stimmt mit dem TColorDialog nicht? :roll: Bild siehe Anhang.

Spurius 23. Jan 2004 14:57

Re: Farbe zu Laufzeit definieren?
 
Aber ich will das ja zur Laufzeit machen und nicht während der Entwicklung.

Matze 23. Jan 2004 15:00

Re: Farbe zu Laufzeit definieren?
 
Ja, das geht so! ;)

Delphi-Quellcode:
if ColorDialog1.Execute then
  Form1.Color := ColorDialog1.Color;

Robert_G 23. Jan 2004 15:05

Re: Farbe zu Laufzeit definieren?
 
Liste der Anhänge anzeigen (Anzahl: 1)
Haallooo :hi:

Genau das, was willst ist der ColorDialog!!! (siehe Anhang)

[edit]:oops: Oops zu lange nicht aktualisiert...[/edit]

Spurius 23. Jan 2004 15:13

Re: Farbe zu Laufzeit definieren?
 
Ok, danke.
Könnt ihr mir noch sagen, wie ich die Farbe in einen Hexcode umwandeln kann?
So wie er u.a. auch bei HTML verwendet wird.
Gruß
Spurius

scp 23. Jan 2004 15:24

Re: Farbe zu Laufzeit definieren?
 
Delphi-Quellcode:
function ColorToHTML(AColor : TColor) : String;
begin
  result := '#' + IntToHex((AColor      ) and $FF, 2)
                + IntToHex((AColor shr 8) and $FF, 2)
                + IntToHex((AColor shr 16) and $FF, 2);
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:51 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