program MorphOS_proba;
{$mode objfpc}{$H+}

uses
  Types, MUIClass.Base, MUIClass.Window, MUIClass.DrawPanel, MUIClass.Group, Sysutils, MUI, MUIClass.Area, MUIClass.Dialog,MUIHelper,MUIWrap,Utility;


type
  TMyWindow = class(TMUIWindow)
  public

  end;

var
  Win: TMyWindow;

  Group_Main,Group_Inside: TMUIGroup;

  Txt: TMUIText;

begin
  Win := TMyWindow.Create;


  Group_Main := TMUIGroup.Create;
  with Group_Main do
  begin
    FrameTitle := 'Group Main';

    Parent := Win;
  end;


  Txt := TMUIText.Create;
  With Txt do
  begin
    Contents := 'Group Main szoveg';
    SetVMax := False;//True;
    Font := MUIV_Font_Normal;
    Parent := Group_Main;
  end;



  Group_Inside := TMUIGroup.Create;
  with Group_Inside do
  begin
    FrameTitle := 'Group Inside';
    Parent := Group_Main;
  end;


  Txt := TMUIText.Create;
  With Txt do
  begin
    Contents := 'Group DP Inside';
    SetVMax := False;//True;
    Font := MUIV_Font_Normal;
    Parent := Group_Inside;
  end;


  //Showmessage('Elso sor.'+#10+'Masodik sor.'+#10+'Harmadik sor.');

  MUIApp.Run;

  Group_Inside.Free;
  Group_Main.Free;
 end.