Offline |
Administrator |
|
Registriert: 30 Aug 2005, 19:42 Beiträge: 5306
Postleitzahl: 46047
Land: Deutschland
Wohnort: 46047 Oberhausen
|
Hallo Dirk
Weiß nicht ob du dieses Beispiel im Hollywood Forum schon kennst und ob es dir bei deinem Textbox Problem weiter hilft.
Global app = {}
app.Windows = {}
app.Gadgets = {}
app.Windows.Main = HGui.Window:new(
{ title = "HGui Showcase (19.03.2015)",
name = "main",
position = { x = #CENTER, y = #CENTER },
size = { w = 320, h = 480 },
sizemax = { w = 320, h = 1024 }
})
HGui.SetAutoRendering(False)
app.Gadgets.labTitle = HGui.Gadget:new(#HGUI_IMAGE_GADGET, { Source = "HGui_ShowCaseResources/showcase.png", Alpha = #NONE, Mode = 4, Align = #CENTER, BorderColor = $DDDDDD })
app.Gadgets.GrpTop = HGui.Gadget:new(#HGUI_GROUP_GADGET, { Caption = { "Demos" }, Group_LabelGap = 10, Group_LabelSide = #HGUI_ALIGN_LEFT })
app.Gadgets.butTestWindows1 = HGui.Gadget:new(#HGUI_BUTTON_GADGET, { Caption = "Some colorful windows", Actions = { OnPushed = HGui.Test_Windows_01 } })
app.Gadgets.butTestWindows2 = HGui.Gadget:new(#HGUI_BUTTON_GADGET, { Caption = "Show window background types", Actions = { OnPushed = HGui.Test_Windows_02 } })
app.Gadgets.butTestGadgets1 = HGui.Gadget:new(#HGUI_BUTTON_GADGET, { Caption = "Show [color=#RED]all[/color] supported classes (800x600)", Actions = { OnPushed = HGui.Test_GUI } })
app.Gadgets.GrpBot = HGui.Gadget:new(#HGUI_GROUP_GADGET, { Caption = { "Benchmarks" }, Group_LabelGap = 10, Group_LabelSide = #HGUI_ALIGN_LEFT })
app.Gadgets.butTestBox1 = HGui.Gadget:new(#HGUI_BUTTON_GADGET, { Caption = "Box class", Actions = { OnPushed = HGui.Test_BoxTesting } })
app.Gadgets.butTestHDiv1 = HGui.Gadget:new(#HGUI_BUTTON_GADGET, { Caption = "HDivider class", Actions = { OnPushed = HGui.Test_HDividerTesting } })
app.Gadgets.butTestVDiv1 = HGui.Gadget:new(#HGUI_BUTTON_GADGET, { Caption = "VDivider class", Actions = { OnPushed = HGui.Test_VDividerTesting } })
app.Gadgets.butTestLab1 = HGui.Gadget:new(#HGUI_BUTTON_GADGET, { Caption = "Label class", Actions = { OnPushed = HGui.Test_LabelTesting } })
app.Gadgets.butTestGrp1 = HGui.Gadget:new(#HGUI_BUTTON_GADGET, { Caption = "Group class", Actions = { OnPushed = HGui.Test_GroupTesting } })
app.Gadgets.butTestGrpC = HGui.Gadget:new(#HGUI_BUTTON_GADGET, { Caption = "Checkbox Group class", Actions = { OnPushed = HGui.Test_GroupCheckBox } })
app.Gadgets.butTestGrpR = HGui.Gadget:new(#HGUI_BUTTON_GADGET, { Caption = "Radio Group class", Actions = { OnPushed = HGui.Test_GroupRadio } })
app.Gadgets.butTestButt = HGui.Gadget:new(#HGUI_BUTTON_GADGET, { Caption = "Button class", Actions = { OnPushed = HGui.Test_ButtonTesting } })
app.Gadgets.butTestSwit = HGui.Gadget:new(#HGUI_BUTTON_GADGET, { Caption = "Switch class", Actions = { OnPushed = HGui.Test_SwitchTesting } })
app.Gadgets.butTestScrB = HGui.Gadget:new(#HGUI_BUTTON_GADGET, { Caption = "Scrollbar class", Actions = { OnPushed = HGui.Test_ScrollbarTesting } })
app.Gadgets.butTestProgW = HGui.Gadget:new(#HGUI_BUTTON_GADGET, { Caption = "Progress Window shortcut", Actions = { OnPushed = HGui.Test_ProgressWindow } })
app.Gadgets.GrpTop:layoutSet(
{ gadgets = { app.Gadgets.butTestWindows1,
app.Gadgets.butTestWindows2,
app.Gadgets.butTestGadgets1 },
gap = 2,
borders = { top = 2, bottom = 2, left = 2, right = 2 } }, True)
app.Gadgets.GrpBot:layoutSet(
{ gadgets = { app.Gadgets.butTestBox1,
app.Gadgets.butTestHDiv1,
app.Gadgets.butTestVDiv1,
app.Gadgets.butTestLab1,
app.Gadgets.butTestGrp1,
app.Gadgets.butTestGrpC,
app.Gadgets.butTestGrpR,
app.Gadgets.butTestButt,
app.Gadgets.butTestSwit,
app.Gadgets.butTestScrB,
app.Gadgets.butTestProgW },
gap = 2,
borders = { top = 2, bottom = 2, left = 2, right = 2 } }, True)
app.Windows.Main.RootGadget:layoutSet(
{ gadgets = { app.Gadgets.labTitle,
app.Gadgets.GrpTop,
app.Gadgets.GrpBot },
weights = { -0.15, 0.20, 0.65 },
gap = 2,
borders = { top = 2, bottom = 2, left = 2, right = 2 } }, True)
HGui.SetAutoRendering(True)
app.Windows.Main:render()
_________________ Gruß Helmut
Amiga 2000, Amiga 500, Amiga One XE, Amiga One X5000
|
|