Re: [perl-win32-gui-users] Re: how to set ?

[Aldo Calpini]

christopher sagayam wrote:
> This doesnt work 
>
> $ModuleWindow->text2_tab1->Change(-readonly => 1);
>
> what is the correct way ?

this will work in the next release. I've found that you
need to send a message to change the ES_READONLY style
*after* control creation. this is the 'workaround'
message if you're in a hurry:

  # set -readonly => 1
  $ModuleWindow->text2_tab1->SendMessage(0x00CF, 1, 0);

  # set -readonly => 0
  $ModuleWindow->text2_tab1->SendMessage(0x00CF, 0, 0);
  

cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;