Bug im generiertem Source vom Visual Designer

[MVXA]

Hallo
Weiß jetzt nicht ob der Bug schon bekannt ist aber der Visual Designer produziert falschen Code. ich Poste einfach mal die Funktion:

Code: Alles auswählen

Procedure BalloonTip(WindowID, Gadget, Text$ , Title$, Icon)
  
  ToolTip=CreateWindowEx_(0,"ToolTips_Class32","",#WS_POPUP | #TTS_NOPREFIX | #TTS_BALLOON,0,0,0,0,WindowID(WindowID),0,GetModuleHandle_(0),0)
  SendMessage_(ToolTip,#TTM_SETTIPTEXTCOLOR,GetSysColor_(#COLOR_INFOTEXT),0)
  SendMessage_(ToolTip,#TTM_SETTIPBKCOLOR,GetSysColor_(#COLOR_INFOBK),0)
  SendMessage_(ToolTip,#TTM_SETMAXTIPWIDTH,0,180)
  Balloon.TOOLINFO\cbSize=SizeOf(TOOLINFO)
  Balloon\uFlags=#TTF_IDISHWND | #TTF_SUBCLASS
  Balloon\hwnd=GadgetID(Gadget)
  Balloon\uID=GadgetID(Gadget)
  Balloon\lpszText=@Text$
  SendMessage_(ToolTip, #TTM_ADDTOOL, 0, Balloon)
  If Title$ > ""
    SendMessage_(ToolTip, #TTM_SETTITLE, Icon, @Title$)
  EndIf
  
EndProcedure

Der Fehler ist ganz klar beim CreateWindowEx. Das dort das WindowID einmal zu viel im Aufruf von WindowID selbst steht führt dazu, dass das Programm abstürzt.

[ChaOsKid]

hi LittleFurz,

bei mir stürzt da nix ab

Code: Alles auswählen

Procedure BalloonTip(WindowID, Gadget, Text$ , Title$, Icon)
  
  ToolTip=CreateWindowEx_(0,"ToolTips_Class32","",#WS_POPUP | #TTS_NOPREFIX | #TTS_BALLOON,0,0,0,0,WindowID(WindowID),0,GetModuleHandle_(0),0)
  SendMessage_(ToolTip,#TTM_SETTIPTEXTCOLOR,GetSysColor_(#COLOR_INFOTEXT),0)
  SendMessage_(ToolTip,#TTM_SETTIPBKCOLOR,GetSysColor_(#COLOR_INFOBK),0)
  SendMessage_(ToolTip,#TTM_SETMAXTIPWIDTH,0,180)
  Balloon.TOOLINFO\cbSize=SizeOf(TOOLINFO)
  Balloon\uFlags=#TTF_IDISHWND | #TTF_SUBCLASS
  Balloon\hwnd=GadgetID(Gadget)
  Balloon\uID=GadgetID(Gadget)
  Balloon\lpszText=@Text$
  SendMessage_(ToolTip, #TTM_ADDTOOL, 0, Balloon)
  If Title$ > ""
    SendMessage_(ToolTip, #TTM_SETTITLE, Icon, @Title$)
  EndIf
  
EndProcedure

OpenWindow(0,0,0,200,100,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Tooltip")
CreateGadgetList(WindowID(0))
ButtonGadget(0, 30, 30, 50, 20, "Button")
BalloonTip(0, 0, "oink" , "blub", 0)
Repeat
  Select WindowEvent()
    Case #PB_Event_CloseWindow
      Quit = 1
  EndSelect
  Delay(20)
Until Quit

mfG
Tobi

[MVXA]

Hmpf, bei mir kommt ein dialog wie man es unter WinNT(XP) kennt. ".... hat ein Problem festgestellt und muss beendet werden". Wenn es weiterhilft kann ich auch gerne ein Screenshot anhängen. Villt sollte man die Variable WindowID in hWnd umtaufen

[MVXA]

Hat sonst niemand was zu sagen ?

[HeX0R]

Wieso sollte das einmal zuviel sein ??
WindowId() <- Eine Funktion
WindowId <- übergebene PB-Long-Variable...

Das is völlig i.o.!
Musst es halt mit PB's Gagdet-Konstanten nachher füttern un ned mit den ID's

[MVXA]

aso, unter VB gab das normaler weise konflikte