Re: [perl-win32-gui-users] textfield looking like html/css input

[Robert M. <rob...@us...>]

Waldemar Biernacki wrote:
> I have two input fields (in html/css dialect):
> 
> 1. <input style="border:groved #ff0000 2px;" value="groved field" />
> 2. <input style="border:solid  #ff0000 2px;" value="solid border field" />
> 
> The first one is a normal textfield in Win32::GUI. I would be very, very 
> pleased I someone could give me a way how to get textfield which looks 
> like the second input. Maybe it is outside the possibilities of MS 
> Win32::GUI library. Such information is also very vary precious.

Remove the WS_EX_CLIENTEDGE extended style:

#!perl -w
use strict;
use warnings;

use Win32::GUI qw(CW_USEDEFAULT WS_EX_CLIENTEDGE);

my $mw = Win32::GUI::Window->new(
     -left => CW_USEDEFAULT,
     -size => [400,300],
);

$mw->AddTextfield(
     -pos => [10,10],
     -size => [100,20],
);

$mw->AddTextfield(
     -pos => [10,35],
     -size => [100,18],
     -remexstyle => WS_EX_CLIENTEDGE,
);

$mw->Show();
Win32::GUI::Dialog();
$mw->Hide();
exit(0);
__END__

Making the border 2 pixels wide and red (as per your html/css) is (much) 
harder.

Regards,
Rob.