Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Webfarben nutzen (https://www.delphipraxis.net/61236-webfarben-nutzen.html)

bluescreen25 18. Jan 2006 17:22


Webfarben nutzen
 
Hallo, kann man eigendlich die Webfarben (z.B. #111111) direkt nutzen? Wenn ich z.B. die Farben in einer .Ini angeben möchte und dann für Font.color etc...?

3_of_8 18. Jan 2006 17:27

Re: Webfarben nutzen
 
Die musst du dann wohl parsen.

Delphi-Quellcode:
function HTMLColorToColor(Color: String): TColor;
begin
Result:=StringToColor('$00'+color[6]+color[7]+color[4]+color[5]+color[2]+color[3]);
end;
Das müsste klappen.

bluescreen25 18. Jan 2006 20:25

Re: Webfarben nutzen
 
Alles OK. Es funktioniert prima !Danke !

3_of_8 18. Jan 2006 23:00

Re: Webfarben nutzen
 
Bittesehr. Es gäbe noch eine permormantere Lösung ohne StringToColor, aber das hier ist eindeutig leichter.

Matze 18. Jan 2006 23:05

Re: Webfarben nutzen
 
Zitat:

Zitat von 3_of_8
Bittesehr. Es gäbe noch eine permormantere Lösung ohne StringToColor, aber das hier ist eindeutig leichter.

Also wenn du das schon anspricht, wollen evtl. einige auch diese Lösung wissen. Poste doch einen Link oder den Code, mit deinem letzten Beitrag fängt so keiner etwas an. :zwinker:

3_of_8 18. Jan 2006 23:15

Re: Webfarben nutzen
 
Na schön, ich versuche es. Aber das ist halt etwas schwerer.

Delphi-Quellcode:
function HexNumberToDec(AValue: Char): Cardinal;
begin
case AValue of
'0'..'9': Result:=ord(AValue)-48;
'A'..'F': Result:=ord(AValue)-55;
end;
end;

function HTMLColorToColor(Color: String): TColor;
begin
Result:=HexNumberToDec(Color[2])+HexNumberToDec(Color[3])*16+HexNumberToDec(Color[4])*256+
 HexNumberToDec(Color[5])*4096+HexNumberToDec(Color[6])*65536+HexNumberToDec(Color[7])*1048576;
end;
Getestet und: Überraschung, es funktioniert. Perfekt. Ich bekomme schon langsam Angst vor mir selber. :shock:

Naja oder so ähnlich. Wenn irgendjemand den Algorithmus oben noch tunen kann, dann bitte ich um Verbesserung.

mh166 19. Jan 2006 08:14

Re: Webfarben nutzen
 
Ich habs jetzt nich getestet, weil ich gleich zum Bus muss (diese elende Schule aber auch... :evil: :mrgreen:) Aber irgendwie kann ich mir nicht vorstellen, dass deine Lösung performanter ist? Kann aber auch ein subjektiver Eindruck sein... Werds heute Nachmittag mal testen! :)

mfg, mh166

sakura 19. Jan 2006 08:37

Re: Webfarben nutzen
 
Ansonsten findest Du in der CodeLibrary noch eine Funktion, welche auch die Standardnamen der HTML Farben übersetzt.

...:cat:...

xaromz 19. Jan 2006 10:02

Re: Webfarben nutzen
 
Hallo,

ich weiß nicht, ob Delphi das automatisch macht, aber man sollte lieber Shiften. Multiplikation ist immer etwas langsam:
Delphi-Quellcode:
function HexNumberToDec(AValue: Char): Cardinal;
begin
  case AValue of
    '0'..'9': Result := Ord(AValue) - 48;
    'A'..'F': Result := Ord(AValue) - 55;
    'a'..'f': Result := Ord(AValue) - 87; // <- Kleinbuchstaben vergessen
  end;
end;

function HTMLColorToColor(const Color: String): TColor;
begin
  Result := HexNumberToDec(Color[2]) + HexNumberToDec(Color[3]) shl 4
    + HexNumberToDec(Color[4]) shl 8 + HexNumberToDec(Color[5]) shl 12
    + HexNumberToDec(Color[6]) shl 16 + HexNumberToDec(Color[7]) shl 20;
end;
Gruß
xaromz

3_of_8 19. Jan 2006 13:29

Re: Webfarben nutzen
 
Wahrscheinlich wird das eh zu shl durch Compilermagic.

Aber an shiften habe ich jetzt gar nicht gedacht. Hab ich vergessen.

Aber performanter als mit dem Stringrumgefummel ist es wahrscheinlich schon.

mh166 19. Jan 2006 22:55

Re: Webfarben nutzen
 
Liste der Anhänge anzeigen (Anzahl: 2)
Also ich hab jetzt alle drei Codes mal in ein test gebaut. Dabei ist rausgekommen, dass sich die letzten beiden Algos absolut nichts nehmen, von der Performance. Der erste jedoch braucht deutlich länger!

Etwas haben aber alle gleich bzw. gerade nicht gleich: nämlich das Ergebnis! Ich weiß nich, wer das jetzt probiert hat, aber ich bekomme bei allen 3 Funktionen unterschiedliche Ergebnisse raus. :lol:

Naja, screenie + echse im Anhang...

mfg, mh166

3_of_8 19. Jan 2006 23:04

Re: Webfarben nutzen
 
Was habe ich gesagt? Glaubt ihr mir jetzt? Werde ich jetzt mit Konfetti beworfen und bekomme einen irrelevanten virtuellen Triumphzug? :mrgreen:

(Nein, das war nicht ernst gemeint)

CG2003 19. Jan 2006 23:06

Re: Webfarben nutzen
 
Zitat:

Zitat von 3_of_8
Werde ich jetzt mit Konfetti beworfen und bekomme einen irrelevanten virtuellen Triumphzug?

:hello: :hello: :hello:

Nee, mal im Ernst, ich fand' es mit den Strings auch "zu hart"...

xaromz 19. Jan 2006 23:13

Re: Webfarben nutzen
 
Hallo,

bei unseren Routinen (2 + 3) ist tatsächlich ein Fehler drin (die Nibbles waren vertauscht). Hier die richtige Routine:
Delphi-Quellcode:
function HexNumberToDec(AValue: Char): Cardinal;
begin
  case AValue of
    '0'..'9': Result := Ord(AValue) - 48;
    'A'..'F': Result := Ord(AValue) - 55;
    'a'..'f': Result := Ord(AValue) - 87;
  end;
end;

function HTMLColorToColor(const Color: String): TColor;
begin
  Result := HexNumberToDec(Color[3]) + HexNumberToDec(Color[2]) shl 4
    + HexNumberToDec(Color[5]) shl 8 + HexNumberToDec(Color[4]) shl 12
    + HexNumberToDec(Color[7]) shl 16 + HexNumberToDec(Color[6]) shl 20;
end;
Zu Deinem Benchmark:
Bei der Eingabe fehlt das # am Anfang, deshalb gibt's auch verschiedene Ergebnisse (abgesehen von obigem Dreher). Mit shl (und const) ist die Routine tatsächlich ~1% schneller, aber das ist hier wohl völlig egal :mrgreen: .

Gruß
xaromz

[add] Ich hab mir jetzt mal Deinen Benchmark angesehen. Was misst Du da? Jeden einzelnen Aufruf? Normalerweise lässt man sowas 2-3 Millionen mal durchlaufen und misst die Gesamtzeit, um Seiteneffekte auszuschließen. Nur so als Anregung :zwinker: [/add]

3_of_8 19. Jan 2006 23:15

Re: Webfarben nutzen
 
Ich bin mir ziemlich sicher, dass der Compiler das mit dem *256 usw. schon richtig hinbiegt.

Compiler Magic halt.

EDIT: Die Fehler habe ich nicht bemerkt, weil ich getestet habe mit #FF0000, #00FF00, #FFFF00 usw.

Verdammt.


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:37 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz