RE: [perl-win32-gui] sample code

[Eric Hansen]

You can use the 2 Accessories tools PAINT and CALCULATOR provided with Windows
Operating System as follows:  With PAINT, you can mix your
colors to get just the custom color you want.  PAINT will give a set of decimal
numbers for that color.  A number for Red a number for Green and a number
for Blue. Basic blue for example is Red=0, Green=0, Blue=255, n decimal numbers.

You then take those numbers to the CALULATOR program and convert them to hex numbers.
0=00, 255=FF

You then take these numbers and reverse the order and enter them as such into your 
perl script:

EXAMPLE:

$List1 = $W->AddListbox(-name => "List1",
                        -font => $SFont,
                        -foreground => 0xFF0000,      #  basic blue 
(255=FF=blue,0=00=red,0=00=green)
                        -style => WS_CHILD | WS_VISIBLE | WS_VSCROLL | 1 | WS_TABSTOP, 
                        -left => 40,
                        -top  => 48,
                        -height => 217,
                        -width => 185);

For PAINT, select OPTIONS->EDIT COLORS, then click button "DEFINE CUSTOM COLORS".   
you then take your mouse and mix your colors and shades on the right side of the 
screen.
Take the decimal number for blue, green, and red and convert to hex numbers.

For Calculator, selection VIEW->SCIENTIFIC and them click the decimal radio button.
Enter a decimal numer, then click the radio button for Hex to get the conversion.

Regards,
Eric Hansen 



-----Original Message-----
From:   Khoa Doan [SMTP:[EMAIL PROTECTED]]
Sent:   Thursday, July 01, 1999 3:22 PM
To:     '[EMAIL PROTECTED]'
Subject:        RE: [perl-win32-gui] sample code

        Hi,

        Thanks so much for help.  It works really great.  By the way, how
can I display a text in color ?.

        Thanks,

        Khoa D.


                -----Original Message-----
                From:   Eric Hansen [mailto:[EMAIL PROTECTED]]
                Sent:   Thursday, July 01, 1999 10:11 AM
                To:     '[EMAIL PROTECTED]'
                Subject:        RE: [perl-win32-gui] sample code

                $Window->textfield->SetFocus();
        
$Window->textfield->Select(0,length($Window->textfield->Text()));

                Doing a Select is also handy if you want the text in the
field to
                be selected (such as on return from a validation routine
that
                found an error with the text in the textfield) so that the
user can
                replace the bad text when they begin typing.

                Regards
                Eric Hansen

                -----Original Message-----
                From:   Aldo Calpini [SMTP:[EMAIL PROTECTED]]
                Sent:   Thursday, July 01, 1999 6:43 AM
                To:     [EMAIL PROTECTED]
                Subject:        Re: [perl-win32-gui] sample code

                Khoa Doan wrote:
                >Does anyone know how to place a cursor in a text field or
in a text box ?

                $Window->textfield->SetFocus();

                __END__
                # Aldo Calpini
                print sort {$_{$a} cmp $_{$b}} values %{{split undef, 
                "xritajbugne fahokem csuctawer jhdtlrnpqloevkshpr"}};