1. next item/problem

This is a multi-part message in MIME format.

------=_NextPart_000_00A9_01C115C9.6462F060
	boundary="----=_NextPart_001_00AA_01C115C9.6462F060"


------=_NextPart_001_00AA_01C115C9.6462F060
	charset="Windows-1252"

I've gotten a lot farther with the suggestions received. My problem now =
is that I can't seem to get the label text to change. I need a fixed =
pitch font, but setFont does not seem to change the font. What am I =
doing wrong. The program is attached...

...confused george

------=_NextPart_001_00AA_01C115C9.6462F060
Content-Type: text/html;
	charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Dwindows-1252" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.3105.105" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>I've gotten a lot farther with the suggestions =
received. My=20
problem now is that I can't seem to get the label text to change. I need =
a fixed=20
pitch font, but setFont does not seem to change the font. What am I =
doing wrong.=20
The program is attached...</FONT></DIV>
<DIV>&nbsp;</DIV>

------=_NextPart_001_00AA_01C115C9.6462F060--

------=_NextPart_000_00A9_01C115C9.6462F060
Content-Type: application/octet-stream;
	name="arf020.exw"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
	filename="arf020.exw"

-- Screen Manager ala Windows
without warning
--with trace
--trace(1)
include w32lib.ew
--include theos/numeric.e
--include theos/string.e

constant ARF020 = 
	create(Window,"ARF020-Customer File Maintenance",0,50,50,680,420,0)

-- Accounts Receivable Customer File maintenance screen table
global sequence screen
  screen = {
  {1,3,"Customer Number+ ",1,1,2,0,5,0,6,0,10},
  {10,4,"Name..: ",0,1,3,-99,40,0,0,0,20},
  {10,5,"Addr 1: ",0,1,4,-99,25,0,0,0,30},
  {10,6,"Addr 2: ",0,1,5,-99,25,0,0,0,40},
  {10,7,"City..: ",0,1,6,-99,20,0,0,0,50},
  {40,7,"State: ",0,1,7,99,2,0,0,0,60},
  {53,7,"Zip: ",0,1,8,99,10,0,0,0,70},
  {1,9,"Contact Nbr 1..: ",0,1,10,-99,30,0,0,0,80},
  {1,10,"Contact Nbr 2..: ",0,1,11,-99,30,0,0,0,90},
  {50,9,"Phone: ",0,1,9,99,17,0,0,0,100},
  {50,10,"FAX..: ",0,1,32,99,17,0,0,0,110},
  {50,11,"Email: ",0,1,34,-99,24,0,11,0,110},
  {1,12,"Salesman Number: ",1,1,12,0,3,0,12,0,120},
  {1,13,"Statements(Y/N): ",1,1,23,96,1,0,0,5,130},
  {1,14,"Tax Auth Code..+ ",1,1,24,99,2,0,4,1,140},
  {25,14,"Taxable: ",1,1,30,96,1,0,0,2,150},
  {36,14,"@(Y/N)",0,0,0,0,0,0,0,0,0},
  {1,15,"Tax Id.........: ",0,1,33,99,16,0,0,0,150},
  {1,16,"Default Shp Via+ ",1,1,42,99,2,0,7,0,190},
  {25,16,"FOB....+ ",1,1,43,99,2,0,8,0,190},
  {1,17,"Customer Group.: ",0,1,26,99,2,0,0,0,160},
  {1,18,"Cust Price Lvl.: ",1,1,14,0,2,0,2,3,170},
  {25,18,"Prod Price Tbl: ",0,1,31,99,2,0,9,0,180},
  {1,19,"Payment Terms..+ ",1,1,29,99,2,0,5,0,190},
  {1,20,"Credit Limit...: ",0,1,27,2,10,0,0,0,200},
  {1,21,"Fin Chg (Y/N)..: ",1,1,25,96,1,0,0,4,210},
  {25,21,"Bill-to Cust #: ",0,1,13,0,5,0,3,0,220},
  {1,22,"Elec. Invoice..: ",0,1,35,99,1,0,10,0,220},
  {21,22,"@(N,E,F)",0,0,0,0,0,0,0,0,0},
  {50,12,"Last Invoice Dt.: ",0,1,15,98,8,1,0,0,230},
  {50,13,"Last Invoice Amt: ",0,1,16,2,9,1,0,0,240},
  {50,14,"Last Payment Dt.: ",0,1,17,98,8,1,0,0,250},
  {50,15,"Last Payment Amt: ",0,1,18,2,9,1,0,0,260},
  {50,17,"Avg Days to Pay.: ",0,1,21,0,4,1,0,0,270},
  {50,18,"Invoices Paid...: ",0,1,20,0,4,1,0,0,280},
  {50,19,"Current Balance.: ",0,1,22,2,9,1,0,0,290},
  {50,20,"YTD Sales.......: ",0,1,19,2,9,1,0,0,300},
  {50,21,"Last Year Sales.: ",0,1,28,2,9,1,0,0,310},
  {50,22,"Date Cust Added.:  ",0,1,38,98,8,0,1,0,310},
  {99,0,"",0,0,0,0,0,0,0,0,0}
	}
	

sequence sle, lbl
integer x,y,xt,yt,fl,lth
sle={}
lbl={}
global procedure processARF020()



end procedure

-- Setup Screen Control
for i = 1 to 99 do
	if screen[i][1] = 99 then
		exit
	else
		x = screen[i][1]*9-8
		y = screen[i][2]*18-45
		lth = length(screen[i][3])*9
		xt = x + lth-10
		yt = y
		if screen[i][8]>0 then
			fl = screen[i][8]*9+9
		else
			fl = 0
		end if
			setFont(ARF020,"Courier New",9,Bold)
			lbl = append(lbl,create(LText,screen[i][3],ARF020,x,y,lth,25,0))
		if fl > 0 then
			sle = append(sle,create(EditText,"",ARF020,xt,yt,fl,20,0))
		end if
	end if
end for 

setFont(ARF020,"Courier New",9,Bold)
WinMain(ARF020,Normal)

------=_NextPart_000_00A9_01C115C9.6462F060--

new topic     » topic index » view message » categorize

2. Re: next item/problem

This is a multi-part message in MIME format.

------=_NextPart_000_0028_01C11641.669DFDC0
	charset="Windows-1252"

In my earlier post I showed how to do this. Here it is again...

   id =3D create(LText,screen[i][3],ARF020,x,y,lth,25,0)
   lbl =3D append(lbl,id)
   setFont(id,"Courier New",9,Bold)

Note that I assign the newly created control to a var first. This is =
just to make coding easier.

The setFont() must be applied to the control created, not to the Window.
  ----- Original Message -----=20
  From: gwalters at sc.rr.com=20
  To: EUforum=20
  Sent: Friday, July 27, 2001 1:52 AM
  Subject: next item/problem




  ...confused george
Or send an email To: EUforum-unsubscribe at topica.com
This email was sent to: ddparnell at bigpond.com



------=_NextPart_000_0028_01C11641.669DFDC0
Content-Type: text/html;
	charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dwindows-1252">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>In my earlier post&nbsp;I showed how to =
do this.=20
Here it is again...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp; id =3D=20
create(LText,screen[i][3],ARF020,x,y,lth,25,0)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp;lbl =3D=20
append(lbl,id)<BR>&nbsp;&nbsp;&nbsp;setFont(id,"Courier=20
New",9,Bold)<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Note that I assign the newly created =
control to a=20
var first. This is just to make coding easier.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>The setFont() must be applied to the =
control=20
created, not to the Window.</DIV></FONT>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
  <DIV style=3D"FONT: 10pt arial">----- Original Message ----- </DIV>
  <DIV=20
  style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =
black"><B>From:</B>=20
  <A title=3Dgwalters at sc.rr.com=20
  href=3D"mailto:gwalters at sc.rr.com">gwalters at sc.rr.com</A> </DIV>
  <DIV style=3D"FONT: 10pt arial"><B>To:</B> <A =
title=3DEUforum at topica.com=20
  href=3D"mailto:EUforum at topica.com">EUforum</A> </DIV>
  <DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Friday, July 27, 2001 =
1:52 AM</DIV>
  <DIV style=3D"FONT: 10pt arial"><B>Subject:</B> next =
item/problem</DIV>
<A =
  fixed pitch font, but setFont does not seem to change the font. What =
am I=20
  doing wrong. The program is attached...</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT size=3D2>...confused =
george</FONT></DIV><PRE>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
<A =
href=3D"http://topica.com/u/?b1dd66.${encoded_sub_id}">http://topica.com/=
u/?b1dd66.b2mL5y</A>
Or send an email To: EUforum-unsubscribe at topica.com
This email was sent to: ddparnell at bigpond.com

<A =

------=_NextPart_000_0028_01C11641.669DFDC0--

new topic     » goto parent     » topic index » view message » categorize

3. Re: next item/problem

This is a multi-part message in MIME format.

------=_NextPart_000_00CB_01C115CE.5C7E1E60
charset="Windows-1252"

OK, now I understand. makes a lot more sense..

thanks a lot.

...george
  ----- Original Message -----=20
  From: Derek Parnell=20
  To: EUforum=20
  Sent: Thursday, July 26, 2001 12:11 PM
  Subject: Re: next item/problem


>

  Note that I assign the newly created control to a var first. This is =
just to make coding easier.
  =20
  The setFont() must be applied to the control created, not to the =
Window.


    ----- Original Message -----=20
    From: gwalters at sc.rr.com=20
    To: EUforum=20
    Sent: Friday, July 27, 2001 1:52 AM
    Subject: next item/problem

    ...confused george
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3Dhttp://topica.com/u/?b=
1dd66.b2mL5y
Or send an email To: EUforum-unsubscribe at topica.com
This email was sent to: ddparnell at bigpond.com

This email was sent to: gwalters at sc.rr.com

    =3D

------=_NextPart_000_00CB_01C115CE.5C7E1E60
Content-Type: text/html;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Dwindows-1252" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.3105.105" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>OK, now I understand. makes a lot more =
sense..</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>thanks a lot.</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>...george</FONT></DIV>
<BLOCKQUOTE dir=3Dltr=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">----- Original Message ----- </DIV>
  <DIV=20
  style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =
black"><B>From:</B>=20
  <A href=3D"mailto:ddparnell at bigpond.com" =
title=3Dddparnell at bigpond.com>Derek=20
  Parnell</A> </DIV>
  <DIV style=3D"FONT: 10pt arial"><B>To:</B> <A =
href=3D"mailto:EUforum at topica.com"=20
  title=3DEUforum at topica.com>EUforum</A> </DIV>
  <DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Thursday, July 26, 2001 =
12:11=20
  PM</DIV>
  <DIV style=3D"FONT: 10pt arial"><B>Subject:</B> Re: next =
item/problem</DIV>
<A =
  <DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp; id =3D=20
  create(LText,screen[i][3],ARF020,x,y,lth,25,0)</FONT></DIV>
  <DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp;lbl =3D=20
  append(lbl,id)<BR>&nbsp;&nbsp;&nbsp;setFont(id,"Courier=20
  New",9,Bold)<BR></FONT></DIV>
  <DIV><FONT face=3DArial size=3D2>Note that I assign the newly created =
control to a=20
  var first. This is just to make coding easier.</FONT></DIV>
  <DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
  <DIV><FONT face=3DArial size=3D2>The setFont() must be applied to the =
control=20
  created, not to the Window.</FONT></DIV>
  <DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
  <DIV><FONT face=3DArial size=3D2>&nbsp;</DIV></FONT>
  <BLOCKQUOTE dir=3Dltr=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">----- Original Message ----- </DIV>
    <DIV=20
    style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =
black"><B>From:</B>=20
    <A href=3D"mailto:gwalters at sc.rr.com"=20
    title=3Dgwalters at sc.rr.com>gwalters at sc.rr.com</A> </DIV>
    <DIV style=3D"FONT: 10pt arial"><B>To:</B> <A =
href=3D"mailto:EUforum at topica.com"=20
    title=3DEUforum at topica.com>EUforum</A> </DIV>
    <DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Friday, July 27, 2001 =
1:52=20
    AM</DIV>
    <DIV style=3D"FONT: 10pt arial"><B>Subject:</B> next =
item/problem</DIV><A FONT=20
    attached...< is program The wrong. doing I am What font. the change =
to seem=20
    not does setFont but font, pitch fixed>
    <DIV></DIV>
    <DIV>&nbsp;</DIV>
    <DIV><FONT size=3D2>...confused =
george</FONT></DIV><PRE>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
<A =
href=3D"http://topica.com/u/?b1dd66.${encoded_sub_id}">http://topica.com/=
u/?b1dd66.b2mL5y</A>
Or send an email To: EUforum-unsubscribe at topica.com
This email was sent to: ddparnell at bigpond.com

<A =
ick.topica.com/caaacgLb1dd66b2IexAg/TopOffers</A>
href=3D"http://topica.com/u/?b1dd66.${encoded_sub_id}">http://topica.com/=
u/?b1dd66.b2IexA</A>
Or send an email To: EUforum-unsubscribe at topica.com
This email was sent to: gwalters at sc.rr.com

>
------=_NextPart_000_00CB_01C115CE.5C7E1E60--

new topic     » goto parent     » topic index » view message » categorize

4. Re: next item/problem

On Thursday 26 July 2001 11:52, gwalters at sc.rr.com wrote:

> I've gotten a lot farther with the suggestions received. My problem now is
> that I can't seem to get the label text to change. I need a fixed pitch
> font, but setFont does not seem to change the font. What am I doing wrong.
> The program is attached...

Without running it (I seldom boot Windows anymore), my guess is 
that you are setting the font for only the main window, not each control.
You have to set each control individually.

Regards,
Irv

new topic     » goto parent     » topic index » view message » categorize

Search



Quick Links

User menu

Not signed in.

Misc Menu