Delphi-PRAXiS - Delphi RGB2HLS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Multimedia (https://www.delphipraxis.net/16-multimedia/)

- - Delphi RGB2HLS (https://www.delphipraxis.net/11512-rgb2hls.html)

Hi,

wie kann ich einen RGB in einen HLS-Wert umwandeln?
Ich hatte da mal eine Unit, die aber durchs formatieren verschwunden ist...in den Uses heißt sie "RGB_Tran" ...

Google findet das gar nicht und genausowenig finde ich andere funktionierende units...
Im EDH gibts eine fehlerhafte :| und noch eine hab ich gefunden, die aber mit tHLS und tRGB arbeitet, ich würde aber gerne r,g,b und h,l und s nehmen, weil ich sonst alles umbauen müsste...

grüße
flo

Hey Florian,

für Grafik unter Delphi habe ich gute Erfahrunge mit

Graphics32 gemacht. In der Unit g32 ist dort auch eine Funktion RGBToHSL vorhanden. Stöber noch ein bisschen in der Hilfe von Graphics32, Alex A. Denisov hat ein paar wirklich interessante Routinen in seiner Bibliothek...

dein Link geht zu PayForSurveys.com :)

Sorry, hatte das "http://" wg C&P doppelt... Nun geht es.

:hi:

Hier hat es ein Programm (ShowImage) mit QuellCode.
In der Unit ColorLibrary hats eine Procedur . . .

Delphi-Quellcode:

			PROCEDURE RGBTripleToHLS (CONST RGBTriple:  TRGBTriple; VAR   H,L,S:  INTEGER);
		

Hm, und mein RGB_Trans gibts nirgends :pale:

in der G32 find ich nix :stupid:

Ich beziehe ich mich auf die Unit gr32 aus der Bibliothek Graphics32 von Alex A. Denisov und insbesonderer auf ihre sehr gute Hilfe.

Ich meinte nicht die Bibliothek G32, die Alex seit einiger Zeit in Planung hat.

verdammt (sorry), ich hab grad bei google was gefunden, eine seite wo ich dachte das ich es damals downgeloaded habe, da hab ich es ausversehen geschlossen und weg isses...und ich weiß nimmer wonach ich suchte...

Mit den hier geposteten sachen kann ich leider nix anfangen, sind alle irgendwie anders, da muss ich so viel umstellen weil der code so mordslang ist...

Zitat:

in opera die history öffen, im ie den verlauf, und in mozilla wirds da auch was entsprechendes geben...

Hi, danke, gar nicht dran gedacht...

Nach über 30 Seiten mit versch. Suchbegriffen dazu hab ich leider feststellen müssen, dass es nicht das richtige war, war was für ne ganz andere programmiersprache...und auch nicht genau das was ich will...

Zitat:

Zitat von Florian H

Mit den hier geposteten sachen kann ich leider nix anfangen, sind alle irgendwie anders, da muss ich so viel umstellen weil der code so mordslang ist...

Warum schreibst Du nicht eine Wrapper-(genauer: Adapter-)Funktion, um das Problem in den Griff zu bekommen? Sofern Dein Code nicht hochperformant sein muss, stellt das kein Problem dar.

Angenommen, Dein Code referenziert unübersichtlich und schlecht änderbar auf die nicht länger existierende Funkton

Delphi-Quellcode:

function Foo(const APoint: TPoint): Int64;

Dir steht nun die Funktion zu Verfügung

Delphi-Quellcode:

function Bar(const X, Y: Integer): Integer;

Dann könntest Du die Funktion Foo in der Art

Delphi-Quellcode:

			function Foo(const APoint: TPoint): Int64;

begin

  with APoint do

    Result:= Bar(X,Y);

end;

durch eine eigene sog. Adapterfunktion implementieren und Deinen bisherigen Code, der eine spezielle Signatur benötigt, zu einer anderen Funktion mit andere signatur aber selben Aufgabe "kompatibel" machen.

ja, werd ich wohl machen müssen.
danke :)

Hallo,

Delphi kennt übrigens auch ColorRGBToHLS und ColorHLSToRGB. Diese sind in der Unit Graphutil drin. Leider wird diese Unit nicht in der Delphi-Hilfe erwähnt. :roll:

Mfg Frank