Re: [perl-win32-gui-users] keystrokes

[<Kev...@al...>]

Mark,

I think something like the example at the below used to work but it doesn't
seem to work any more on my system.  Aldo's PRIDE example had something
like this in it but this doesn't work now on my system either (it only
worked if  I commented out the " -class    => $EditorClass," line from the
definition of the RichEdit control).

Hopefully you'll have better luck than me getting this to work.

Cheers,

Kev.

use Win32::GUI;

$Win = new Win32::GUI::Window(
      -left   => 341,
      -top    => 218,
      -width  => 300,
      -height => 300,
      -name   => "Win",
      -text   => "A Window"
      );

$Win->Show();

$Win->AddRichEdit(
       -text    => "",
       -name    => "MyEdit",
       -multiline => 1,
       -left    => 9,
       -top     => 14,
       -width   => 271,
       -height  => 248,
       -addexstyle  => WS_EX_CLIENTEDGE,
       -addstyle    => WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL
                       | ES_LEFT | ES_MULTILINE | ES_AUTOHSCROLL |
ES_AUTOVSCROLL,
      );

Win32::GUI::Dialog();

sub MyEdit_KeyPress {
  my $key = shift;
  print "Key: $key\n";
# do what ever action you want depending on the value of key
}

sub MyEdit_Change {
  print "Richedit changed\n";
}

sub Win_Terminate {
   return -1;
}


|---------+------------------------------------------------>
|         |           "Mark Di Nicola"                     |
|         |           <amo...@ih...>               |
|         |           Sent by:                             |
|         |           per...@li...ur|
|         |           ceforge.net                          |
|         |                                                |
|         |                                                |
|         |           18/05/2002 01:51                     |
|         |                                                |
|---------+------------------------------------------------>
  >----------------------------------------------------------------------------------------------|
  |                                                                                              |
  |       To:       "Peter Eisengrein" <Pet...@at...>, <ma...@mm...>,           |
  |        <per...@li...>                                          |
  |       cc:                                                                                    |
  |       Subject:  Re: [perl-win32-gui-users] keystrokes                                        |
  >----------------------------------------------------------------------------------------------|





thanks. have you got any examples on how its  supposed to be done?
----- Original Message -----
From:  Peter  Eisengrein
To: 'ma...@mm...' ; per...@li...
Sent: Saturday, May 18, 2002 4:29  AM
Subject: RE: [perl-win32-gui-users]  keystrokes

There is an 'accelerator' method which does what I think you  want but I've
never been able to make it work. You can fake some of it if the  keystroke
has an associated number value.


> -----Original Message-----
>  From: ma...@mm... [mailto:ma...@mm...]
> Sent: Thursday, May 16, 2002 20:11
>  To: per...@li...
> Subject: [perl-win32-gui-users] keystrokes
>
>
> hi. is there any way of associating a keystroke with
> something, like alt+s
> to bring up a settings window?
>
>
>  _______________________________________________________________
>
> Have big pipes?  SourceForge.net is looking for download
> mirrors.  We supply
> the hardware. You get the recognition.  Email Us:
> ban...@so...
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>