PureBoard

Code: Alles auswählen

;Simple example how to communicate with 'mother'- application
;Maybe its a bit useless to give only one function address to the script,
;but this is only for demonstration. Normaly you would allocate one
;memoryblock with a pointer table of all functions you want share,
;or something

;PLEASE CREATE EXECUTABLE, OR CORRECT PATH TO DCF

Procedure.s GetExePath()
  Protected Result.s
  If UCase(GetPathPart(ProgramFilename())) = UCase(#PB_Compiler_Home + "Compilers\")
    Result = GetCurrentDirectory()
  Else
    Result = GetPathPart(ProgramFilename())
  EndIf
  If Right(Result, 1) <> "\" : Result + "\" : EndIf
  ProcedureReturn Result
EndProcedure

Global answer.s

Procedure MyFunction(text.s)
  MessageRequester("Comes in from D-Lib..",text)
  answer="Oh, hello D-Lib. Nice to meet you."
  ProcedureReturn @answer
EndProcedure

OpenLibrary(0,"DRun.dll")
Result = CallFunction(0,"StartDLibScript", GetExePath() + "dlib_com_part.dcf",@MyFunction())

MessageRequester("DLib Return value",Str(Result))

Code: Alles auswählen

;## Begin Lib ##
Declare _webctrlinit.l

ProcedureLib CreateWebControl(hWnd.l, x.l, y.l, cx.l, cy.l, url.s, flag.l, extflag.l)
	Declare handle.l
	If _webctrlinit = 0
		AtlAxWinInit()
		_webctrlinit = 1
	EndIf
	handle = CreateWindowEx(extflag, "AtlAxWin", url, #WS_CHILD | #WS_VISIBLE | flag, x, y, cx, cy, hWnd, 0, 0, 0)
	ProcedureReturn handle
EndProcedure
;## Ende Lib ##


; Testcode
Declare hWnd.l, webcontrol.l, ende.l, message.l

hWnd = WindowCreate(100, 100, 750, 750, "Meine Homepage", #WS_SYSMENU)

If hWnd
	webcontrol = CreateWebControl(hWnd, 0, 0, 750, 750, "http://ts-soft.eu", 0, 0)

	While ende = 0
		message = WaitWinMessage()
		If message = #WM_CLOSE
			ende = 1
		EndIf
	Wend
EndIf

Code: Alles auswählen

image.l  = CatchPicture(?MyImage,?label-?MyImage,0)
width.l  = PictureWidth(image)
height.l = PictureHeight(image) + GetSystemMetrics(#SM_CYCAPTION)

image2.l  = CatchPicture(?label,?EndofMyImage-?label,RGB(255,255,255))
width2.l  = PictureWidth(image2)
height2.l = PictureHeight(image2) + GetSystemMetrics(#SM_CYCAPTION)