Autor Beitrag
Killmag10
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 297

Suse Linux / DOS / Windows All In One ;)
D4 / D2005
BeitragVerfasst: Di 20.01.04 20:58 
Hi

Wie kann ich einen Tcolor wert (HEX) in einen HTML Farbwert umwandeln ?

auch clBLACK zb muss umgewandelt werden !

also von $00CCCCCC in #CCCCCC.

weis nehmand rat ?

mfg. Killmag10

_________________
Mega-inkompetente Computer-ruinierende Organisation spioniert ohne funktionierende Technik
KidPaddle
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 351

WinXP,Linux
D7 Prof, XE7
BeitragVerfasst: Di 20.01.04 21:32 
Die Funktion StringToColor könnte von nutzen sein.

Gruß
KidPaddle
Motzi
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 2931

XP Prof, Vista Business
D6, D2k5-D2k7 je Prof
BeitragVerfasst: Di 20.01.04 22:08 
Zuerst mit ColorToRGB in einen RGB-Wert umwandeln, dann kannst du mit GetRValue, GetGValue, GetBValue die RGB-Anteile auslesen und die brauchst du dann nur mehr per IntToHex ins Hex-Format umwandeln und dir deinen String zusammenbasteln...

_________________
gringo pussy cats - eef i see you i will pull your tail out by eets roots!
StefanH
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 1144

Win XP
D5 Standard, D7 Pers, D2005 Pers
BeitragVerfasst: Mi 21.01.04 16:39 
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
function ColorToHTML(Color: TColor): string;
{Autor: StefanH}
var i: integer;
    bgr: string;
begin
i:= ColorToRGB(Color);
bgr:= IntToHex(i,6);
result:= '#' + Copy(bgr,5,2) + Copy(bgr,3,2) + Copy(bgr,1,2);
end;


aufruf über
ausblenden Delphi-Quelltext
1:
ColorToHTML(clBlack);					


Stefan

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)
Killmag10 Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 297

Suse Linux / DOS / Windows All In One ;)
D4 / D2005
BeitragVerfasst: Do 22.01.04 08:49 
Danke Leuts !

genau das ist das was ich brauche. :wink:

mfg. Killmag10

_________________
Mega-inkompetente Computer-ruinierende Organisation spioniert ohne funktionierende Technik