AMIGA-RESISTANCE
https://forum.amiga-resistance.info/

HGui und Textboxen
https://forum.amiga-resistance.info/viewtopic.php?f=38&t=3646
Seite 1 von 1

Autor:  Dirk Teodoriko [ 22 Jun 2020, 11:14 ]
Betreff des Beitrags:  HGui und Textboxen

Hallo Forengemeinde,

ich versuche mit gerade mit dem dem HGui-"Framework", von Fabio, auseinanderzusetzen.
Kennt sich da jemand mit aus?
Ich habe eine Frage zu den Textboxen.
Versuche gerade eine Textbox anzupassen.
Aber, gerade zu dem Textbox-Element, gibt es leider nur 2 Beispiele und die sind auch noch sehr rudimentär.
Deswegen betreibe ich schon "FuBa" (Fummeln und Basteln) :mrgreen:

Folgender Code:
....
Local MyText = HGui.Gadget:new(#HGUI_TEXT_GADGET, {Text="Hallo das ist ein Test",
size = { w = 186, h = 20 },
position = {x = 8, y = 32},
font={
Name = #SANS,
Size = 16,
Style = #ANTIALIAS,
Color = $FF00FF,
Align = #HGUI_ALIGN_CENTER
}
})
....

Text, Position und Größe werden übernommen und funktionieren.
Aber die Fonteinstellungen klappen gar nicht.
Weder Schriftart, Farbe, Größe noch Ausrichtung.

Was mache ich falsch?

Vielleicht ist es für jedermann offensichtlich, nur ich bin blind. :help:

Danke für die Hilfe!

Schöne grüße aus dem Rheinland
Dirk

Autor:  Tipsi [ 22 Jun 2020, 21:18 ]
Betreff des Beitrags:  Re: HGui und Textboxen

Salli Dirk

Leider kenn ich mich mit HGUI gar nicht aus. Diese
GUI war auf meinem Amiga 4000-040 so langsam,
dass ich zeitweise bis zu 24 Minuten auf den Aufbau
warten musste (damals hier berichtet). Somit war das
für mich nicht brauchbar.

Gibt es so einen Befehl wie HGUI.SET()? Dann kannst
Du im nachhinein versuchen, die Fonteinstellungen
nochmals zu übergeben.

Griessli
Tipsi

Autor:  HelmutH [ 28 Jun 2020, 12:27 ]
Betreff des Beitrags:  Re: HGui und Textboxen

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()

Seite 1 von 1 Alle Zeiten sind UTC

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de