Hex-Zahlen umdrehen

[Josef Sniatecki]

Hallo an alle,

habe mich seit Stunden gefragt, wieso bei meinem HTML-Generator in
Operno ständig die falschen Farben gezeigt werden, obwohl das Farbformat
RRGGBB ist. Nun habe ich in der PB-Hilfe gelesen, dass man die Hex-Zahlen
umdrehen muss, wenn man sie als ganzes Stück angeben möchte:
Also FF0000 (Rot) ist dann $0000FF

Das habe ich dann auch gemacht, jedoch gibt der folgende Code im
HTML-Generator immer noch falsche Farben zurück:

Code: Alles auswählen

HTMLCode+"#"+RSet(Hex(Color),6,"0")

Obwohl ich alle Farben umgekehrt angegeben habe, werden diese von
"Hex" falsch übersetzt.

Kann mir jemand helfen die Hex-Zahlen richtig darzustellen? Also im
RRGGBB-Format.

Danke im Voraus
Gruß Josef

[Kaeru Gaman]

Code: Alles auswählen

Procedure.s Val2Color( Value.l )
  Protected Color.s
    Color = "#" + RSet( Hex( Value & $0000FF ) , 2, "0" ) + RSet( Hex( ( Value & $00FF00 ) / $000100 ) , 2, "0" ) + RSet( Hex( ( Value & $FF0000 ) / $010000 ) , 2, "0" ) 
  ProcedureReturn Color
EndProcedure

For n=0 To 19
  Col = Random( $FFFFFF )
  Debug RSet( Hex( Col ), 6, "0" ) + " - " + Val2Color( Col )
Next

[cxAlex]

Code: Alles auswählen

Procedure TurnColor(Color.l)
  Protected tColor.l, *c1.byte, *c2.byte, i
  *c1 = @Color
  *c2 = @tColor + 2*SizeOf(Byte)
  For i = 0 To 2
    *c2\b=*c1\b
    *c1+SizeOf(Byte)
    *c2-SizeOf(Byte)
  Next
  ProcedureReturn tColor
EndProcedure

Color.l = $AABBCC
Debug Hex(Color,#PB_Long)
Color = TurnColor(Color)
Debug Hex(Color,#PB_Long)

Edit: Mist, Kaeru war schneller.

[Kaeru Gaman]

hihi

[Josef Sniatecki]

Hm... jetzt habe ich die Qual der Wahl. Ich nehme mal den unteren, weil
dieser schneller aussieht. Nicht sauer werden Kaeru

Wie war das nochmal in der Schule: Mühe anstatt Schnelligkeit

Trotzdem Danke an euch beide.

[cxAlex]

@Kaeru:

Wo gibts den coolen Chinesen-Smilie? Auf ImageShack mag ich nicht verlinken.

[Kaeru Gaman]

> weil dieser schneller aussieht.

das teil heißt "flitzer" und nennt sich "sportwagen":




> Auf ImageShack mag ich nicht verlinken.

warum?

dann musst du mir webspace spendieren.

dieser Smilie ist von mir, echt selbstgemacht!

ich hab noch ein paar andere im Angebot:

[cxAlex]

http://paladiumproject.q-soft.ch/images/kaeru/

[Kaeru Gaman]

geil, danke!

hatte das mehr als Gäg gemeint, aber ist super.

PS:
ich schick dir ne PN, wenn ich neue mache...

[cxAlex]

ich schick dir ne PN, wenn ich neue mache...

Jo, machn wir so .