Re: combo

new topic     » goto parent     » topic index » view thread      » older message » newer message

This is a multi-part message in MIME format.

------=_NextPart_000_0067_01C0E924.FA4FC480
	charset="koi8-r"

>From win32lib :

global procedure copy( integer id )   =20
   -- send a copy request to a window
    VOID =3D sendMessage( id, WM_COPY, 0, 0 )   =20
end procedure

>From Win32 reference manual :

When sent to a combo box, the WM_COPY message is handled by its edit =
control. This message has no effect when sent to a combo box with the =
CBS_DROPDOWNLIST style.=20
  ----- Original Message -----=20
  From: Victor Churikov=20
  To: EUforum=20
  Sent: Wednesday, May 30, 2001 6:21 PM
  Subject: combo



  Hi, everybody!
  I've written a simple code for copying selected text from one edit
  control to another.
  It perfectly works with MleText or EditText controls (see the code
  below), but if I replace the EditText1 by  a Combo1 (combo control),
  the
  moving text fails.

  Does anyone know how to fix this?

  Thanks so much!

  Victor Churikov

  include Win32Lib.ew --(c) D.Cuny and Friends
  without warning

   constant Win =3D create( Window, "Window1", 0, Default, Default, 500,
  350, 0 ) ,
   MleText1 =3D create( MleText, "", Win, 32, 64, 328, 204, 0 ) ,
   Button1 =3D create( PushButton, "Move", Win, 68, 20, 90, 30, 0 ) ,
   EditText1 =3D create( EditText, "", Win, 200, 24, 148, 24, 0 )

  procedure Button1_onClick()
  copy(EditText1)
  paste(MleText1)
  end procedure
  onClick[Button1] =3D routine_id("Button1_onClick")

  WinMain( Win, Normal )

  =20



------=_NextPart_000_0067_01C0E924.FA4FC480
Content-Type: text/html;
	charset="koi8-r"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Dkoi8-r" http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3D"Arial CE" size=3D2>From win32lib :</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3D"Courier New" size=3D2>global procedure copy( integer =
id=20
)&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;-- send a copy request to =
a=20
window<BR>&nbsp;&nbsp;&nbsp; VOID =3D sendMessage( id, WM_COPY, 0, 0=20
)&nbsp;&nbsp;&nbsp; <BR>end procedure</FONT></DIV>
<DIV><FONT face=3D"Arial CE" size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3D"Arial CE" size=3D2>From Win32 reference manual =
:</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3D"Arial CE" size=3D2>When sent to a combo box, the =
WM_COPY message=20
is handled by its edit control. This message has no effect when sent to =
a combo=20
box with the CBS_DROPDOWNLIST style. </FONT></DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
  <DIV style=3D"FONT: 10pt arial CE">----- Original Message ----- </DIV>
  <DIV=20
  style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial CE; font-color: =
black"><B>From:</B>=20
  <A href=3D"mailto:phyvmc at ccunix.ccu.edu.tw"=20
  title=3Dphyvmc at ccunix.ccu.edu.tw>Victor Churikov</A> </DIV>
  <DIV style=3D"FONT: 10pt arial CE"><B>To:</B> <A=20
  href=3D"mailto:EUforum at topica.com" =
title=3DEUforum at topica.com>EUforum</A> </DIV>
  <DIV style=3D"FONT: 10pt arial CE"><B>Sent:</B> Wednesday, May 30, =
2001 6:21=20
  PM</DIV>
  <DIV style=3D"FONT: 10pt arial CE"><B>Subject:</B> combo</DIV>
<A =
  replace the EditText1 by&nbsp; a Combo1 (combo =
control),<BR>the<BR>moving text=20
  fails.</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT face=3DArial size=3D2>Does anyone know how to fix =
this?</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT face=3DArial size=3D2>Thanks so much!</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT face=3DArial size=3D2>Victor Churikov</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT face=3DArial size=3D2>include Win32Lib.ew --(c) D.Cuny and=20
  Friends<BR>without warning</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT face=3DArial size=3D2>&nbsp;constant Win =3D create( =
Window, "Window1",=20
  0, Default, Default, 500,<BR>350, 0 ) ,<BR>&nbsp;MleText1 =3D create( =
MleText,=20
  "", Win, 32, 64, 328, 204, 0 ) ,<BR>&nbsp;Button1 =3D create( =
PushButton,=20
  "Move", Win, 68, 20, 90, 30, 0 ) ,<BR>&nbsp;EditText1 =3D create( =
EditText, "",=20
  Win, 200, 24, 148, 24, 0 )</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT face=3DArial size=3D2>procedure=20
  Button1_onClick()<BR>copy(EditText1)<BR>paste(MleText1)<BR>end=20
  procedure<BR>onClick[Button1] =3D =
routine_id("Button1_onClick")</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT face=3DArial size=3D2>WinMain( Win, Normal )</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT face=3DArial =
size=3D2></FONT>&nbsp;</DIV><PRE>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D
Get your FREE online credit report from ConsumerInfo.Com!
ConsumerInfo.Com makes staying on top of your credit history
fast and easy. Gain peace of mind and take control of the
accuracy of your credit report today!
<A =
Or send an email To: EUforum-unsubscribe at topica.com
This email was sent to: martin.stachon at worldonline.cz

<A =

------=_NextPart_000_0067_01C0E924.FA4FC480--

new topic     » goto parent     » topic index » view thread      » older message » newer message

Search



Quick Links

User menu

Not signed in.

Misc Menu