Nice little Town that is .. Stuttgart I mean [Big Grin]

Ummm ... actually, to come back to topic I am in Color Hell !!!

Means that I want to incorporate a PictureBox filled with small Rectangles in different (increasing RGB) colors ....

All what I can get is a really interesting but useless graphics effect [Roll Eyes]

Help ... please :

code:
break on


    $frmDialog1           = createobject("Kixtart.Form")
    $frmDialog1.Size      = 300,250
    $frmDialog1.Caption   = "Select Colors"
    $picChoice            = $frmDialog1.PictureBox("",5,60,285,160)
    $picChoice.DrawWidth  = 2 ;pixels
    $picChoice.FillStyle  = 1 ; solid


    $cR = &00
    $cG = &00
    $cB = &00
    $c  = cint($cR) + cint($cG) + cint($cB)


    for $i = 0 to $picChoice.ClientWidth step 2
        for $j = 0 to $picChoice.ClientHeight step 2
            $picChoice.ForeColor = $c
            $picChoice.FillColor = $c
            $picChoice.Rectangle($i,$j,2,2)
            $cR = $cR + &01
            $cG = $cG + &0001
            $cB = $cB + &000001
            $c  = cint($cR) + cint($cG) + cint($cB)
        next
    next


    $frmDialog1.Show
    while $frmDialog1.Visible
        $ = execute($frmDialog1.DoEvents)
    loop
btw. : afterwards it should be no problem to pick the Color with 'Point'

[ 05. December 2002, 09:21: Message edited by: jpols ]
_________________________