AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Hex to TColor

Ein Thema von Tpercon · begonnen am 23. Jun 2002 · letzter Beitrag vom 23. Jun 2002
Antwort Antwort
Tpercon

Registriert seit: 7. Jun 2002
638 Beiträge
 
Delphi 5 Professional
 
#1

Hex to TColor

  Alt 23. Jun 2002, 15:44
Wie kann man einen HTML Farbwert (6 stellige Hex Zahl) in einen TColor Wert umwandeln?
  Mit Zitat antworten Zitat
jbg

Registriert seit: 12. Jun 2002
3.483 Beiträge
 
Delphi 10.1 Berlin Professional
 
#2
  Alt 23. Jun 2002, 15:48
StringToColor('$FF0000');
Wobei die ersten 2 Stellen Blau, die zweiten Grün und die dritten Rot angeben.
  Mit Zitat antworten Zitat
Daniel B
(Gast)

n/a Beiträge
 
#3
  Alt 23. Jun 2002, 15:56
Zitat von jbg:
StringToColor('$FF0000');
Wobei die ersten 2 Stellen Blau, die zweiten Grün und die dritten Rot angeben.
Von Links: Rot, Grün, Blau.
  Mit Zitat antworten Zitat
Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#4
  Alt 23. Jun 2002, 15:58
Ich werde meine Lösung von D3K mal in die FAQ Sektion schreiben. Ist gegen 16:15 verfügbar

FERTIG!
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#5
  Alt 23. Jun 2002, 16:00
Moin Tpercon,

ich kann's jetzt nicht ausprobieren, aber Du kannst es mal so versuchen:

Code:
function RGBStrToColor(const p_sRGB : string) : TColor;
begin
  Result := 0;
  Result := StrToInt('$'+copy(p_sRGB,1,2)) or
           (StrToInt('$'+copy(p_sRGB,3,2)) shl 8) or
           (StrToInt('$'+copy(p_sRGB,5,2)) shl 16);
end;

function RGBToColor(const p_iRGB : integer) : TColor;
begin
  Result := 0;
  Result := ((p_iRGB and $FF0000) shr 16) or
            (p_iRGB and $FF00) or
            ((p_iRGB and $FF) shl 16);
end;
Das Problem ist ja, dass die HTML Farbwerte in der Reihenfolge RRGGBB angegeben werden, und bei TColor BBGGRR. Es müssen also zwei Bytes vertauscht werden.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
jbg

Registriert seit: 12. Jun 2002
3.483 Beiträge
 
Delphi 10.1 Berlin Professional
 
#6
  Alt 23. Jun 2002, 16:06
Zitat von Daniel B:
Von Links: Rot, Grün, Blau.
Eben gerade nicht.
  Mit Zitat antworten Zitat
Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#7
  Alt 23. Jun 2002, 16:08
Zitat von jbg:
Zitat von Daniel B:
Von Links: Rot, Grün, Blau.
Eben gerade nicht.
Tpercon ging es aber um HTML Farben (da steht Rot ganz links)...
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat
jbg

Registriert seit: 12. Jun 2002
3.483 Beiträge
 
Delphi 10.1 Berlin Professional
 
#8
  Alt 23. Jun 2002, 16:13
Das ist mir schon klar. Aber ich habe Daniel B's Posting so verstanden, dass er meinen Text, der sich auf die Farbreihenfolge für die Übergabe an StringToColor bezieht, verbessern wollte, wobei seine Aussage dann falsch ist.
  Mit Zitat antworten Zitat
Daniel B
(Gast)

n/a Beiträge
 
#9
  Alt 23. Jun 2002, 16:31
Zitat von sakura:
Zitat von jbg:
Zitat von Daniel B:
Von Links: Rot, Grün, Blau.
Eben gerade nicht.
Tpercon ging es aber um HTML Farben (da steht Rot ganz links)...
Danke, so war das gemeint. Ich weiss was TPercon vor hat.
  Mit Zitat antworten Zitat
Tpercon

Registriert seit: 7. Jun 2002
638 Beiträge
 
Delphi 5 Professional
 
#10
  Alt 23. Jun 2002, 18:31
Hab die Version von sakura und Christian genommen. Funktioniert perfekt.

Danke und Gruß
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:43 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