PureBasic Forums - English

Wow mestnyi!
You are great. So simply, I didn't even try.
Thanks for that!

RASHAD master!
Thank you very much!

Hello!

How to sync two ScrollAreaGadgets horizontally?

Thanks
Best regards
Incaroad

Bisonte wrote:have you changed the "gadgetnumber.l" parameter from LONG to INTEGER in your dll ?

Of course, I did everything you described.

Thank you Bisonte, but it stops with an "Invalid memory access" error message.

Hello Tombmyst!

Prototype ButtonGadgetColor(gad,x,y,w,h,text$="",flags=0,fgcolor=#PB_Default,bgcolor=#PB_Default,font=#PB_Default,kep=#PB_Any)

Define dll = OpenLibrary(#PB_Any, "ButtonGadgetColor.dll")

If dll
Define ButtonGadgetColor.ButtonGadgetColor = GetFunction(dll, "ButtonGadgetColor ...

One more example.

It works:
Procedure ButtonGadgetColor(gad,x,y,w,h,text$="",flags=0,fgcolor=#PB_Default,bgcolor=#PB_Default,font=#PB_Default)
If bgcolor=#PB_Default : bgcolor=GetSysColor_(#COLOR_BTNFACE) : EndIf
If fgcolor=#PB_Default : fgcolor=GetSysColor_(#COLOR_BTNFACE) : EndIf
If font=#PB ...

I'm making the dll:

ProcedureDLL SetButtonColor(GadgetNumber.l, TextColor.l, BackColor.l, TextColorPushed.l, BackColorPushed.l)
PureCOLOR_SetButtonColor(GadgetNumber.l, TextColor.l, BackColor.l, TextColorPushed.l, BackColorPushed.l)
EndProcedure

That's why I don't understand why it doesn't work ...

Hello!
The problem is that the code is working, only dll does not work (but there is no error message). Why is this? I do not understand. I would have a solution for that.

Code:

OpenWindow(0, 100, 300, 310, 40, "PureCOLOR button test", #PB_Window_ScreenCentered | #PB_Window_SystemMenu ...

Hello kurzer!

Thank you for your comments!
I made a dll if I could use it in the PureBasic's new version.
But unfortunately not even with 5.00.

Hello!

I wrote a little code but it doesn't work. Why?
(PureBasic 5.00)
PureColor is installed.
Thanks for the help!

buttoncolor.dll :
ProcedureDLL SetButtonColor(GadgetNumber.l, TextColor.l, BackColor.l, TextColorPushed.l, BackColorPushed.l)
PureCOLOR_SetButtonColor(GadgetNumber.l, TextColor.l ...

Hello!

Thank you very much Drgolf!
You are very professional.

Thanks for Infratec!

Full code in the 4. comment.


I'm trying to fix it.

....
ProcedureDLL.s HTML2TEXT (url.s, out.s="txt")


html.s

DeleteFile("oldal.html")

InitNetwork()

URL$=url
ReceiveHTTPFile(URL$,"oldal.html")
ReadFile(0, "oldal.html") ; if the file could be read, we continue...
While Eof(0) = 0 ; loop as long the 'end of file' isn't reached
html ...

I've created a dll file but it does not work.
Somewhere I'll wrong it. I'm a very beginner.

How do I rewrite this program to work?