Followup: Here's an example. I use a loop and some scaling math.
Wouldn't be as easy with a custom setup as yours (might have to manually
set heights and widths or using max() math), but something to illustrate
none the less.
----------------------------------------------------------------
with Gnoga.Application.Singleton;
with Gnoga.Gui.View;
with Gnoga.Gui.Window;
with Gnoga.Gui.View.Grid;
with Gnoga.Gui.Element.Form;
with Ada.Text_IO;
procedure Main is
use Gnoga.Gui.View.Grid;
Num_Levels : Positive := 5;
Main_Window : Gnoga.Gui.Window.Window_Type;
Main_View : Gnoga.Gui.View.View_Type;
Grid : Gnoga.Gui.View.Grid.Grid_View_Type;
Form : Gnoga.Gui.Element.Form.Form_Type;
Labels : array (1 .. Num_Levels) of Gnoga.Gui.View.View_Type;
Inputs : array (1 .. Num_Levels) of Gnoga.Gui.Element.Form.Text_Type;
begin
Ada.Text_IO.Put_Line("Hello World");
Gnoga.Application.Title("Hello World");
Gnoga.Application.Open_URL_Windows;
Gnoga.Application.Singleton.Initialize(Main_Window => Main_Window);
Main_View.Create(Main_Window);
Grid.Create(Parent => Main_View,
Layout => (1 => (COL,COL)),
Fill_Parent => False,
Set_Sizes => False);
Form.Create(Parent => Grid.Panel(1,2).all);
for Index in Labels'Range loop
Labels(Index).Create(Grid.Panel(1,1).all);
Labels(Index).Put_Line("Label" & Integer'Image(Index));
Inputs(Index).Create(Form => Form);
Form.New_Line;
Labels(Index).Height(Form.Height/Index); --always the same value
Labels(Index).Width(Labels(Index).Width + 5); --spacing
end loop;
Gnoga.Application.Singleton.Message_Loop;
Ada.Text_IO.Put_Line("Application finished");
end Main;
On Fri, Sep 11, 2015 at 8:08 PM, Jeremiah Breeden <
[email protected]> wrote:
> The only way I can think of is really more of a hack, but you could set up
> a 2 column grid view. In the left column you can put some sized view_type
> objects with text on them (using put_line), using new lines to stack them
> vertically. In the right column you stack the text areas with labels
> attached.
>
> I think that will left justify all the text strings in the left column and
> all the text fields in the right column as well. I know that probably
> isn't what you are looking for, but maybe David or another user will have a
> better answer in a bit.
>
> On Wed, Sep 9, 2015 at 5:01 PM, Rabbi David Botton <[email protected]>
> wrote:
>
>> I'm sorry I haven't had time to look at anything last two weeks,
>> holidays, son's wedding, business, etc I'll go over outstanding e-mails etc
>> soon.
>>
>> David Botton
>>
>>
>> On Wed, Sep 9, 2015 at 12:51 PM Jeffrey R. Carter <[email protected]>
>> wrote:
>>
>>> On 09/02/2015 04:47 PM, Jeffrey R. Carter wrote:
>>> > Here's a silly little program that illustrates the problem. I've tried
>>> > everything I can think of but I can't get the 2 input boxes to line up.
>>>
>>> Do I take it there's no way to do this?
>>>
>>> --
>>> Jeff Carter
>>> "I'm particularly glad that these lovely children were
>>> here today to hear that speech. Not only was it authentic
>>> frontier gibberish, it expressed a courage little seen
>>> in this day and age."
>>> Blazing Saddles
>>> 88
>>>
>>>
>>>
>>> ------------------------------------------------------------------------------
>>> Monitor Your Dynamic Infrastructure at Any Scale With Datadog!
>>> Get real-time metrics from all of your servers, apps and tools
>>> in one place.
>>> SourceForge users - Click here to start your Free Trial of Datadog now!
>>> http://pubads.g.doubleclick.net/gampad/clk?id=241902991&iu=/4140
>>> _______________________________________________
>>> Gnoga-list mailing list
>>> [email protected]
>>> https://lists.sourceforge.net/lists/listinfo/gnoga-list
>>>
>>
>>
>> ------------------------------------------------------------------------------
>> Monitor Your Dynamic Infrastructure at Any Scale With Datadog!
>> Get real-time metrics from all of your servers, apps and tools
>> in one place.
>> SourceForge users - Click here to start your Free Trial of Datadog now!
>> http://pubads.g.doubleclick.net/gampad/clk?id=241902991&iu=/4140
>> _______________________________________________
>> Gnoga-list mailing list
>> [email protected]
>> https://lists.sourceforge.net/lists/listinfo/gnoga-list
>>
>>
>
------------------------------------------------------------------------------
_______________________________________________
Gnoga-list mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gnoga-list
