Hex-kode til TColor, eller hvad det nu hedder

Hej Mikkel...

Her er et par funktioner der kan klare det for dig...

function TForm1.ColorToHTMLHex(p_clr: TColor) : String;
var
p_strHex,
p_strHTML : String;
begin
p_strHex := IntToHex(p_clr, 6);
p_strHTML := Copy(p_strHex, 5, 2) +
Copy(p_strHex, 3, 2) +
Copy(p_strHex, 1, 2);

result := p_strHTML;
end;

function TForm1.HTMLHexToColor(p_strHex: String): TColor;
var
p_strHTML : String;
begin
if p_strHex[1] = '#' then
p_strHex := Copy(p_strHex, 2, length(p_strHex));

p_strHTML := Copy(p_strHex, 5, 2) +
Copy(p_strHex, 3, 2) +
Copy(p_strHex, 1, 2);
result := StrToInt('$' + p_strHTML);
end;

--
Mvh.

Kasper (TSW)
Webmaster

<quote>Hej Mikkel...

Her er et par funktioner der kan klare det for dig...

function TForm1.ColorToHTMLHex(p_clr: TColor) : String;
var
p_strHex,
p_strHTML : String;
begin
p_strHex := IntToHex(p_clr, 6);
p_strHTML := Copy(p_strHex, 5, 2) +
Copy(p_strHex, 3, 2) +
Copy(p_strHex, 1, 2);

result := p_strHTML;
end;

function TForm1.HTMLHexToColor(p_strHex: String): TColor;
var
p_strHTML : String;
begin
if p_strHex[1] = '#' then
p_strHex := Copy(p_strHex, 2, length(p_strHex));

p_strHTML := Copy(p_strHex, 5, 2) +
Copy(p_strHex, 3, 2) +
Copy(p_strHex, 1, 2);
result := StrToInt('$' + p_strHTML);
end;

--
Mvh.

Kasper (TSW)
Webmaster</quote>

Jeg får denne fejl, og flere oveni. Men hvis denne bliver rettet bliver resten sikkert også:

Undeclared identifer: 'ColorToHTMLHex'

Hvad kan dette skyldes?


Med venlig hilsen

Mikkel Bøg Clemmensen
mt.clemmensen@vip.cybercity.dk
http://www.tfweb.f2s.com

<quote>Hej Mikkel...

Her er et par funktioner der kan klare det for dig...

function TForm1.ColorToHTMLHex(p_clr: TColor) : String;
var
p_strHex,
p_strHTML : String;
begin
p_strHex := IntToHex(p_clr, 6);
p_strHTML := Copy(p_strHex, 5, 2) +
Copy(p_strHex, 3, 2) +
Copy(p_strHex, 1, 2);

result := p_strHTML;
end;

function TForm1.HTMLHexToColor(p_strHex: String): TColor;
var
p_strHTML : String;
begin
if p_strHex[1] = '#' then
p_strHex := Copy(p_strHex, 2, length(p_strHex));

p_strHTML := Copy(p_strHex, 5, 2) +
Copy(p_strHex, 3, 2) +
Copy(p_strHex, 1, 2);
result := StrToInt('$' + p_strHTML);
end;

--
Mvh.

Kasper (TSW)
Webmaster

Jeg får denne fejl, og flere oveni. Men hvis denne bliver rettet bliver resten sikkert også:

Undeclared identifer: 'ColorToHTMLHex'

Hvad kan dette skyldes?


Med venlig hilsen

Mikkel Bøg Clemmensen
mt.clemmensen@vip.cybercity.dk
http://www.tfweb.f2s.com</quote>

PS: Jeg bruger Delphi 6 Personal


Med venlig hilsen

Mikkel Bøg Clemmensen
mt.clemmensen@vip.cybercity.dk
http://www.tfweb.f2s.com

<quote>>>function TForm1.ColorToHTMLHex(p_clr: TColor) : String;

>>function TForm1.HTMLHexToColor(p_strHex: String): TColor;

>Jeg får denne fejl, og flere oveni. Men hvis denne bliver rettet bliver resten sikkert også:
>
>Undeclared identifer: 'ColorToHTMLHex'
>
>Hvad kan dette skyldes?</quote>

Det skyldes at de to funktioner ikke er defineret i klassen TForm1 .
Jeg ville gøre de her to ting:
1. Fjern 'TForm1.' fra begge funktionsnavnene.
2. Kopier de to funktions-headere op så de også står i "interface" sektionen af din unit.
("funktions-header" = f.eks. "function ColorToHTMLHex(p_clr: TColor): string;")

Niels
http://www.niller.f2s.com/ - always there...
http://g4s.dnsq.org/ - when I'm online!