OpenEuphoria

Re: Fixed Width Char- to: Irv

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

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