Groups > comp.lang.basic.visual.misc > #1581 > unrolled thread

Color names in color picker used in font common dialog

Started by	-mhd <not_real@invalid.com>
First post	2012-10-08 13:12 -0400
Last post	2012-10-09 13:09 -0400
Articles	20 on this page of 25 — 11 participants

Back to article view | Back to comp.lang.basic.visual.misc

  Color names in color picker used in font common dialog -mhd <not_real@invalid.com> - 2012-10-08 13:12 -0400
    Re: Color names in color picker used in font common dialog "Jeff Johnson" <i.get@enough.spam> - 2012-10-08 14:07 -0400
      Re: Color names in color picker used in font common dialog -mhd <not_real@invalid.com> - 2012-10-08 16:47 -0400
        Re: Color names in color picker used in font common dialog "Mayayana" <mayayana@invalid.nospam> - 2012-10-08 17:20 -0400
          Re: Color names in color picker used in font common dialog -mhd <not_real@invalid.com> - 2012-10-08 19:29 -0400
          Re: Color names in color picker used in font common dialog -mhd <not_real@invalid.com> - 2012-10-08 20:14 -0400
            Re: Color names in color picker used in font common dialog Schmidt <sss@online.de> - 2012-10-09 06:21 +0200
              Re: Color names in color picker used in font common dialog "Norm Cook" <normcook@cableone.net> - 2012-10-09 07:08 -0500
                Re: Color names in color picker used in font common dialog Schmidt <sss@online.de> - 2012-10-09 16:05 +0200
                  Re: Color names in color picker used in font common dialog "Mayayana" <mayayana@invalid.nospam> - 2012-10-09 10:28 -0400
              Re: Color names in color picker used in font common dialog "CoderX" <coder@x.com> - 2012-10-09 16:38 -0400
              Re: Color names in color picker used in font common dialog Ulrich Korndoerfer <ulrich_wants_nospam@prosource.de> - 2012-10-09 23:05 +0200
        Re: Color names in color picker used in font common dialog "Mike Williams" <Mike@WhiskyAndCoke.com> - 2012-10-08 22:42 +0100
          Re: Color names in color picker used in font common dialog "Mike Williams" <Mike@WhiskyAndCoke.com> - 2012-10-08 22:49 +0100
            Re: Color names in color picker used in font common dialog -mhd <not_real@invalid.com> - 2012-10-08 20:15 -0400
        Re: Color names in color picker used in font common dialog Deanna Earley <dee.earley@icode.co.uk> - 2012-10-09 09:30 +0100
        Re: Color names in color picker used in font common dialog "Jeff Johnson" <i.get@enough.spam> - 2012-10-09 13:52 -0400
    Re: Color names in color picker used in font common dialog "DaveO" <djo@dial.pipex.com> - 2012-10-09 11:57 +0100
      Re: Color names in color picker used in font common dialog "DaveO" <djo@dial.pipex.com> - 2012-10-09 15:21 +0100
        Re: Color names in color picker used in font common dialog -mhd <not_real@invalid.com> - 2012-10-09 13:10 -0400
      Re: Color names in color picker used in font common dialog -mhd <not_real@invalid.com> - 2012-10-09 12:58 -0400
        Re: Color names in color picker used in font common dialog -mhd <not_real@invalid.com> - 2012-10-09 15:14 -0400
          Re: Color names in color picker used in font common dialog "Mayayana" <mayayana@invalid.nospam> - 2012-10-09 17:33 -0400
            Re: Color names in color picker used in font common dialog -mhd <not_real@invalid.com> - 2012-10-09 17:49 -0400
    Re: Color names in color picker used in font common dialog Stan Weiss <srweiss@erols.com> - 2012-10-09 13:09 -0400

Page 1 of 2 [1] 2 Next page →

#1581 — Color names in color picker used in font common dialog

From	-mhd <not_real@invalid.com>
Date	2012-10-08 13:12 -0400
Subject	Color names in color picker used in font common dialog
Message-ID	<vk1678de7er1issddh1c0ut44f9nr9t5u9@4ax.com>

I'm now rolling my own font dialog and want to  match the list of 16 colors used
by the color dropbox in the MS font common dialog.

The color names in the MS version do not match the 16 QBCcolors so where can I
get the long rgb values of these colors? I sure would like to find a reference
(I Googled) but I am coming up short.

-mike

[toc] | [next] | [standalone]

#1582

From	"Jeff Johnson" <i.get@enough.spam>
Date	2012-10-08 14:07 -0400
Message-ID	<k4v4pb$jle$1@dont-email.me>
In reply to	#1581

"-mhd" <not_real@invalid.com> wrote in message 
news:vk1678de7er1issddh1c0ut44f9nr9t5u9@4ax.com...

> I'm now rolling my own font dialog and want to  match the list of 16 
> colors used
> by the color dropbox in the MS font common dialog.

> The color names in the MS version do not match the 16 QBCcolors so where 
> can I
> get the long rgb values of these colors? I sure would like to find a 
> reference
> (I Googled) but I am coming up short.

Try http://www.blacksunsoftware.com/screenmagnifier.html

It'll tell you the color value of the pixel under the cursor.

[toc] | [prev] | [next] | [standalone]

#1583

From	-mhd <not_real@invalid.com>
Date	2012-10-08 16:47 -0400
Message-ID	<hke678hoho2q4j8n9jlcvlcecf4eke454p@4ax.com>
In reply to	#1582

"Jeff Johnson" <i.get@enough.spam> wrote:

>"-mhd" <not_real@invalid.com> wrote in message 
>news:vk1678de7er1issddh1c0ut44f9nr9t5u9@4ax.com...
>
>> I'm now rolling my own font dialog and want to  match the list of 16 
>> colors used
>> by the color dropbox in the MS font common dialog.
>
>> The color names in the MS version do not match the 16 QBCcolors so where 
>> can I
>> get the long rgb values of these colors? I sure would like to find a 
>> reference
>> (I Googled) but I am coming up short.
>
>Try http://www.blacksunsoftware.com/screenmagnifier.html
>
>It'll tell you the color value of the pixel under the cursor. 
>

I don't think any of those utilities (I have a few) give the long rgb value but
rather the RGB separate values. I suppose I could drum up a quick app that has
the common font dialog  control and debug print the returned color values.

Part of my question is however what collection are these 16 colors from? Not the
QBColors... 

-mike

[toc] | [prev] | [next] | [standalone]

#1584

From	"Mayayana" <mayayana@invalid.nospam>
Date	2012-10-08 17:20 -0400
Message-ID	<k4vg3j$tkh$1@dont-email.me>
In reply to	#1583

| Part of my question is however what collection are
| these 16 colors from? Not the QBColors...

 Do you mean the colors that you get when choosing a
font in Wordpad? Olive, teal, etc.? Those do seem to be
QBColors, just with different names. Here's a printout of
the QBColors as long and as HTML hex (RGB).

 0
 8388608
 32768
 8421376
 128
 8388736
 32896
 12632256
 8421504
 16711680
 65280
 16776960
 255
 16711935
 65535
 16777215

000000
000080
008000
008080
800000
800080
808000
C0C0C0
808080
0000FF
00FF00
00FFFF
FF0000
FF00FF
FFFF00
FFFFFF

  When I opened the font dialogue, did a screen capture,
and opened it in Paint Shop Pro, I find the font colors are
the same. They're nearly all combinations of 0 and 128 or
0 and 255 RGB. (0 0 128, 0 128 0, etc.)

[toc] | [prev] | [next] | [standalone]

#1587

From	-mhd <not_real@invalid.com>
Date	2012-10-08 19:29 -0400
Message-ID	<run678lv12mb4okhbjqofqg2q39td864cg@4ax.com>
In reply to	#1584

"Mayayana" <mayayana@invalid.nospam> wrote:

> Do you mean the colors that you get when choosing a
>font in Wordpad? Olive, teal, etc.? Those do seem to be
>QBColors, just with different names. Here's a printout of
>the QBColors as long and as HTML hex (RGB).

Well that is great news as I can just dump the 16 QBColor values into the
ItemData field of a combobox and the use the same descriptions as Wordpad and
the font common dialog uses in the comboBox text.

-mike

[toc] | [prev] | [next] | [standalone]

#1588

From	-mhd <not_real@invalid.com>
Date	2012-10-08 20:14 -0400
Message-ID	<prq678909dulqs5kieguigfgaa2mesnu9d@4ax.com>
In reply to	#1584

"Mayayana" <mayayana@invalid.nospam> wrote:

> Do you mean the colors that you get when choosing a
>font in Wordpad? Olive, teal, etc.? Those do seem to be
>QBColors, just with different names. Here's a printout of
>the QBColors as long and as HTML hex (RGB).


I mapped your list to the named colors commonly used in Windows font choosers in
case anyone want to drop these in a control for their own color picker. I
reordered them to match the order Windows usually displays to maintain the look
and feel.

0		Black
800000		Maroon
8000		Green
808000		Olive
80		Navy
800080		Purple
8080		Teal
808080		Gray
C0C0C0		Silver
FF0000		Red
00FF00		Lime
FFFF00		Yellow
0000FF		Blue
FF00FF		Fuschia
00FFFF		Aqua
FFFFFF		White
	
0		Black
128		Maroon
32768		Green
32896		Olive
8388608		Navy
8388736		Purple
8421376		Teal
8421504		Gray
12632256	Silver
255		Red
65280		Lime
65535		Yellow
16711680 	Blue
16711935	Fuschia
16776960	Aqua
16777215	White

-mike

[toc] | [prev] | [next] | [standalone]

#1590

From	Schmidt <sss@online.de>
Date	2012-10-09 06:21 +0200
Message-ID	<k508pe$pn4$1@dont-email.me>
In reply to	#1588

Am 09.10.2012 02:14, schrieb -mhd:

Just another extended List (not over long) of Name-Color-pairs...
(this one conforms to the ColorNames, defined in the SVG-Standard)


'***Into a Form
Option Explicit

Private SVGColorMap As New cSVGColorMap, WithEvents lstColors As ListBox

Private Sub Form_Load()

   Set lstColors = Controls.Add("VB.ListBox", "lstColors")
       lstColors.Move 0, 0, ScaleWidth * 0.3, ScaleHeight
       lstColors.Visible = True

   Dim i As Long
   For i = 0 To SVGColorMap.Count - 1
     lstColors.AddItem SVGColorMap.NameByIndex(i)
   Next i
End Sub

Private Sub lstColors_Click()
   Me.BackColor = SVGColorMap.ColorByName(lstColors.Text)

   'just for control-purposes (to test the NameByIndex-Property)
   Me.Caption = SVGColorMap.NameByIndex(lstColors.ListIndex)
   If Me.Caption <> lstColors.Text Then Stop
End Sub

'------------------------------------------------------------

'*** Into a Class cSVGColorMap
Option Explicit

Private mColorNames As Collection, mColorValues As Collection

Private Sub Class_Initialize()
   Set mColorNames = New Collection
   Set mColorValues = New Collection
   InitSVGColorMap
End Sub

Public Sub Add(ColorName As String, ByVal ColorValue As Long)
   mColorNames.Add ColorName, CStr(mColorNames.Count)
   mColorValues.Add ColorValue, ColorName
End Sub

Public Property Get Count() As Long
   Count = mColorValues.Count
End Property

Public Property Get ColorByName&(ColorName As String)
   ColorByName = mColorValues(ColorName)
End Property

Public Property Get NameByIndex$(ByVal ColorIdxZerobased As Long)
   NameByIndex = mColorNames(CStr(ColorIdxZerobased))
End Property

Public Property Get ColorByIndex&(ByVal ColorIdxZerobased As Long)
   ColorByIndex = mColorValues(ColorNameByIndex(ColorIdxZerobased))
End Property

Private Sub InitSVGColorMap()
   Add "AliceBlue", RGB(239, 247, 255)
   Add "AntiqueWhite", RGB(249, 234, 215)
   Add "Aqua", RGB(0, 255, 255)
   Add "Aquamarine", RGB(126, 255, 211)
   Add "Azure", RGB(239, 255, 255)
   Add "Beige", RGB(244, 244, 220)
   Add "Bisque", RGB(255, 227, 196)
   Add "Black", RGB(0, 0, 0)
   Add "BlanchedAlmond", RGB(255, 234, 205)
   Add "Blue", RGB(0, 0, 255)
   Add "BlueViolet", RGB(137, 43, 226)
   Add "Brown", RGB(165, 42, 42)
   Add "BurlyWood", RGB(221, 183, 135)
   Add "CadetBlue", RGB(94, 158, 160)
   Add "Chartreuse", RGB(126, 255, 0)
   Add "Chocolate", RGB(210, 104, 29)
   Add "Coral", RGB(255, 126, 79)
   Add "CornflowerBlue", RGB(99, 149, 237)
   Add "Cornsilk", RGB(255, 247, 220)
   Add "Crimson", RGB(220, 20, 59)
   Add "Cyan", RGB(0, 255, 255)
   Add "DarkBlue", RGB(0, 0, 138)
   Add "DarkCyan", RGB(0, 138, 138)
   Add "DarkGoldenrod", RGB(183, 133, 11)
   Add "DarkGray", RGB(169, 169, 169)
   Add "DarkGreen", RGB(0, 99, 0)
   Add "DarkGrey", RGB(169, 169, 169)
   Add "DarkKhaki", RGB(188, 182, 107)
   Add "DarkMagenta", RGB(138, 0, 138)
   Add "DarkOliveGreen", RGB(84, 107, 47)
   Add "DarkOrange", RGB(255, 140, 0)
   Add "DarkOrchid", RGB(183, 49, 204)
   Add "DarkRed", RGB(138, 0, 0)
   Add "DarkSalmon", RGB(232, 150, 122)
   Add "DarkSeaGreen", RGB(142, 187, 142)
   Add "DarkSlateBlue", RGB(72, 61, 138)
   Add "DarkSlateGray", RGB(47, 79, 79)
   Add "DarkSlateGrey", RGB(47, 79, 79)
   Add "DarkTurquoise", RGB(0, 206, 209)
   Add "DarkViolet", RGB(147, 0, 211)
   Add "DeepPink", RGB(255, 20, 146)
   Add "DeepSkyBlue", RGB(0, 191, 255)
   Add "DimGray", RGB(104, 104, 104)
   Add "DimGrey", RGB(104, 104, 104)
   Add "DodgerBlue", RGB(29, 144, 255)
   Add "FireBrick", RGB(177, 33, 33)
   Add "FloralWhite", RGB(255, 249, 239)
   Add "ForestGreen", RGB(33, 138, 33)
   Add "Fuchsia", RGB(255, 0, 255)
   Add "Gainsboro", RGB(220, 220, 220)
   Add "GhostWhite", RGB(247, 247, 255)
   Add "Gold", RGB(255, 215, 0)
   Add "Goldenrod", RGB(218, 165, 31)
   Add "Gray", RGB(127, 127, 127)
   Add "Green", RGB(0, 127, 0)
   Add "GreenYellow", RGB(173, 255, 47)
   Add "Grey", RGB(127, 127, 127)
   Add "Honeydew", RGB(239, 255, 239)
   Add "HotPink", RGB(255, 104, 179)
   Add "IndianRed", RGB(205, 91, 91)
   Add "Indigo", RGB(74, 0, 130)
   Add "Ivory", RGB(255, 255, 239)
   Add "Khaki", RGB(239, 229, 140)
   Add "Lavender", RGB(229, 229, 249)
   Add "LavenderBlush", RGB(255, 239, 244)
   Add "LawnGreen", RGB(124, 252, 0)
   Add "LemonChiffon", RGB(255, 249, 205)
   Add "LightBlue", RGB(173, 216, 229)
   Add "LightCoral", RGB(239, 127, 127)
   Add "LightCyan", RGB(224, 255, 255)
   Add "LightGoldenrod", RGB(237, 221, 130)
   Add "LightGoldenrodYellow", RGB(249, 249, 210)
   Add "LightGray", RGB(211, 211, 211)
   Add "LightGreen", RGB(144, 237, 144)
   Add "LightGrey", RGB(211, 211, 211)
   Add "LightPink", RGB(255, 181, 192)
   Add "LightSalmon", RGB(255, 160, 122)
   Add "LightSeaGreen", RGB(31, 177, 170)
   Add "LightSkyBlue", RGB(135, 206, 249)
   Add "LightSlateBlue", RGB(132, 112, 255)
   Add "LightSlateGray", RGB(119, 135, 153)
   Add "LightSlateGrey", RGB(119, 135, 153)
   Add "LightSteelBlue", RGB(175, 196, 221)
   Add "LightYellow", RGB(255, 255, 224)
   Add "Lime", RGB(0, 255, 0)
   Add "LimeGreen", RGB(49, 205, 49)
   Add "Linen", RGB(249, 239, 229)
   Add "Magenta", RGB(255, 0, 255)
   Add "Maroon", RGB(127, 0, 0)
   Add "MediumAquamarine", RGB(102, 205, 170)
   Add "MediumBlue", RGB(0, 0, 205)
   Add "MediumOrchid", RGB(186, 84, 211)
   Add "MediumPurple", RGB(146, 112, 219)
   Add "MediumSeaGreen", RGB(59, 178, 113)
   Add "MediumSlateBlue", RGB(123, 104, 237)
   Add "MediumSpringGreen", RGB(0, 249, 154)
   Add "MediumTurquoise", RGB(72, 209, 204)
   Add "MediumVioletRed", RGB(198, 21, 132)
   Add "MidnightBlue", RGB(24, 24, 112)
   Add "MintCream", RGB(244, 255, 249)
   Add "MistyRose", RGB(255, 227, 225)
   Add "Moccasin", RGB(255, 227, 181)
   Add "NavajoWhite", RGB(255, 221, 173)
   Add "Navy", RGB(0, 0, 127)
   Add "NavyBlue", RGB(0, 0, 127)
   Add "OldLace", RGB(252, 244, 229)
   Add "Olive", RGB(127, 127, 0)
   Add "OliveDrab", RGB(107, 141, 34)
   Add "Orange", RGB(255, 165, 0)
   Add "OrangeRed", RGB(255, 68, 0)
   Add "Orchid", RGB(218, 112, 214)
   Add "PaleGoldenrod", RGB(237, 232, 170)
   Add "PaleGreen", RGB(151, 251, 151)
   Add "PaleTurquoise", RGB(175, 237, 237)
   Add "PaleVioletRed", RGB(219, 112, 146)
   Add "PapayaWhip", RGB(255, 238, 212)
   Add "PeachPuff", RGB(255, 218, 184)
   Add "Peru", RGB(205, 132, 63)
   Add "Pink", RGB(255, 191, 202)
   Add "Plum", RGB(221, 160, 221)
   Add "PowderBlue", RGB(175, 224, 229)
   Add "Purple", RGB(127, 0, 127)
   Add "Red", RGB(255, 0, 0)
   Add "RosyBrown", RGB(187, 142, 142)
   Add "RoyalBlue", RGB(65, 104, 225)
   Add "SaddleBrown", RGB(138, 68, 19)
   Add "Salmon", RGB(249, 127, 114)
   Add "SandyBrown", RGB(243, 164, 95)
   Add "SeaGreen", RGB(45, 138, 86)
   Add "Seashell", RGB(255, 244, 237)
   Add "Sienna", RGB(160, 81, 44)
   Add "Silver", RGB(191, 191, 191)
   Add "SkyBlue", RGB(135, 206, 234)
   Add "SlateBlue", RGB(105, 89, 205)
   Add "SlateGray", RGB(112, 127, 144)
   Add "SlateGrey", RGB(112, 127, 144)
   Add "Snow", RGB(255, 249, 249)
   Add "SpringGreen", RGB(0, 255, 126)
   Add "SteelBlue", RGB(70, 130, 179)
   Add "Tan", RGB(210, 179, 140)
   Add "Teal", RGB(0, 127, 127)
   Add "Thistle", RGB(216, 191, 216)
   Add "Tomato", RGB(255, 99, 71)
   Add "Turquoise", RGB(63, 224, 207)
   Add "Violet", RGB(237, 130, 237)
   Add "VioletRed", RGB(208, 31, 144)
   Add "Wheat", RGB(244, 221, 178)
   Add "White", RGB(255, 255, 255)
   Add "WhiteSmoke", RGB(244, 244, 244)
   Add "Yellow", RGB(255, 255, 0)
   Add "YellowGreen", RGB(154, 205, 49)
End Sub

[toc] | [prev] | [next] | [standalone]

#1593

From	"Norm Cook" <normcook@cableone.net>
Date	2012-10-09 07:08 -0500
Message-ID	<k5143f$vhs$1@dont-email.me>
In reply to	#1590

"Schmidt" <sss@online.de> wrote in message 
news:k508pe$pn4$1@dont-email.me...
> Am 09.10.2012 02:14, schrieb -mhd:
>
> Just another extended List (not over long) of Name-Color-pairs...
> (this one conforms to the ColorNames, defined in the SVG-Standard)
>
>
> '***Into a Form
> Option Explicit
>
> Private SVGColorMap As New cSVGColorMap, WithEvents lstColors As ListBox
>
> Private Sub Form_Load()
>
>   Set lstColors = Controls.Add("VB.ListBox", "lstColors")
>       lstColors.Move 0, 0, ScaleWidth * 0.3, ScaleHeight
>       lstColors.Visible = True
>
<Snip>
Olaf thanks for sharing.  One small correction:
Looks like

Public Property Get NameByIndex$(ByVal ColorIdxZerobased As Long)
   NameByIndex = mColorNames(CStr(ColorIdxZerobased))
End Property

should be named ColorNameByIndex in order for
ColorByIndex to compile.

[toc] | [prev] | [next] | [standalone]

#1594

From	Schmidt <sss@online.de>
Date	2012-10-09 16:05 +0200
Message-ID	<k51avd$aci$1@dont-email.me>
In reply to	#1593

Am 09.10.2012 14:08, schrieb Norm Cook:

> Public Property Get NameByIndex$(ByVal ColorIdxZerobased As Long)
>     NameByIndex = mColorNames(CStr(ColorIdxZerobased))
> End Property
>
> should be named ColorNameByIndex in order for
> ColorByIndex to compile.
>

Oops, yes - thanks - I've cobbled that class together a bit,
to simulate the features of a cCollection (which is the
host for this color-list in my SVG-parser).

The error should have become apparent, when I just
had used the right Test (in the lstColors_Click-event).
As originally posted, also the test doesn't make any sense.

Here the whole (corrected) thing again with a better test:

'***Into a Test-Form
Option Explicit

Private SVGColorMap As New cSVGColorMap, WithEvents lstColors As ListBox

Private Sub Form_Load()

   Set lstColors = Controls.Add("VB.ListBox", "lstColors")
       lstColors.Move 0, 0, ScaleWidth * 0.3, ScaleHeight
       lstColors.Visible = True

   Dim i As Long
   For i = 0 To SVGColorMap.Count - 1
     lstColors.AddItem SVGColorMap.NameByIndex(i)
   Next i
End Sub

Private Sub lstColors_Click()
   Caption = lstColors.Text
   BackColor = SVGColorMap.ColorByName(lstColors.Text)

'just for control-purposes (to test the ColorByIndex-Property)
If BackColor <> SVGColorMap.ColorByIndex(lstColors.ListIndex) Then Stop
End Sub

'***into a Class cSVGColorMap
Option Explicit

Private mColorNames As Collection, mColorValues As Collection

Private Sub Class_Initialize()
   Set mColorNames = New Collection
   Set mColorValues = New Collection
   InitSVGColorMap
End Sub

Public Sub Add(ColorName As String, ByVal ColorValue As Long)
   mColorNames.Add ColorName, CStr(mColorNames.Count)
   mColorValues.Add ColorValue, ColorName
End Sub

Public Property Get Count() As Long
   Count = mColorValues.Count
End Property

Public Property Get ColorByName&(ColorName As String)
   ColorByName = mColorValues(ColorName)
End Property

Public Property Get NameByIndex$(ByVal ColorIdxZerobased As Long)
   NameByIndex = mColorNames(CStr(ColorIdxZerobased))
End Property

Public Property Get ColorByIndex&(ByVal ColorIdxZerobased As Long)
   ColorByIndex = mColorValues(NameByIndex(ColorIdxZerobased))
End Property

Private Sub InitSVGColorMap()
   Add "AliceBlue", RGB(239, 247, 255)
   Add "AntiqueWhite", RGB(249, 234, 215)
   Add "Aqua", RGB(0, 255, 255)
   Add "Aquamarine", RGB(126, 255, 211)
   Add "Azure", RGB(239, 255, 255)
   Add "Beige", RGB(244, 244, 220)
   Add "Bisque", RGB(255, 227, 196)
   Add "Black", RGB(0, 0, 0)
   Add "BlanchedAlmond", RGB(255, 234, 205)
   Add "Blue", RGB(0, 0, 255)
   Add "BlueViolet", RGB(137, 43, 226)
   Add "Brown", RGB(165, 42, 42)
   Add "BurlyWood", RGB(221, 183, 135)
   Add "CadetBlue", RGB(94, 158, 160)
   Add "Chartreuse", RGB(126, 255, 0)
   Add "Chocolate", RGB(210, 104, 29)
   Add "Coral", RGB(255, 126, 79)
   Add "CornflowerBlue", RGB(99, 149, 237)
   Add "Cornsilk", RGB(255, 247, 220)
   Add "Crimson", RGB(220, 20, 59)
   Add "Cyan", RGB(0, 255, 255)
   Add "DarkBlue", RGB(0, 0, 138)
   Add "DarkCyan", RGB(0, 138, 138)
   Add "DarkGoldenrod", RGB(183, 133, 11)
   Add "DarkGray", RGB(169, 169, 169)
   Add "DarkGreen", RGB(0, 99, 0)
   Add "DarkGrey", RGB(169, 169, 169)
   Add "DarkKhaki", RGB(188, 182, 107)
   Add "DarkMagenta", RGB(138, 0, 138)
   Add "DarkOliveGreen", RGB(84, 107, 47)
   Add "DarkOrange", RGB(255, 140, 0)
   Add "DarkOrchid", RGB(183, 49, 204)
   Add "DarkRed", RGB(138, 0, 0)
   Add "DarkSalmon", RGB(232, 150, 122)
   Add "DarkSeaGreen", RGB(142, 187, 142)
   Add "DarkSlateBlue", RGB(72, 61, 138)
   Add "DarkSlateGray", RGB(47, 79, 79)
   Add "DarkSlateGrey", RGB(47, 79, 79)
   Add "DarkTurquoise", RGB(0, 206, 209)
   Add "DarkViolet", RGB(147, 0, 211)
   Add "DeepPink", RGB(255, 20, 146)
   Add "DeepSkyBlue", RGB(0, 191, 255)
   Add "DimGray", RGB(104, 104, 104)
   Add "DimGrey", RGB(104, 104, 104)
   Add "DodgerBlue", RGB(29, 144, 255)
   Add "FireBrick", RGB(177, 33, 33)
   Add "FloralWhite", RGB(255, 249, 239)
   Add "ForestGreen", RGB(33, 138, 33)
   Add "Fuchsia", RGB(255, 0, 255)
   Add "Gainsboro", RGB(220, 220, 220)
   Add "GhostWhite", RGB(247, 247, 255)
   Add "Gold", RGB(255, 215, 0)
   Add "Goldenrod", RGB(218, 165, 31)
   Add "Gray", RGB(127, 127, 127)
   Add "Green", RGB(0, 127, 0)
   Add "GreenYellow", RGB(173, 255, 47)
   Add "Grey", RGB(127, 127, 127)
   Add "Honeydew", RGB(239, 255, 239)
   Add "HotPink", RGB(255, 104, 179)
   Add "IndianRed", RGB(205, 91, 91)
   Add "Indigo", RGB(74, 0, 130)
   Add "Ivory", RGB(255, 255, 239)
   Add "Khaki", RGB(239, 229, 140)
   Add "Lavender", RGB(229, 229, 249)
   Add "LavenderBlush", RGB(255, 239, 244)
   Add "LawnGreen", RGB(124, 252, 0)
   Add "LemonChiffon", RGB(255, 249, 205)
   Add "LightBlue", RGB(173, 216, 229)
   Add "LightCoral", RGB(239, 127, 127)
   Add "LightCyan", RGB(224, 255, 255)
   Add "LightGoldenrod", RGB(237, 221, 130)
   Add "LightGoldenrodYellow", RGB(249, 249, 210)
   Add "LightGray", RGB(211, 211, 211)
   Add "LightGreen", RGB(144, 237, 144)
   Add "LightGrey", RGB(211, 211, 211)
   Add "LightPink", RGB(255, 181, 192)
   Add "LightSalmon", RGB(255, 160, 122)
   Add "LightSeaGreen", RGB(31, 177, 170)
   Add "LightSkyBlue", RGB(135, 206, 249)
   Add "LightSlateBlue", RGB(132, 112, 255)
   Add "LightSlateGray", RGB(119, 135, 153)
   Add "LightSlateGrey", RGB(119, 135, 153)
   Add "LightSteelBlue", RGB(175, 196, 221)
   Add "LightYellow", RGB(255, 255, 224)
   Add "Lime", RGB(0, 255, 0)
   Add "LimeGreen", RGB(49, 205, 49)
   Add "Linen", RGB(249, 239, 229)
   Add "Magenta", RGB(255, 0, 255)
   Add "Maroon", RGB(127, 0, 0)
   Add "MediumAquamarine", RGB(102, 205, 170)
   Add "MediumBlue", RGB(0, 0, 205)
   Add "MediumOrchid", RGB(186, 84, 211)
   Add "MediumPurple", RGB(146, 112, 219)
   Add "MediumSeaGreen", RGB(59, 178, 113)
   Add "MediumSlateBlue", RGB(123, 104, 237)
   Add "MediumSpringGreen", RGB(0, 249, 154)
   Add "MediumTurquoise", RGB(72, 209, 204)
   Add "MediumVioletRed", RGB(198, 21, 132)
   Add "MidnightBlue", RGB(24, 24, 112)
   Add "MintCream", RGB(244, 255, 249)
   Add "MistyRose", RGB(255, 227, 225)
   Add "Moccasin", RGB(255, 227, 181)
   Add "NavajoWhite", RGB(255, 221, 173)
   Add "Navy", RGB(0, 0, 127)
   Add "NavyBlue", RGB(0, 0, 127)
   Add "OldLace", RGB(252, 244, 229)
   Add "Olive", RGB(127, 127, 0)
   Add "OliveDrab", RGB(107, 141, 34)
   Add "Orange", RGB(255, 165, 0)
   Add "OrangeRed", RGB(255, 68, 0)
   Add "Orchid", RGB(218, 112, 214)
   Add "PaleGoldenrod", RGB(237, 232, 170)
   Add "PaleGreen", RGB(151, 251, 151)
   Add "PaleTurquoise", RGB(175, 237, 237)
   Add "PaleVioletRed", RGB(219, 112, 146)
   Add "PapayaWhip", RGB(255, 238, 212)
   Add "PeachPuff", RGB(255, 218, 184)
   Add "Peru", RGB(205, 132, 63)
   Add "Pink", RGB(255, 191, 202)
   Add "Plum", RGB(221, 160, 221)
   Add "PowderBlue", RGB(175, 224, 229)
   Add "Purple", RGB(127, 0, 127)
   Add "Red", RGB(255, 0, 0)
   Add "RosyBrown", RGB(187, 142, 142)
   Add "RoyalBlue", RGB(65, 104, 225)
   Add "SaddleBrown", RGB(138, 68, 19)
   Add "Salmon", RGB(249, 127, 114)
   Add "SandyBrown", RGB(243, 164, 95)
   Add "SeaGreen", RGB(45, 138, 86)
   Add "Seashell", RGB(255, 244, 237)
   Add "Sienna", RGB(160, 81, 44)
   Add "Silver", RGB(191, 191, 191)
   Add "SkyBlue", RGB(135, 206, 234)
   Add "SlateBlue", RGB(105, 89, 205)
   Add "SlateGray", RGB(112, 127, 144)
   Add "SlateGrey", RGB(112, 127, 144)
   Add "Snow", RGB(255, 249, 249)
   Add "SpringGreen", RGB(0, 255, 126)
   Add "SteelBlue", RGB(70, 130, 179)
   Add "Tan", RGB(210, 179, 140)
   Add "Teal", RGB(0, 127, 127)
   Add "Thistle", RGB(216, 191, 216)
   Add "Tomato", RGB(255, 99, 71)
   Add "Turquoise", RGB(63, 224, 207)
   Add "Violet", RGB(237, 130, 237)
   Add "VioletRed", RGB(208, 31, 144)
   Add "Wheat", RGB(244, 221, 178)
   Add "White", RGB(255, 255, 255)
   Add "WhiteSmoke", RGB(244, 244, 244)
   Add "Yellow", RGB(255, 255, 0)
   Add "YellowGreen", RGB(154, 205, 49)
End Sub

Olaf

[toc] | [prev] | [next] | [standalone]

#1596

From	"Mayayana" <mayayana@invalid.nospam>
Date	2012-10-09 10:28 -0400
Message-ID	<k51cb6$j26$1@dont-email.me>
In reply to	#1594

Remind me never to have you redecorate my living room.
ForestGreen looks like grass green. LawnGreen looks
like DayGlo green, and Khaki looks like banana cream pie
crossed with lemon meringue pie. (The straight banana
cream pie being called "Moccasin".)   :)

[toc] | [prev] | [next] | [standalone]

#1602

From	"CoderX" <coder@x.com>
Date	2012-10-09 16:38 -0400
Message-ID	<k52206$633$1@dont-email.me>
In reply to	#1590

Damn Olaf!  No one can ever accuse you of doing anything half-assed.  <g>

"Schmidt" <sss@online.de> wrote in message 
news:k508pe$pn4$1@dont-email.me...
> Am 09.10.2012 02:14, schrieb -mhd:
>
> Just another extended List (not over long) of Name-Color-pairs...
> (this one conforms to the ColorNames, defined in the SVG-Standard)
>
>
> '***Into a Form
> Option Explicit
>
> Private SVGColorMap As New cSVGColorMap, WithEvents lstColors As ListBox
>
> Private Sub Form_Load()
>
>   Set lstColors = Controls.Add("VB.ListBox", "lstColors")
>       lstColors.Move 0, 0, ScaleWidth * 0.3, ScaleHeight
>       lstColors.Visible = True
>
>   Dim i As Long
>   For i = 0 To SVGColorMap.Count - 1
>     lstColors.AddItem SVGColorMap.NameByIndex(i)
>   Next i
> End Sub
>
> Private Sub lstColors_Click()
>   Me.BackColor = SVGColorMap.ColorByName(lstColors.Text)
>
>   'just for control-purposes (to test the NameByIndex-Property)
>   Me.Caption = SVGColorMap.NameByIndex(lstColors.ListIndex)
>   If Me.Caption <> lstColors.Text Then Stop
> End Sub
>
> '------------------------------------------------------------
>
> '*** Into a Class cSVGColorMap
> Option Explicit
>
> Private mColorNames As Collection, mColorValues As Collection
>
> Private Sub Class_Initialize()
>   Set mColorNames = New Collection
>   Set mColorValues = New Collection
>   InitSVGColorMap
> End Sub
>
> Public Sub Add(ColorName As String, ByVal ColorValue As Long)
>   mColorNames.Add ColorName, CStr(mColorNames.Count)
>   mColorValues.Add ColorValue, ColorName
> End Sub
>
> Public Property Get Count() As Long
>   Count = mColorValues.Count
> End Property
>
> Public Property Get ColorByName&(ColorName As String)
>   ColorByName = mColorValues(ColorName)
> End Property
>
> Public Property Get NameByIndex$(ByVal ColorIdxZerobased As Long)
>   NameByIndex = mColorNames(CStr(ColorIdxZerobased))
> End Property
>
> Public Property Get ColorByIndex&(ByVal ColorIdxZerobased As Long)
>   ColorByIndex = mColorValues(ColorNameByIndex(ColorIdxZerobased))
> End Property
>
> Private Sub InitSVGColorMap()
>   Add "AliceBlue", RGB(239, 247, 255)
>   Add "AntiqueWhite", RGB(249, 234, 215)
>   Add "Aqua", RGB(0, 255, 255)
>   Add "Aquamarine", RGB(126, 255, 211)
>   Add "Azure", RGB(239, 255, 255)
>   Add "Beige", RGB(244, 244, 220)
>   Add "Bisque", RGB(255, 227, 196)
>   Add "Black", RGB(0, 0, 0)
>   Add "BlanchedAlmond", RGB(255, 234, 205)
>   Add "Blue", RGB(0, 0, 255)
>   Add "BlueViolet", RGB(137, 43, 226)
>   Add "Brown", RGB(165, 42, 42)
>   Add "BurlyWood", RGB(221, 183, 135)
>   Add "CadetBlue", RGB(94, 158, 160)
>   Add "Chartreuse", RGB(126, 255, 0)
>   Add "Chocolate", RGB(210, 104, 29)
>   Add "Coral", RGB(255, 126, 79)
>   Add "CornflowerBlue", RGB(99, 149, 237)
>   Add "Cornsilk", RGB(255, 247, 220)
>   Add "Crimson", RGB(220, 20, 59)
>   Add "Cyan", RGB(0, 255, 255)
>   Add "DarkBlue", RGB(0, 0, 138)
>   Add "DarkCyan", RGB(0, 138, 138)
>   Add "DarkGoldenrod", RGB(183, 133, 11)
>   Add "DarkGray", RGB(169, 169, 169)
>   Add "DarkGreen", RGB(0, 99, 0)
>   Add "DarkGrey", RGB(169, 169, 169)
>   Add "DarkKhaki", RGB(188, 182, 107)
>   Add "DarkMagenta", RGB(138, 0, 138)
>   Add "DarkOliveGreen", RGB(84, 107, 47)
>   Add "DarkOrange", RGB(255, 140, 0)
>   Add "DarkOrchid", RGB(183, 49, 204)
>   Add "DarkRed", RGB(138, 0, 0)
>   Add "DarkSalmon", RGB(232, 150, 122)
>   Add "DarkSeaGreen", RGB(142, 187, 142)
>   Add "DarkSlateBlue", RGB(72, 61, 138)
>   Add "DarkSlateGray", RGB(47, 79, 79)
>   Add "DarkSlateGrey", RGB(47, 79, 79)
>   Add "DarkTurquoise", RGB(0, 206, 209)
>   Add "DarkViolet", RGB(147, 0, 211)
>   Add "DeepPink", RGB(255, 20, 146)
>   Add "DeepSkyBlue", RGB(0, 191, 255)
>   Add "DimGray", RGB(104, 104, 104)
>   Add "DimGrey", RGB(104, 104, 104)
>   Add "DodgerBlue", RGB(29, 144, 255)
>   Add "FireBrick", RGB(177, 33, 33)
>   Add "FloralWhite", RGB(255, 249, 239)
>   Add "ForestGreen", RGB(33, 138, 33)
>   Add "Fuchsia", RGB(255, 0, 255)
>   Add "Gainsboro", RGB(220, 220, 220)
>   Add "GhostWhite", RGB(247, 247, 255)
>   Add "Gold", RGB(255, 215, 0)
>   Add "Goldenrod", RGB(218, 165, 31)
>   Add "Gray", RGB(127, 127, 127)
>   Add "Green", RGB(0, 127, 0)
>   Add "GreenYellow", RGB(173, 255, 47)
>   Add "Grey", RGB(127, 127, 127)
>   Add "Honeydew", RGB(239, 255, 239)
>   Add "HotPink", RGB(255, 104, 179)
>   Add "IndianRed", RGB(205, 91, 91)
>   Add "Indigo", RGB(74, 0, 130)
>   Add "Ivory", RGB(255, 255, 239)
>   Add "Khaki", RGB(239, 229, 140)
>   Add "Lavender", RGB(229, 229, 249)
>   Add "LavenderBlush", RGB(255, 239, 244)
>   Add "LawnGreen", RGB(124, 252, 0)
>   Add "LemonChiffon", RGB(255, 249, 205)
>   Add "LightBlue", RGB(173, 216, 229)
>   Add "LightCoral", RGB(239, 127, 127)
>   Add "LightCyan", RGB(224, 255, 255)
>   Add "LightGoldenrod", RGB(237, 221, 130)
>   Add "LightGoldenrodYellow", RGB(249, 249, 210)
>   Add "LightGray", RGB(211, 211, 211)
>   Add "LightGreen", RGB(144, 237, 144)
>   Add "LightGrey", RGB(211, 211, 211)
>   Add "LightPink", RGB(255, 181, 192)
>   Add "LightSalmon", RGB(255, 160, 122)
>   Add "LightSeaGreen", RGB(31, 177, 170)
>   Add "LightSkyBlue", RGB(135, 206, 249)
>   Add "LightSlateBlue", RGB(132, 112, 255)
>   Add "LightSlateGray", RGB(119, 135, 153)
>   Add "LightSlateGrey", RGB(119, 135, 153)
>   Add "LightSteelBlue", RGB(175, 196, 221)
>   Add "LightYellow", RGB(255, 255, 224)
>   Add "Lime", RGB(0, 255, 0)
>   Add "LimeGreen", RGB(49, 205, 49)
>   Add "Linen", RGB(249, 239, 229)
>   Add "Magenta", RGB(255, 0, 255)
>   Add "Maroon", RGB(127, 0, 0)
>   Add "MediumAquamarine", RGB(102, 205, 170)
>   Add "MediumBlue", RGB(0, 0, 205)
>   Add "MediumOrchid", RGB(186, 84, 211)
>   Add "MediumPurple", RGB(146, 112, 219)
>   Add "MediumSeaGreen", RGB(59, 178, 113)
>   Add "MediumSlateBlue", RGB(123, 104, 237)
>   Add "MediumSpringGreen", RGB(0, 249, 154)
>   Add "MediumTurquoise", RGB(72, 209, 204)
>   Add "MediumVioletRed", RGB(198, 21, 132)
>   Add "MidnightBlue", RGB(24, 24, 112)
>   Add "MintCream", RGB(244, 255, 249)
>   Add "MistyRose", RGB(255, 227, 225)
>   Add "Moccasin", RGB(255, 227, 181)
>   Add "NavajoWhite", RGB(255, 221, 173)
>   Add "Navy", RGB(0, 0, 127)
>   Add "NavyBlue", RGB(0, 0, 127)
>   Add "OldLace", RGB(252, 244, 229)
>   Add "Olive", RGB(127, 127, 0)
>   Add "OliveDrab", RGB(107, 141, 34)
>   Add "Orange", RGB(255, 165, 0)
>   Add "OrangeRed", RGB(255, 68, 0)
>   Add "Orchid", RGB(218, 112, 214)
>   Add "PaleGoldenrod", RGB(237, 232, 170)
>   Add "PaleGreen", RGB(151, 251, 151)
>   Add "PaleTurquoise", RGB(175, 237, 237)
>   Add "PaleVioletRed", RGB(219, 112, 146)
>   Add "PapayaWhip", RGB(255, 238, 212)
>   Add "PeachPuff", RGB(255, 218, 184)
>   Add "Peru", RGB(205, 132, 63)
>   Add "Pink", RGB(255, 191, 202)
>   Add "Plum", RGB(221, 160, 221)
>   Add "PowderBlue", RGB(175, 224, 229)
>   Add "Purple", RGB(127, 0, 127)
>   Add "Red", RGB(255, 0, 0)
>   Add "RosyBrown", RGB(187, 142, 142)
>   Add "RoyalBlue", RGB(65, 104, 225)
>   Add "SaddleBrown", RGB(138, 68, 19)
>   Add "Salmon", RGB(249, 127, 114)
>   Add "SandyBrown", RGB(243, 164, 95)
>   Add "SeaGreen", RGB(45, 138, 86)
>   Add "Seashell", RGB(255, 244, 237)
>   Add "Sienna", RGB(160, 81, 44)
>   Add "Silver", RGB(191, 191, 191)
>   Add "SkyBlue", RGB(135, 206, 234)
>   Add "SlateBlue", RGB(105, 89, 205)
>   Add "SlateGray", RGB(112, 127, 144)
>   Add "SlateGrey", RGB(112, 127, 144)
>   Add "Snow", RGB(255, 249, 249)
>   Add "SpringGreen", RGB(0, 255, 126)
>   Add "SteelBlue", RGB(70, 130, 179)
>   Add "Tan", RGB(210, 179, 140)
>   Add "Teal", RGB(0, 127, 127)
>   Add "Thistle", RGB(216, 191, 216)
>   Add "Tomato", RGB(255, 99, 71)
>   Add "Turquoise", RGB(63, 224, 207)
>   Add "Violet", RGB(237, 130, 237)
>   Add "VioletRed", RGB(208, 31, 144)
>   Add "Wheat", RGB(244, 221, 178)
>   Add "White", RGB(255, 255, 255)
>   Add "WhiteSmoke", RGB(244, 244, 244)
>   Add "Yellow", RGB(255, 255, 0)
>   Add "YellowGreen", RGB(154, 205, 49)
> End Sub
>
>

[toc] | [prev] | [next] | [standalone]

#1603

From	Ulrich Korndoerfer <ulrich_wants_nospam@prosource.de>
Date	2012-10-09 23:05 +0200
Message-ID	<adjhtaF25g1U1@mid.individual.net>
In reply to	#1590

Hi,

Schmidt schrieb:
> Am 09.10.2012 02:14, schrieb -mhd:
> 
> Just another extended List (not over long) of Name-Color-pairs...
> (this one conforms to the ColorNames, defined in the SVG-Standard)
> 

Those are the same usable with Html (understood by browsers). Some of 
them I really like because of their nice names, like Peachpuff (big 
grin), Chartreuse (gimmy a drink ) etc.

:-)

-- 
Ulrich Korndoerfer

VB tips, helpers, solutions -> http://www.prosource.de/Downloads/
MS Newsgruppen Alternativen -> http://www.prosource.de/ms-ng-umzug.html

[toc] | [prev] | [next] | [standalone]

#1585

From	"Mike Williams" <Mike@WhiskyAndCoke.com>
Date	2012-10-08 22:42 +0100
Message-ID	<k4vhbd$5eb$1@dont-email.me>
In reply to	#1583

"-mhd" <not_real@invalid.com> wrote in message 
news:hke678hoho2q4j8n9jlcvlcecf4eke454p@4ax.com...
>>> "Jeff Johnson" <i.get@enough.spam> wrote:
>>>
>>>Try http://www.blacksunsoftware.com/screenmagnifier.html
>>>It'll tell you the color value of the pixel under the cursor.
>
> I don't think any of those utilities (I have a few) give the long
> rgb value but rather the RGB separate values.

Well write your own then. It's fairly straightforward. As an example, paste 
the following code into a VB Form containing one Timer control.

Mike

Option Explicit
Private Declare Function SetWindowPos Lib "user32" _
  (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
  ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
  ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function GetDC Lib "user32" _
  (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" _
  (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function GetCursorPos Lib "user32" _
  (lpPoint As POINTAPI) As Long
Private Declare Function GetDesktopWindow _
  Lib "user32" () As Long
Private Declare Function GetPixel Lib "gdi32" _
  (ByVal hdc As Long, ByVal x As Long, _
  ByVal y As Long) As Long
Private Type POINTAPI
  x As Long
  y As Long
End Type
Private Const SWP_NOSIZE As Long = &H1&
Private Const SWP_NOMOVE As Long = &H2&
Private Const HWND_TOPMOST As Long = -1&
Private mypointer As POINTAPI
Private DesktopDC As Long

Private Sub Form_Load()
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 360, 0, _
  SWP_NOMOVE
End Sub

Private Sub Timer1_Timer()
Dim retval As Long, s1 As String
DesktopDC = GetDC(0&)
' get mouse x, y coordinates
GetCursorPos mypointer ' cursor x,y position
retval = GetPixel(DesktopDC, mypointer.x, mypointer.y)
s1 = s1 & "     R " & Format(retval And &HFF)
s1 = s1 & " : G " & Format((retval \ &H100&) And &HFF)
s1 = s1 & " : B " & Format((retval \ &H10000) And &HFF)
s1 = s1 & " : " & "&H" & Right$("000000" & Hex$(retval), 6)
Caption = s1
ReleaseDC GetDesktopWindow, DesktopDC
End Sub

[toc] | [prev] | [next] | [standalone]

#1586

From	"Mike Williams" <Mike@WhiskyAndCoke.com>
Date	2012-10-08 22:49 +0100
Message-ID	<k4vhot$7nu$1@dont-email.me>
In reply to	#1585

"Mike Williams" <Mike@WhiskyAndCoke.com> wrote in message 
news:k4vhbd$5eb$1@dont-email.me...
>
> Well write your own then. It's fairly straightforward. As an
> example, paste  the following code into a VB Form containing
> one Timer control.

Oops! Missed a bit! Forgot to initialise the Timer. Amend the load Event 
code so that it is as follows:

Private Sub Form_Load()
  SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 360, 0, _
      SWP_NOMOVE
  Timer1.Interval = 100
  Timer1.Enabled = True
End Sub

Mike

[toc] | [prev] | [next] | [standalone]

#1589

From	-mhd <not_real@invalid.com>
Date	2012-10-08 20:15 -0400
Message-ID	<c3r678150keaiu5qqu6rtheagfl86oguat@4ax.com>
In reply to	#1586

"Mike Williams" <Mike@WhiskyAndCoke.com> wrote:

>"Mike Williams" <Mike@WhiskyAndCoke.com> wrote in message 
>news:k4vhbd$5eb$1@dont-email.me...
>>
>> Well write your own then. It's fairly straightforward. As an
>> example, paste  the following code into a VB Form containing
>> one Timer control.
>
>Oops! Missed a bit! Forgot to initialise the Timer. Amend the load Event 
>code so that it is as follows:
>
>Private Sub Form_Load()
>  SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 360, 0, _
>      SWP_NOMOVE
>  Timer1.Interval = 100
>  Timer1.Enabled = True
>End Sub
>
>Mike
>
>
>

Mike - that is a very useful utility to have on hand. Thanks very much for this.

-mhd

[toc] | [prev] | [next] | [standalone]

#1591

From	Deanna Earley <dee.earley@icode.co.uk>
Date	2012-10-09 09:30 +0100
Message-ID	<k50nbd$jq1$1@speranza.aioe.org>
In reply to	#1583

On 08/10/2012 21:47, -mhd wrote:
> I don't think any of those utilities (I have a few) give the long rgb value but
> rather the RGB separate values. I suppose I could drum up a quick app that has
> the common font dialog  control and debug print the returned color values.

Or just call the RGB() function.

-- 
Deanna Earley (dee.earley@icode.co.uk)
i-Catcher Development Team
http://www.icode.co.uk/icatcher/

iCode Systems

(Replies direct to my email address will be ignored. Please reply to the 
group.)

[toc] | [prev] | [next] | [standalone]

#1600

From	"Jeff Johnson" <i.get@enough.spam>
Date	2012-10-09 13:52 -0400
Message-ID	<k51o81$1qe$1@dont-email.me>
In reply to	#1583

"-mhd" <not_real@invalid.com> wrote in message 
news:hke678hoho2q4j8n9jlcvlcecf4eke454p@4ax.com...

> >Try http://www.blacksunsoftware.com/screenmagnifier.html

> >It'll tell you the color value of the pixel under the cursor.

> I don't think any of those utilities (I have a few) give the long rgb 
> value but
> rather the RGB separate values.

Clearly you didn't even go to the site and look at the screenshot....

And even if they give the separate values, so what? Is it THAT hard to work 
out the long values?

[toc] | [prev] | [next] | [standalone]

#1592

From	"DaveO" <djo@dial.pipex.com>
Date	2012-10-09 11:57 +0100
Message-ID	<k50vv9$8pr$1@dont-email.me>
In reply to	#1581

>"-mhd" <not_real@invalid.com> wrote in message 
>news:vk1678de7er1issddh1c0ut44f9nr9t5u9@4ax.com...
>I'm now rolling my own font dialog and want to  match the list of 16 colors 
>used
>by the color dropbox in the MS font common dialog.

>The color names in the MS version do not match the 16 QBCcolors so where 
>can I
>get the long rgb values of these colors? I sure would like to find a 
>reference
>(I Googled) but I am coming up short.

>-mike

Am I right to assume you intend to provide a combo box with the names of the 
colours?
Not the best interface as the names are a bit arbitary, far better to have a 
combo box with bars of each colour so they can be chosen directly. The 
combobox does not provide that functionality out-of-the-box but it's not too 
tricky to manage (or so I'm led to understand, I've seen it but I've not 
actually tried it myself). Googling of "vb6 colour picker" only returned 
23,900 results but I'm sure one or two of them will do exactly what you 
need.

Regards
DaveO

[toc] | [prev] | [next] | [standalone]

#1595

From	"DaveO" <djo@dial.pipex.com>
Date	2012-10-09 15:21 +0100
Message-ID	<k51bto$ggj$1@dont-email.me>
In reply to	#1592

> Am I right to assume you intend to provide a combo box with the names of 
> the colours?
> Not the best interface as the names are a bit arbitary, far better to have 
> a combo box with bars of each colour so they can be chosen directly. The 
> combobox does not provide that functionality out-of-the-box but it's not 
> too tricky to manage (or so I'm led to understand, I've seen it but I've 
> not actually tried it myself). Googling of "vb6 colour picker" only 
> returned 23,900 results but I'm sure one or two of them will do exactly 
> what you need.

Hi again, I looked at some of them but I then worked out the really easiest 
method of all but it needs "Microsoft WIndows Common Controls 6.0 (SP6)" to 
be selected in components.
Simply make a 16x16 icon of each colour required and load them along with 
the names you have already determined into a ImageCombo (Locked = True) - 
job done!

Regards
DaveO.

[toc] | [prev] | [next] | [standalone]

#1598

From	-mhd <not_real@invalid.com>
Date	2012-10-09 13:10 -0400
Message-ID	<60m8781uruad5im2f77n5q0reor2t5pa3v@4ax.com>
In reply to	#1595

"DaveO" <djo@dial.pipex.com> wrote:

>
>Hi again, I looked at some of them but I then worked out the really easiest 
>method of all but it needs "Microsoft WIndows Common Controls 6.0 (SP6)" to 
>be selected in components.
>Simply make a 16x16 icon of each colour required and load them along with 
>the names you have already determined into a ImageCombo (Locked = True) - 
>job done!

I'm using Codejock controls otherwise normal theming methods do not work from
within Outlook addins.

-mhd

[toc] | [prev] | [next] | [standalone]

Page 1 of 2 [1] 2 Next page →

csiph-web

Color names in color picker used in font common dialog

Contents

#1581 — Color names in color picker used in font common dialog

#1582

#1583

#1584

#1587

#1588

#1590

#1593

#1594

#1596

#1602

#1603

#1585

#1586

#1589

#1591

#1600

#1592

#1595

#1598