1. next item/problem
- Posted by gwalters at sc.rr.com Jul 26, 2001
- 319 views
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> </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--
2. Re: next item/problem
- Posted by Derek Parnell <ddparnell at bigpond.com> Jul 26, 2001
- 319 views
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 I showed how to =
do this.=20
Here it is again...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2> id =3D=20
create(LText,screen[i][3],ARF020,x,y,lth,25,0)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2> lbl =3D=20
append(lbl,id)<BR> 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> </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> </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--
3. Re: next item/problem
- Posted by gwalters at sc.rr.com Jul 26, 2001
- 332 views
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> </DIV>
<DIV><FONT size=3D2>thanks a lot.</FONT></DIV>
<DIV> </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> id =3D=20
create(LText,screen[i][3],ARF020,x,y,lth,25,0)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2> lbl =3D=20
append(lbl,id)<BR> 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> </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> </DIV>
<DIV><FONT face=3DArial size=3D2> </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> </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--
4. Re: next item/problem
- Posted by irvm at ellijay.com Jul 26, 2001
- 318 views
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
