OpenEuphoria

Re: Fixed Width Char- to: Irv

• Posted by Jim <futures8 at PCOLA.GULF.NET> Nov 13, 2000
• 360 views

Irv,

Followup on your suggestions; ran your program. It did show me what you
indicated. Made the change to the program to
setFont() in the Listbox itself (rather than the window). Everything now
perfectly aligned.

Can't thank you enough.

Jim Duffy

Jim wrote:

> Irv,
>
> Thanks for the input. I will run the program, and also use your previous
> suggestion re: setFont() in the Listbox itself.
>
> Appreciate the help.
>
> Regards,
>
> Jim
>
> Irv wrote:
>
> > -Try the following short program. It will let you know whether you are
> > really
> > using monospaced characters or not.
> >
> > --  code generated by Win32Lib IDE v0.9j
> >
> > include Win32Lib.ew
> > without warning
> >
> > ----------------------------------------------------------------------------
> > ----
> > --  Window Window1
> > global constant Window1 = create( Window, "Font Test", 0, 0, 0, 500, 400,
> > 0 )
> > global constant List2 = create( List, "List2", Window1, 8, 12, 476, 228, 0 )
> > ----------------------------------------------------------------------------
> > ----
> > procedure Window1_onOpen ()
> > setFont( List2,"Courier New",12,0)
> > addItem( List2,"All three lines should be the same length")
> > addItem( List2,"iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii")
> > addItem( List2,"MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM")
> > end procedure
> > onOpen[Window1] = routine_id("Window1_onOpen")
> >
> > WinMain( Window1, Normal )
> >
> > --Irv