PureBoard

Verfasst: **19.06.2007 10:01**

RiSiNG hat geschrieben:Gibt es vll. noch eine elegantere Möglichkeit, d.h. das der Text erst gar nicht verschwindet?

ja, gibt es: ImageGadget weglassen

Grüße ... Kiffi

Verfasst: **19.06.2007 10:01**

>> Gibt es vll. noch eine elegantere Möglichkeit, d.h. das der Text erst gar nicht verschwindet?
Klar, lass das Stringgadget weg, Subclasse das ImageGadget, fange
Keyevents ab und Zeichne den Text

Verfasst: **19.06.2007 10:03**

ts-soft hat geschrieben:Klar, lass das Stringgadget weg, Subclasse das ImageGadget, fange
Keyevents ab und Zeichne den Text

Whow! Das ist ja noch viel eleganter

Grüße ... Kiffi

Verfasst: **19.06.2007 10:24**

Es gibt aber auch eine ganz einfache Lösung und weil heute Dienstag ist

Code: Alles auswählen

win=OpenWindow(0,0,0,400,300,"Test v1.0  |  2007 By RiSiNG",#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget)
CreateGadgetList(win)
ContainerGadget(1,5,230,254,24)
SetGadgetColor(1, #PB_Gadget_BackColor, $FFFFFF)
StringGadget(0,5,5,232,20,"test test",#PB_String_BorderLess)
GadgetToolTip(0,"test test")
CloseGadgetList()

Repeat
  Select WaitWindowEvent()
    Case #WM_CLOSE
      End
  EndSelect
ForEver

Und noch einen für morgen:

Code: Alles auswählen

win=OpenWindow(0,0,0,400,300,"Test v1.0  |  2007 By RiSiNG and ts-soft",#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget)
CreateGadgetList(win)
  StringGadget(0,7,232,250,20,"test test",#PB_String_BorderLess) 
    GadgetToolTip(0,"test test")
  CreateImage(0,254,24)
    StartDrawing(ImageOutput(0))
      Box(0,0,254,24,RGB(255,255,255))
    StopDrawing()
  ImageGadget(1,5,230,254,24,ImageID(0)) 
  SetParent_(GadgetID(1), GadgetID(0))
Repeat
  Select WaitWindowEvent()
    Case #WM_CLOSE
      End
  EndSelect
ForEver

Verfasst: **19.06.2007 10:41**

Dein Code:

Code: Alles auswählen

CreateGadgetList(win)
  StringGadget(0,7,232,250,20,"test test",#PB_String_BorderLess) 
    GadgetToolTip(0,"test test")
  CreateImage(0,254,24)
    StartDrawing(ImageOutput(0))
      Box(0,0,254,24,RGB(0,0,0))   ; zur besseren Übersicht "schwarz"
    StopDrawing()
  ImageGadget(1,5,230,254,24,ImageID(0)) 
Repeat

>das ich die linke oder rechte Seite um 1-2px mit Hilfe des ImageGadgets verlängere

Alternativ dann so:

Code: Alles auswählen

CreateGadgetList(win)
  StringGadget(16,10,232,250,20,"",#PB_String_BorderLess)
  CreateImage(0,252,2)
    StartDrawing(ImageOutput(0))
      Box(0,0,250,250,RGB(0,0,0))
    StopDrawing()
  ImageGadget(17,10,230,252,2,ImageID(0))

  CreateImage(0,2,22)
    StartDrawing(ImageOutput(0))
      Box(0,0,250,250,RGB(0,0,0))
    StopDrawing()
  ImageGadget(18,260,230,254,2,ImageID(0))
Repeat

Ja ich weiß Thomas hat grad auch 2 Lösungen gepostet aber es heißt ja viele Wege führen nach Rom undso...

Verfasst: **19.06.2007 21:31**

Danke euch allen! Hab auch noch ne alternative Lösung gefunden!

PureBoard

ImageGadget - StringGadget - anscheinendes Redraw Problem