OpenEuphoria

Re: geometry.ew bug?

• Posted by Derek Parnell <ddparnell at bigpond.com> Aug 16, 2002
• 458 views

>From where do I get a copy of geometry.ew?

What do you mean by "able to set spacing between windows"? Are you talking
about a grid type of idea in which controls snap to grid points rather than
pixel locations. For example if we had a 10 pixel grid then a control
created at 34,56 would actually be positioned at 30,60. Is this the sort of
thing you are asking for? If not, please give me an example.

-------------
cheers,
Derek
----- Original Message -----
From: <10963508 at europeonline.com>
To: "EUforum" <EUforum at topica.com>
Sent: Friday, August 16, 2002 6:17 AM
Subject: geometry.ew bug?


>
> If you run program below you'll see that at the bottom there is
> red horizontal belt, that is a part of workspace window which has red
> background.
> Listview_window should be resized till bottom, why is that space there?
> Listview_window is of type "List", if you change it to "ListView" it works
> ok.
>
> Maybe it's win32lib bug?
>
> I have one request:
> It would be good if we could be able to set spacing between windows,
> horizontal and vertical. This would be especially usefull when managing
> buttons, for example.
>
> ---------------------------
> without warning
> include win32lib.ew
> include geometry.ew
>
> integer Main_window, Workspace_window, Listview_window
>
> procedure main_test ()
>     integer main_gm, workspace_gm
>     Main_window = create (Window, "geometry.ew test", 0,
>         Default, Default, Default, Default, 0)
>     Workspace_window  = create (Window, "Workspace window",
>         Main_window, 0, 0, 0, 0,
>         {WS_CHILD, WS_VISIBLE, WS_CLIPCHILDREN})
>     setWindowBackColor (Workspace_window, Red)
>     Listview_window = create (List, "", Workspace_window,
>         0, 0, 0, 0, 0)
>     workspace_gm = geometry (Workspace_window)
>     manage (workspace_gm, Listview_window,
>         {0.0, 0},
>         {0.0, 0},
>         {1.0, 0},
>         {1.0, 0})
>     main_gm = geometry (Main_window)
>     manage (main_gm, Workspace_window,
>         {0.0, 0},
>         {0.0, 0},
>         {1.0, 0},
>         {1.0, 0})
> end procedure
>
> main_test ()
> WinMain (Main_window, Normal)
> ---------------------------
>
>
>
>