[SOLVED] Convert Color List Box to #HEX

[pixelink]

Hi.

Using the TColorlist on Windows 7 with LAZ 2.0

Double-clicking on the red color gives me the number...  255

I am trying to convert it to a #hex number such as #FF0000 (html) in my code

I can't find it yet, can someone help?

[pixelink]

Oops... I found this page...
Let me give it a try first

http://wiki.freepascal.org/Convert_color_to/from_HTML

[pixelink]

There it was.... pretty easy...

Code: Pascal  [Select][+][-]

1. [
2. procedure TForm3.lstColorDblClick(Sender: TObject);
3. var
4.   N: Longint;
5.   Result: String;
6. begin
7.   if Color=clNone then
8.     begin
9.         Result:= '';
10.         exit;
11.     end;
12.  
13.  
14.   N:= ColorToRGB(lstColor.Selected);
15.   Result:= '#'+
16.     IntToHex(Red(N), 2)+
17.     IntToHex(Green(N), 2)+
18.     IntToHex(Blue(N), 2);
19.  
20.   showmessage(Result);
21.  
22. end;
23. /code]

[lucamar]

Shouldn't that be:

Code: Pascal  [Select][+][-]

1. procedure TForm3.lstColorDblClick(Sender: TObject);
2. var
3.   N: Longint;
4.   Result: String;
5. begin
6.   if lstColor.Selected = clNone then
7.     begin
8.         Result:= '';
9.         exit;
10.     end;
11.  
12.   N:= ColorToRGB(lstColor.Selected);
13.   Result:= '#'+
14.     IntToHex(Red(N), 2)+
15.     IntToHex(Green(N), 2)+
16.     IntToHex(Blue(N), 2);
17.  
18.   showmessage(Result);
19.  
20. end;

And this might be quicker:

Code: Pascal  [Select][+][-]

1.   N:= ColorToRGB(lstColor.Selected);
2.   TmpStr := IntToHex(n,8);
3.   Result:= '#'+ Copy(TmpStr, 3, 6);

[pixelink]

@lucamar

Yes, some of this code is better.
I got the original from WIKI.

Also, double-checking the "clNone"... the ColorList Box doesn't even display the clNone. So, I am just removing it. It will never be needed. Except maybe another color color.

UPDATED CODE:

Code: Pascal  [Select][+][-]

1. procedure TForm3.lstColorDblClick(Sender: TObject);
2. var
3.   N: Longint;
4.   Results: String;
5.   TmpStr: String;
6.  
7. begin
8.  
9.   N:= ColorToRGB(lstColor.Selected);
10.   TmpStr := IntToHex(n,8);
11.   Results:= '#'+ Copy(TmpStr, 3, 6);
12.  
13.  txtSnippets.SelText:='&' + Results + ':';
14. end;  
15.  

THANKS!

[lucamar]

Dealing with strings can be wasteful both in time and space, so you may want to try this:

Code: Pascal  [Select][+][-]

1. procedure TForm3.lstColorDblClick(Sender: TObject);
2. var
3.   N: Longint;
4.   TmpStr: String;
5. begin
6.   N:= ColorToRGB(lstColor.Selected);
7.   TmpStr := IntToHex(n,8);
8.   txtSnippets.SelText:='&#'+ Copy(TmpStr, 3, 6) + ':';
9. end;

I know: nitpicking. I'll stop here

[pixelink]

Dealing with strings can be wasteful both in time and space, so you may want to try this:

Code: Pascal  [Select][+][-]

1. procedure TForm3.lstColorDblClick(Sender: TObject);
2. var
3.   N: Longint;
4.   TmpStr: String;
5. begin
6.   N:= ColorToRGB(lstColor.Selected);
7.   TmpStr := IntToHex(n,8);
8.   txtSnippets.SelText:='&#'+ Copy(TmpStr, 3, 6) + ':';
9. end;

I know: nitpicking. I'll stop here

naw... want my code to be efficient and simple as can be 

[pixelink]

Nope... using...

Code: Pascal  [Select][+][-]

1. txtSnippets.SelText:='&#'+ Copy(TmpStr, 3, 6) + ':';

just prints out "&#" + number

My original is fine... '#' + number

That is how html is used.

[lucamar]

Nope... using...

Code: Pascal  [Select][+][-]

1. txtSnippets.SelText:='&#'+ Copy(TmpStr, 3, 6) + ':';

just prints out "&#" + number

My original is fine... '#' + number

That is how html is used.

Yeah, that was some mishap of the forum software or some hidden typo I made

[pixelink]

Oops... found a bug in LUCAMAR's code

If I double=click on the red color in TColorList, I get 0000FF (in html that is actually Blue)

Red is FF0000

So, for now I going back to my original code

Code: Pascal  [Select][+][-]

1.  
2. procedure TForm3.lstColorDblClick(Sender: TObject);
3. var
4.   N: Longint;
5.   Results: String;
6.   //TmpStr: String;
7.  
8. begin
9.  
10.   N:= ColorToRGB(lstColor.Selected);
11.   Results:= '#'+
12.     IntToHex(Red(N), 2)+
13.     IntToHex(Green(N), 2)+
14.     IntToHex(Blue(N), 2);
15.  
16.   txtSnippets.SelText:='&' + Results + ':';
17.  
18. end;  
19.  
20.  

It needs the three IntToHEX lines
That dictates the correct RGB order.
This works.

[lucamar]

Oops... found a bug in LUCAMAR's code

Yeah. That happens when one doesn't test his code

Instead try this much more simple (and tested!) implementation:

Code: Pascal  [Select][+][-]

1.  procedure TForm3.lstColorDblClick(Sender: TObject);
2. var
3.   R, G, B: Byte;
4. begin
5.   RedGreenBlue(lstColor.Selected, R, G, B);
6.   txtSnippets.SelText:= Format('#%.2x%.2x%.2x;', [R, G, B]);
7. end;

ETA: Do note that to convert system colors (clWindow, clWindowText etc.) you still have to use ColorToRGB() to get the real color before calling RedGreenBlue().