taietel

Try this, see if it works: #include "..\MPDF_UDF.au3" #include <File.au3> ;set the properties for the pdf _SetTitle("Link to web example") _SetSubject("click link in pdf") _SetKeywords("pdf, AutoIt") _OpenAfter(True) ;open after generation _SetUnit($PDF_UNIT_CM) _SetPaperSize("A4") _SetZoomMode($PDF_ZOOM_CUSTOM, 90) _SetOrientation($PDF_ORIENTATION_PORTRAIT) _SetLayoutMode($PDF_LAYOUT_CONTINOUS) ;initialize the pdf _InitPDF(@ScriptDir & "\link_in_pdf") _LoadFontTT("fontArial", $PDF_FONT_ARIAL, $PDF_FONT_ITALIC) _BeginPage() _InsertLink(2, 28, "https://autoitscript.com/", "fontArial", 10) _EndPage() ;write the buffer to disk _ClosePDFFile() Func _InsertLink($iX, $iY, $sURL, $sFontAlias, $iFontSize) __InitObj() _DrawText($iX, $iY, $sURL, $sFontAlias, $iFontSize) __EndObj() __InitObj() __ToBuffer("<</URI(" & __ToPdfStr($sURL) & ") /Type /Action /S /URI>>") __EndObj() EndFunc ;==>_InsertLink

Another try: #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= GUICreate("GUI", 294, 69, 192, 124) $idProgressBar = GUICtrlCreateProgress(8, 24, 278, 24, $PBS_SMOOTH) $idLabel = GUICtrlCreateLabel("0", 8, 24, 276, 22, BitOR($SS_CENTER,$SS_CENTERIMAGE)) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### For $i = 0 To 10 GUICtrlSetData($idProgressBar, CalcPercent($i, 10)) If $i=5 Then GUICtrlSetColor($idLabel,0xffffff) GUICtrlSetData($idLabel, $i) Sleep(1000) Next While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func CalcPercent($iPartDone, $iTotal, $iRoundToDecimalPlace = 1) Return Round(($iPartDone / $iTotal) * 100, $iRoundToDecimalPlace) EndFunc

JScript, try now: #include <GUIConstantsEx.au3> #include <WinAPIGdi.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> ;coded by taietel _SlideWindow() Func _SlideWindow() Local $iW = 600, $iFont = 12, $iH = $iFont + 4 + 20, $bExpand = True, $iNoIcnsExpand = 3, $w = $iNoIcnsExpand * ($iFont + 4 + 10), $p = 25, $r = 25, $iDelay = 2 Local $iIcnExit = "r", $iIcnCfg = "@", $iIcnInfo = "i", $iIcnUp = "5", $iIcnDown = "6", $iIcnSep = "|", $iIcnChk = "a", $iIcnFull = "1" ; Create GUI Local $hForm = GUICreate("Test", $iW, $iH + $p, (@DesktopWidth - $iW + $w + $r) / 2, -$iH, $WS_POPUP, $WS_EX_TOPMOST) GUISetBkColor(0xdedede) ;------- Put some stuff on GUI ---------- Local $hExit = GUICtrlCreateLabel($iIcnExit, 5, $iH - ($iFont + 4) - 10, $iFont + 4, $iFont + 4, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Webdings", 5) GUICtrlSetColor(-1, 0x505050) GUICtrlSetCursor(-1, 0) GUICtrlSetTip(-1, "Exit") GUICtrlCreateLabel($iIcnSep, 5 + $iFont + 4, $iH - ($iFont + 4) - 10, $iFont + 4, $iFont + 4, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Webdings", 5) GUICtrlSetColor(-1, 0x909090) Local $hSomeStuff = GUICtrlCreateLabel($iIcnCfg, 5 + 2 * ($iFont + 4), $iH - ($iFont + 4) - 10, $iFont + 4, $iFont + 4, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Webdings", 5) GUICtrlSetColor(-1, 0x505050) Local $hSomeStuff_l = GUICtrlCreateLabel("Some stuff", 5 + 3 * ($iFont + 4), $iH - ($iFont + 4) - 10, 80, $iFont + 4, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Arial", 5) GUICtrlSetColor(-1, 0x505050) GUICtrlSetTip(-1, "Click for menu") GUICtrlSetCursor(-1, 0) Local $hSomeStuffA = GUICtrlCreateLabel($iIcnDown, 5 + 3 * ($iFont + 4) + 80, $iH - ($iFont + 4) - 10, $iFont + 4, $iFont + 4, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont - 2, 400, 0, "Webdings", 5) GUICtrlSetColor(-1, 0x505050) GUICtrlSetTip(-1, "Click for menu") GUICtrlSetCursor(-1, 0) Local $DummyMenu = GUICtrlCreateDummy() Local $hContextMenu = GUICtrlCreateContextMenu($DummyMenu) Local $mnuSomeStuff = GUICtrlCreateMenuItem("Some Item", $hContextMenu) Local $mnuExit = GUICtrlCreateMenuItem("Exit", $hContextMenu) GUICtrlCreateLabel($iIcnSep, 5 + 4 * ($iFont + 4) + 80 - 5, $iH - ($iFont + 4) - 10, $iFont + 4, $iFont + 4, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Webdings", 5) GUICtrlSetColor(-1, 0x909090) GUICtrlCreateLabel($iIcnInfo, 5 + 5 * ($iFont + 4) + 80, $iH - ($iFont + 4) - 10, $iFont + 4, $iFont + 4, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Webdings", 5) GUICtrlSetColor(-1, 0x505050) Local $hAbout = GUICtrlCreateLabel("About", 5 + 6 * ($iFont + 4) + 80, $iH - ($iFont + 4) - 10, 60, $iFont + 4, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Arial", 5) GUICtrlSetColor(-1, 0x505050) GUICtrlSetCursor(-1, 0) GUICtrlSetTip(-1, "About this program...") GUICtrlCreateLabel($iIcnSep, 5 + 6 * ($iFont + 4) + 80 + 60, $iH - ($iFont + 4) - 10, $iFont + 4, $iFont + 4, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Webdings", 5) GUICtrlSetColor(-1, 0x909090) ;------- end some stuff on GUI ---------- Local $hExpand = GUICtrlCreateLabel($iIcnDown, $iW - $r - $w / 4 - ($iFont + 4) / 2, $iH + ($p - ($iFont + 4)) / 2, $iFont + 4, $iFont + 4, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Webdings", 5) GUICtrlSetColor(-1, 0x505050) GUICtrlSetCursor(-1, 0) GUICtrlSetTip(-1, "Expand") GUICtrlCreateLabel($iIcnSep, $iW - $r - 2 * $w / 4 - ($iFont + 4) / 2, $iH + ($p - ($iFont + 4)) / 2, $iFont + 4, $iFont + 4, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Webdings", 5) GUICtrlSetColor(-1, 0x909090) Local $hFullScreen = GUICtrlCreateLabel($iIcnFull, $iW - $r - 3 * $w / 4 - ($iFont + 4) / 2, $iH + ($p - ($iFont + 4)) / 2, $iFont + 4, $iFont + 4, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Webdings", 5) GUICtrlSetCursor(-1, 0) GUICtrlSetTip(-1, "Full Screen") GUICtrlSetColor(-1, 0x505050) Local $hRgn = _WinAPI_CreateRectRgn(0, 0, $iW - 1, $iH / 2) Local $hRgn1 = _WinAPI_CreateRoundRectRgn(0, 0, $iW, $iH, 7, 7) Local $hRgn2 = _WinAPI_CreateRoundRectRgn($iW - $r - $w, 2, $iW - $r, $iH + $p, 7, 7) Local $hRgn3 = _WinAPI_CreateRectRgn($iW - $r - $w - 5, 2, $iW - $r - $w, $iH + $p) Local $aPointl[3][2] = [[$iW - $r - $w - 5, $iH - 1], [$iW - $r - $w, $iH + $p], [$iW - $r - $w, $iH - 1]] Local $hRgn3 = _WinAPI_CreatePolygonRgn($aPointl) Local $aPointr[3][2] = [[$iW - $r + 5, $iH - 1], [$iW - $r - 2, $iH + $p - 1], [$iW - $r - 1, $iH - 1]] Local $hRgn4 = _WinAPI_CreatePolygonRgn($aPointr) _WinAPI_CombineRgn($hRgn, $hRgn, $hRgn1, $RGN_OR) _WinAPI_CombineRgn($hRgn, $hRgn, $hRgn2, $RGN_OR) _WinAPI_CombineRgn($hRgn, $hRgn, $hRgn3, $RGN_OR) _WinAPI_CombineRgn($hRgn, $hRgn, $hRgn4, $RGN_OR) _WinAPI_DeleteObject($hRgn1) _WinAPI_DeleteObject($hRgn2) _WinAPI_DeleteObject($hRgn3) _WinAPI_DeleteObject($hRgn4) _WinAPI_SetWindowRgn($hForm, $hRgn, 1) GUISetState(@SW_SHOW) While 1 Switch GUIGetMsg() Case $hExit, $mnuExit Exit Case $hFullScreen MsgBox(0, "", "Here you'll have to put the code for full screen mode.") Case $mnuSomeStuff MsgBox(0,"","stuff...") Case $hAbout MsgBox(0, "", "Here you'll have to put the code for About message.") Case $hExpand If $bExpand Then GUICtrlSetData($hExpand, $iIcnUp) WinMove($hForm, "", (@DesktopWidth - $iW + $w + $r) / 2, 0, $iW, $iH + $p, $iDelay) GUICtrlSetTip($hExpand, "Retract") $bExpand = False Else GUICtrlSetData($hExpand, $iIcnDown) WinMove($hForm, "", (@DesktopWidth - $iW + $w + $r) / 2, -$iH, $iW, $iH + $p, $iDelay) GUICtrlSetTip($hExpand, "Expand") $bExpand = True EndIf Case $hSomeStuffA, $hSomeStuff_l ShowMenu($hForm, $hContextMenu, $hSomeStuff) EndSwitch WEnd EndFunc ;==>_test Func ShowMenu($hWnd, $nContextID, $nContextControlID, $iMouse = 0) Local $hMenu = GUICtrlGetHandle($nContextID) Local $iCtrlPos = ControlGetPos($hWnd, "", $nContextControlID) Local $X = $iCtrlPos[0] Local $Y = $iCtrlPos[1] + $iCtrlPos[3] ClientToScreen($hWnd, $X, $Y) If $iMouse Then $X = MouseGetPos(0) $Y = MouseGetPos(1) EndIf DllCall("user32.dll", "int", "TrackPopupMenuEx", "hwnd", $hMenu, "int", 0, "int", $X, "int", $Y, "hwnd", $hWnd, "ptr", 0) EndFunc ;==>ShowMenu ; Convert the client (GUI) coordinates to screen (desktop) coordinates Func ClientToScreen($hWnd, ByRef $X, ByRef $Y) Local $stPoint = DllStructCreate("int;int") DllStructSetData($stPoint, 1, $X) DllStructSetData($stPoint, 2, $Y) DllCall("user32.dll", "int", "ClientToScreen", "hwnd", $hWnd, "ptr", DllStructGetPtr($stPoint)) $X = DllStructGetData($stPoint, 1) $Y = DllStructGetData($stPoint, 2) ; release Struct not really needed as it is a local $stPoint = 0 EndFunc ;==>ClientToScreen

Try now: #include <GUIConstantsEx.au3> #include <WinAPIGdi.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> ;coded by taietel #cs <----------------------- $iW -----------------------> | | $iH | | - <--------- $w -------><--- $r ---> | | $p | | - #ce $iW=500 $iFont=12 $iH=$iFont+4+20 $bExpand=True $iNoIcnsExpand=3 $w=$iNoIcnsExpand*($iFont+4+10) $p=25 $r=20 $iDelay=2 $iIcnExit="r" $iIcnCfg="@" $iIcnInfo="i" $iIcnUp="5" $iIcnDown="6" $iIcnSep="|" $iIcnChk="a" $iIcnFull="1" ; Create GUI Local $hForm = GUICreate("Test", $iW, $iH+$p, (@DesktopWidth-$iW+$w+$r)/2, -$iH, $WS_POPUP, $WS_EX_TOPMOST) GUISetBkColor(0xdedede) ;------- Put some stuff on GUI ---------- $hExit = GUICtrlCreateLabel($iIcnExit, 5, $iH-($iFont+4)-10, $iFont+4, $iFont+4, BitOR($SS_CENTER,$SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Webdings",5) GUICtrlSetColor(-1, 0x505050) GUICtrlSetCursor(-1,0) GUICtrlSetTip(-1,"Exit") GUICtrlCreateLabel($iIcnSep, 5+$iFont+4, $iH-($iFont+4)-10, $iFont+4, $iFont+4, BitOR($SS_CENTER,$SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Webdings",5) GUICtrlSetColor(-1, 0x909090) $hSomeStuff = GUICtrlCreateLabel($iIcnCfg, 5+2*($iFont+4), $iH-($iFont+4)-10, $iFont+4, $iFont+4, BitOR($SS_CENTER,$SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Webdings",5) GUICtrlSetColor(-1, 0x505050) $hSomeStuff_l=GUICtrlCreateLabel("Some stuff", 5+3*($iFont+4), $iH-($iFont+4)-10, 80, $iFont+4, BitOR($SS_CENTER,$SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Arial",5) GUICtrlSetColor(-1, 0x505050) $hSomeStuffA = GUICtrlCreateLabel($iIcnDown, 5+3*($iFont+4)+80, $iH-($iFont+4)-10, $iFont+4, $iFont+4, BitOR($SS_CENTER,$SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont-2, 400, 0, "Webdings",5) GUICtrlSetColor(-1, 0x505050) GUICtrlSetCursor(-1,0) $DummyMenu = GUICtrlCreateDummy() $hContextMenu = GUICtrlCreateContextMenu($DummyMenu) $mnuSomeStuff = GUICtrlCreateMenuItem("Some Item", $hContextMenu) $mnuExit = GUICtrlCreateMenuItem("Exit", $hContextMenu) GUICtrlCreateLabel($iIcnSep, 5+4*($iFont+4)+80-5, $iH-($iFont+4)-10, $iFont+4, $iFont+4, BitOR($SS_CENTER,$SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Webdings",5) GUICtrlSetColor(-1, 0x909090) GUICtrlCreateLabel($iIcnInfo, 5+5*($iFont+4)+80, $iH-($iFont+4)-10, $iFont+4, $iFont+4, BitOR($SS_CENTER,$SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Webdings",5) GUICtrlSetColor(-1, 0x505050) $hAbout = GUICtrlCreateLabel("About", 5+6*($iFont+4)+80, $iH-($iFont+4)-10, 60, $iFont+4, BitOR($SS_CENTER,$SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Arial",5) GUICtrlSetColor(-1, 0x505050) GUICtrlSetCursor(-1,0) GUICtrlSetTip(-1,"About this program...") GUICtrlCreateLabel($iIcnSep, 5+6*($iFont+4)+80+60, $iH-($iFont+4)-10, $iFont+4, $iFont+4, BitOR($SS_CENTER,$SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Webdings",5) GUICtrlSetColor(-1, 0x909090) ;------- end some stuff on GUI ---------- $hExpand = GUICtrlCreateLabel($iIcnDown, $iW-$r-$w/4-($iFont+4)/2, $iH+($p-($iFont+4))/2, $iFont+4, $iFont+4, BitOR($SS_CENTER,$SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Webdings",5) GUICtrlSetColor(-1, 0x505050) GUICtrlSetCursor(-1,0) GUICtrlSetTip(-1,"Expand") GUICtrlCreateLabel($iIcnSep, $iW-$r-2*$w/4-($iFont+4)/2, $iH+($p-($iFont+4))/2, $iFont+4, $iFont+4, BitOR($SS_CENTER,$SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Webdings",5) GUICtrlSetColor(-1, 0x909090) $hFullScreen = GUICtrlCreateLabel($iIcnFull, $iW-$r-3*$w/4-($iFont+4)/2, $iH+($p-($iFont+4))/2, $iFont+4, $iFont+4, BitOR($SS_CENTER,$SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Webdings",5) GUICtrlSetCursor(-1,0) GUICtrlSetTip(-1,"Full Screen") GUICtrlSetColor(-1, 0x505050) Local $hRgn = _WinAPI_CreateRectRgn (0, 0, $iW-1, $iH/2) Local $hRgn1 = _WinAPI_CreateRoundRectRgn(0, 0, $iW, $iH, 7, 7) Local $hRgn2 = _WinAPI_CreateRoundRectRgn($iW-$r-$w, 2, $iW-$r, $iH+$p, 7, 7) _WinAPI_CombineRgn($hRgn, $hRgn, $hRgn1, $RGN_OR) _WinAPI_CombineRgn($hRgn, $hRgn, $hRgn2, $RGN_OR) _WinAPI_DeleteObject($hRgn1) _WinAPI_DeleteObject($hRgn2) _WinAPI_SetWindowRgn($hForm, $hRgn, 1) GUISetState(@SW_SHOW) While 1 Switch GUIGetMsg() Case $hExit, $mnuExit Exit Case $hFullScreen MsgBox(0,"","Here you'll have to put the code for full screen mode.") Case $hAbout MsgBox(0,"","Here you'll have to put the code for About message.") Case $hExpand If $bExpand Then GUICtrlSetData($hExpand,$iIcnUp) WinMove($hForm, "", (@DesktopWidth-$iW+$w+$r)/2, 0, $iW, $iH+$p,$iDelay) GUICtrlSetTip($hExpand,"Retract") $bExpand=False Else GUICtrlSetData($hExpand,$iIcnDown) WinMove($hForm, "", (@DesktopWidth-$iW+$w+$r)/2, -$iH, $iW, $iH+$p,$iDelay) GUICtrlSetTip($hExpand,"Expand") $bExpand=True EndIf Case $hSomeStuffA, $hSomeStuff_l ShowMenu($hForm, $hContextMenu, $hSomeStuff) EndSwitch WEnd Func ShowMenu($hWnd, $nContextID, $nContextControlID, $iMouse=0) Local $hMenu = GUICtrlGetHandle($nContextID) Local $iCtrlPos = ControlGetPos($hWnd, "", $nContextControlID) Local $X = $iCtrlPos[0] Local $Y = $iCtrlPos[1] + $iCtrlPos[3] ClientToScreen($hWnd, $X, $Y) If $iMouse Then $X = MouseGetPos(0) $Y = MouseGetPos(1) EndIf DllCall("user32.dll", "int", "TrackPopupMenuEx", "hwnd", $hMenu, "int", 0, "int", $X, "int", $Y, "hwnd", $hWnd, "ptr", 0) EndFunc ; Convert the client (GUI) coordinates to screen (desktop) coordinates Func ClientToScreen($hWnd, ByRef $x, ByRef $y) Local $stPoint = DllStructCreate("int;int") DllStructSetData($stPoint, 1, $x) DllStructSetData($stPoint, 2, $y) DllCall("user32.dll", "int", "ClientToScreen", "hwnd", $hWnd, "ptr", DllStructGetPtr($stPoint)) $x = DllStructGetData($stPoint, 1) $y = DllStructGetData($stPoint, 2) ; release Struct not really needed as it is a local $stPoint = 0 EndFunc

#include <GUIConstantsEx.au3> #include <WinAPIGdi.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #cs <----------------------- $iW -----------------------> | | $iH | | - <--------- $w -------><--- $r ---> | | $p | | - #ce $iW=500 $iH=200 $w=90 $p=25 $r=20 $iFont=16 $bExpand=True ; Create GUI Local $hForm = GUICreate("Test", $iW, $iH+$p, (@DesktopWidth-$iW+$w+$r)/2, -$iH, $WS_POPUP, $WS_EX_TOPMOST) GUISetBkColor(0xdedede) $hExit = GUICtrlCreateLabel("r", $iW-$r-$w/4-($iFont+4)/2, $iH+($p-($iFont+4))/2, $iFont+4, $iFont+4, BitOR($SS_CENTER,$SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Webdings") GUICtrlSetColor(-1, 0x505050) GUICtrlSetCursor(-1,0) $hCfg = GUICtrlCreateLabel("@", $iW-$r-2*$w/4-($iFont+4)/2, $iH+($p-($iFont+4))/2, $iFont+4, $iFont+4, BitOR($SS_CENTER,$SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Webdings") GUICtrlSetCursor(-1,0) GUICtrlSetColor(-1, 0x505050) $hExpand = GUICtrlCreateLabel("6", $iW-$r-3.5*$w/4-($iFont+4)/2, $iH+($p-($iFont+4))/2, $iFont+4, $iFont+4, BitOR($SS_CENTER,$SS_CENTERIMAGE)) GUICtrlSetFont(-1, $iFont, 400, 0, "Webdings") GUICtrlSetCursor(-1,0) GUICtrlSetColor(-1, 0x505050) Local $aPoint[9][2] = [[0, 0],[$iW, 0],[$iW, $iH],[$iW-$r,$iH],[$iW-$r-$p/3,$iH+$p],[$iW-$r-$w,$iH+$p],[$iW-$r-$w-$p/3,$iH],[0, $iH],[0, 0]] Local $hRgn = _WinAPI_CreatePolygonRgn($aPoint) _WinAPI_SetWindowRgn($hForm, $hRgn, 0) GUISetState(@SW_SHOW) While 1 Switch GUIGetMsg() Case $hExit Exit Case $hCfg MsgBox(0,"","You won! What?...") Case $hExpand If $bExpand Then GUICtrlSetData($hExpand,"5") WinMove($hForm, "", (@DesktopWidth-$iW+$w+$r)/2, 0, $iW, $iH+$p,5) $bExpand=False Else GUICtrlSetData($hExpand,"6") WinMove($hForm, "", (@DesktopWidth-$iW+$w+$r)/2, -$iH, $iW, $iH+$p,5) $bExpand=True EndIf EndSwitch WEnd Try this, see if it fits. (modified: made some changes)

This is another approach: #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <WinAPI.au3> $hGUI = GUICreate("", 100, 100, -1,-1, $WS_POPUP, $WS_EX_LAYERED+$WS_EX_TOOLWINDOW) GUISetBkColor(0xabcdef) GUICtrlCreateLabel("Label1", 5, 5, 50, 50, -1, $GUI_WS_EX_PARENTDRAG) GUICtrlSetBkColor(-1, 0xFF0000) _WinAPI_SetLayeredWindowAttributes($hGUI,0xabcdef) GUISetState(@SW_SHOW) While 1 Sleep(10) Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd

I use this template in my projects: #include <GuiConstants.au3> #include <EditConstants.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #region GLOBAL VARIABLES Global $iW = 600, $iH = 400, $iT = 52, $iB = 52, $iLeftWidth = 150, $iGap = 10, $hMainGUI #endregion GLOBAL VARIABLES _MainGui() Func _MainGui() Local $hFooter, $nMsg, $aPos Local $iLinks = 5 Local $sMainGuiTitle = "Sample Title" Local $sHeader = "Sample GUI" Local $sFooter = "2012 © AutoIt" Local $aLink[$iLinks], $aPanel[$iLinks] $aLink[0] = $iLinks - 1 $aPanel[0] = $iLinks - 1 $hMainGUI = GUICreate($sMainGuiTitle, $iW, $iH, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_TABSTOP)) GUISetIcon("shell32.dll", -58, $hMainGUI) GUICtrlCreateLabel($sHeader, 48, 8, $iW - 56, 32, $SS_CENTERIMAGE) GUICtrlSetFont(-1, 14, 800, 0, "Arial", 5) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlCreateIcon("shell32.dll", -131, 8, 8, 32, 32) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlCreateLabel("", 0, $iT, $iW, 2, $SS_SUNKEN);separator GUICtrlSetResizing(-1, $GUI_DOCKTOP + $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKHEIGHT) GUICtrlCreateLabel("", $iLeftWidth, $iT + 2, 2, $iH - $iT - $iB - 2, $SS_SUNKEN);separator GUICtrlSetResizing(-1, $GUI_DOCKTOP + $GUI_DOCKLEFT + $GUI_DOCKBOTTOM + $GUI_DOCKWIDTH) GUICtrlCreateLabel("", 0, $iH - $iB, $iW, 2, $SS_SUNKEN);separator GUICtrlSetResizing(-1, $GUI_DOCKBOTTOM + $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKHEIGHT) $hFooter = GUICtrlCreateLabel($sFooter, 10, $iH - 34, $iW - 20, 17, BitOR($SS_LEFT, $SS_CENTERIMAGE)) GUICtrlSetTip(-1, "AutoIt Forum", "Click to open...") GUICtrlSetCursor(-1, 0) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT) ;add links to the left side $aLink[1] = _AddNewLink("Link 1") $aLink[2] = _AddNewLink("Link 2", -167) $aLink[3] = _AddNewLink("Link 3", -222) $aLink[4] = _AddNewLink("Link 4", -22) ;and the corresponding GUI's $aPanel[1] = _AddNewPanel("Title for the panel 1") $aPanel[2] = _AddNewPanel("Title for the panel 2") $aPanel[3] = _AddNewPanel("Title for the panel 3") $aPanel[4] = _AddNewPanel("Title for the panel 4") ;add some controls to the panels _AddControlsToPanel($aPanel[1]) GUICtrlCreateEdit("", 10, 37, $iW - $iLeftWidth + 2 - 20 - 5, $iH - $iT - $iB - 40, BitOR($ES_AUTOVSCROLL, $ES_NOHIDESEL, $ES_WANTRETURN, $WS_VSCROLL), $WS_EX_STATICEDGE) Local $sTestTxt = "" For $i = 1 To 10 $sTestTxt &= @TAB & "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Vestibulum felis lectus, pharetra vel laoreet nec, pulvinar nec justo. Donec malesuada, nunc eu faucibus sodales, diam sem tempor neque, id condimentum turpis nunc vel lacus. Nulla a nulla libero, eget eleifend dolor. Vivamus volutpat tincidunt ultricies. Vestibulum eu libero nisi, quis tincidunt nisi. Proin tincidunt, ipsum ullamcorper posuere venenatis, libero nulla venenatis enim, ultrices tincidunt ipsum arcu nec turpis. In at erat sed ipsum gravida mattis in at felis. Vivamus diam purus, dictum ut luctus vitae, sollicitudin ut velit. Maecenas velit mauris, fringilla ut condimentum bibendum, aliquam a neque. Nulla metus eros, commodo id dictum in, interdum sed ipsum. Vivamus feugiat, mi at auctor fringilla, libero lectus vulputate tortor, eu sollicitudin nulla lacus at neque." & @CRLF $sTestTxt &= @TAB & "Sed vel ante magna. Curabitur porttitor ante in tellus bibendum non tristique diam volutpat. Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos himenaeos. In tellus lectus, ultrices in tempus eget, sollicitudin quis eros. Curabitur at arcu bibendum massa feugiat euismod at a felis. Nunc molestie, enim non ornare tincidunt, ipsum nisi tempus sapien, quis elementum elit velit ut neque. Suspendisse eu adipiscing risus. Nam tempor odio ut elit auctor rhoncus. Etiam viverra elit id felis feugiat pellentesque pretium porttitor dui. Vivamus eu quam non ante suscipit vehicula a nec eros. Phasellus congue massa sed libero interdum ullamcorper. Quisque fringilla massa ut lorem fringilla pulvinar eget ullamcorper eros. Praesent faucibus, erat at consequat tempus, nulla erat sodales mi, eget sagittis nibh erat nec nunc. Phasellus risus nibh, porta viverra pretium nec, vehicula eget nisi." & @CRLF $sTestTxt &= @TAB & "Sed vel neque vel urna elementum accumsan feugiat quis mauris. Sed mi nisl, consequat dapibus molestie ac, rutrum ut elit. Praesent sed risus sem. Mauris rutrum blandit magna nec tristique. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Suspendisse consequat iaculis odio nec cursus. Duis varius tincidunt ligula ac ultricies. Ut eget magna in nulla vulputate dapibus ut vel sem. Integer ac tempor risus." & @CRLF $sTestTxt &= @TAB & "Maecenas molestie semper turpis, id tristique nibh pharetra eget. Aliquam erat volutpat. In egestas, lorem quis varius vestibulum, enim diam porta lorem, quis dictum arcu ante a diam. Nullam vel nisi mauris. Cum sociis natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus. Aliquam ut leo purus, eget vulputate augue. Fusce et est sagittis felis accumsan sollicitudin eget a lectus. Cras sapien sapien, rutrum eu tempor non, tempor nec velit. Vivamus interdum adipiscing felis in malesuada. Fusce quis purus est, eget molestie turpis. In hac habitasse platea dictumst." & @CRLF $sTestTxt &= @TAB & "Aenean eleifend risus vitae lorem laoreet facilisis. Suspendisse ac urna quam, vel rutrum sem. Sed bibendum porta tellus malesuada scelerisque. Vestibulum at ligula sed nulla sollicitudin tincidunt. Pellentesque mi magna, vulputate et aliquam a, auctor et nunc. Phasellus feugiat fringilla accumsan. Donec ultrices, elit id dapibus auctor, nunc odio viverra lorem, non commodo mi libero a libero. Cras vitae felis venenatis augue laoreet tincidunt scelerisque id odio. Proin lorem purus, molestie feugiat pretium nec, ornare aliquam turpis. " Next GUICtrlSetData(-1, $sTestTxt) GUICtrlSetResizing(-1, $GUI_DOCKTOP + $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM) _AddControlsToPanel($aPanel[2]) GUICtrlCreateLabel("Label1", 8, 38, 36, 17) GUICtrlSetResizing(-1, $GUI_DOCKTOP + $GUI_DOCKLEFT + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Local $hInput1 = GUICtrlCreateInput("Input1", 56, 35, 121, 21) GUICtrlSetResizing(-1, $GUI_DOCKTOP + $GUI_DOCKLEFT + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Local $hButton1 = GUICtrlCreateButton("Button1", 200, 33, 75, 25) GUICtrlSetResizing(-1, $GUI_DOCKTOP + $GUI_DOCKLEFT + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) _AddControlsToPanel($aPanel[3]) GUICtrlCreateList("", 8, 37, 121, 93, -1, 0) GUICtrlSetData(-1, "dfgdfg|ertert|kljlkj|poipoi|qweqwe") GUICtrlSetResizing(-1, $GUI_DOCKTOP + $GUI_DOCKLEFT + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) _AddControlsToPanel($aPanel[4]) GUICtrlCreateGroup("Group1", 8, 35, 129, 90) GUICtrlSetResizing(-1, $GUI_DOCKTOP + $GUI_DOCKLEFT + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Local $aChkBox[4] For $i = 1 To 3 $aChkBox[$i] = GUICtrlCreateRadio("Some radio " & $i, 16, 56 + ($i - 1) * 20, 113, 17) GUICtrlSetResizing(-1, $GUI_DOCKTOP + $GUI_DOCKLEFT + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Next GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlCreateGroup("", -99, -99, 1, 1) ;set default to Panel1 GUISwitch($aPanel[1]) ;show the main GUI GUISetState(@SW_SHOW, $hMainGUI) While 1 Sleep(10) $nMsg = GUIGetMsg(1) Switch $nMsg[1] Case $hMainGUI Switch $nMsg[0] Case $GUI_EVENT_CLOSE Exit Case $GUI_EVENT_MINIMIZE, $GUI_EVENT_MAXIMIZE, $GUI_EVENT_RESTORE $aPos = WinGetPos($hMainGUI) $iW = $aPos[2] $iH = $aPos[3] For $i = 0 To $aPanel[0] WinMove($aPanel[$i], "", $iLeftWidth + 2, $iT, $iW - $iLeftWidth + 2, $iH - $iT - $iB - 20) Next Case $aLink[1], $aLink[2], $aLink[3], $aLink[4] For $i = 1 To $aLink[0] If $nMsg[0] = $aLink[$i] Then GUISetState(@SW_SHOW, $aPanel[$i]) Else GUISetState(@SW_HIDE, $aPanel[$i]) EndIf Next Case $hFooter ShellExecute("http://www.autoitscript.com/forum/topic/146952-gui-design-concepts/") EndSwitch Case $aPanel[2] Switch $nMsg[0] Case $hButton1 MsgBox(32, "Test", "You have " & GUICtrlRead($hInput1) & "?") EndSwitch Case $aPanel[4] Switch $nMsg[0] Case $aChkBox[1], $aChkBox[2], $aChkBox[3] For $i = 1 To 3 If GUICtrlRead($aChkBox[$i]) = $GUI_CHECKED Then MsgBox(64, "Test", "You checked nr. " & $i & "!") Next EndSwitch EndSwitch WEnd EndFunc ;==>_MainGui Func _AddNewLink($sTxt, $iIcon = -44) Local $hLink = GUICtrlCreateLabel($sTxt, 36, $iT + $iGap, $iLeftWidth - 46, 17) GUICtrlSetCursor(-1, 0) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlCreateIcon("shell32.dll", $iIcon, 10, $iT + $iGap, 16, 16) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) $iGap += 22 Return $hLink EndFunc ;==>_AddNewLink Func _AddNewPanel($sTxt) Local $gui = GUICreate("", $iW - $iLeftWidth + 2, $iH - $iT - $iB, $iLeftWidth + 2, $iT, $WS_CHILD + $WS_VISIBLE, -1, $hMainGUI) GUICtrlCreateLabel($sTxt, 10, 10, $iW - $iLeftWidth - 20, 17, $SS_CENTERIMAGE) GUICtrlSetFont(-1, 9, 800, 4, "Arial", 5) GUICtrlSetResizing(-1, $GUI_DOCKTOP + $GUI_DOCKLEFT + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Return $gui EndFunc ;==>_AddNewPanel Func _AddControlsToPanel($hPanel) GUISwitch($hPanel) EndFunc ;==>_AddControlsToPanel

Just delete "& @LF".

MKANET, here is an example using labels: #include <GUIConstantsEx.au3> #include <StaticConstants.au3> $bOn = True $hGUI = GUICreate("On/Off", 120, 45) GUICtrlCreateLabel("ON", 10, 10, 50, 25, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetFont(-1, 8, 800, 0, "Arial",5) GUICtrlSetColor(-1, 0xC0C0C0) GUICtrlSetBkColor(-1, 0x101010) GUICtrlSetState(-1, $GUI_DISABLE) GUICtrlCreateLabel("OFF", 60, 10, 50, 25, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetFont(-1, 8, 800, 0, "Arial",5) GUICtrlSetColor(-1, 0xC0C0C0) GUICtrlSetBkColor(-1, 0x101010) GUICtrlSetState(-1, $GUI_DISABLE) $hSwitch = GUICtrlCreateLabel("", 60, 10, 50, 25) GUICtrlSetFont(-1, 8, 800, 0, "Arial") GUICtrlSetBkColor(-1, 0xFF0000) GUISetState(@SW_SHOW) While 1 Switch GUIGetMsg() Case -3 Exit Case $hSwitch $aPos = ControlGetPos($hGUI, "", $hSwitch) If $bOn Then For $i = 0 To 50 ControlMove($hGUI, "", $hSwitch, $aPos[0] - $i, $aPos[1]) Next $bOn = False Else For $i = 0 To 50 ControlMove($hGUI, "", $hSwitch, $aPos[0] + $i, $aPos[1]) Next $bOn = True EndIf EndSwitch WEnd

Sorry for the (long) delay... fifish, thanks for finding the bug. I will modify in the next release. adolfito121, replace _LoadResImage function from the UDF with this one: ; #FUNCTION# ==================================================================================================================== ; Name ..........: _LoadResImage ; Description ...: Load a image in the pdf (if you use it multiple times it decreases the size of the pdf) ; Syntax ........: _LoadResImage( $sImgAlias , $sImage [, $bInterpolate = True ]) ; Parameters ....: $sImgAlias - an alias to identify the image in the pdf (e.g. "Cheese"). ; $sImage - image path. ; $bInterpolate - interpolate image . ; Return values .: Success - "True" ; Failure - "False" ; Author(s) .....: Mihai Iancu (taietel at yahoo dot com) ; Modified ......: ; Remarks .......: Image types accepted: BMP, GIF, TIF, TIFF, PNG, JPG, JPEG (those are tested) ; Related .......: ; Link ..........: [url="http://www.autoitscript.com/forum/topic/118827-create-pdf-from-your-application/"]http://www.autoitscript.com/forum/topic/118827-create-pdf-from-your-application/[/url] ; Example .......: No ; =============================================================================================================================== Func _LoadResImage($sImgAlias, $sImage, $bInterpolate="True") Local $iW, $iH, $ImgBuf, $hImage, $hImageExt, $newImg, $hClone, $hGraphics, $iObj If $sImgAlias = "" Then __Error("You don't have an alias for the image", @ScriptLineNumber) If $sImage = "" Then __Error("You don't have any images to insert or the path is invalid",@ScriptLineNumber) Else $hImageExt = StringUpper(StringRight($sImage, 3)) $newImg = _TempFile(@ScriptDir, "~", ".jpg") Switch $hImageExt Case "BMP", "GIF", "TIF", "TIFF", "PNG", "JPG", "JPEG", "ICO" _GDIPlus_Startup() $hImage = _GDIPlus_ImageLoadFromFile($sImage) $iW = _GDIPlus_ImageGetWidth($hImage) $iH = _GDIPlus_ImageGetHeight($hImage) $hClone = _GDIPlus_BitmapCloneArea($hImage, 0, 0, $iW, $iH, $GDIP_PXF24RGB) $hGraphics = _GDIPlus_ImageGetGraphicsContext($hClone) _GDIPlus_GraphicsSetSmoothingMode($hGraphics, 2) _GDIPlus_GraphicsClear($hGraphics, 0xFFFFFFFF) _GDIPlus_GraphicsDrawImage($hGraphics, $hImage, 0, 0) _GDIPlus_ImageSaveToFile($hClone, $newImg) $ImgBuf = __ToBinary($newImg) $_iImageW = $iW $_iImageH = $iH $iObj = __InitObj() __ToBuffer("<</Type /XObject /Subtype /Image /Name /" & $sImgAlias & " /Width " & $_iImageW & " /Height " & $_iImageH & _ " /Filter /DCTDecode /ColorSpace /DeviceRGB /BitsPerComponent 8 /Interpolate " & StringLower($bInterpolate) & " /Length " & $iObj + 1 & " 0 R" & ">>") __ToBuffer("stream" & @CRLF & $ImgBuf & @CRLF & "endstream") __EndObj() $_Image &= "/" & $sImgAlias & " " & $iObj & " 0 R " & @CRLF __InitObj() __ToBuffer(StringLen($ImgBuf)) __EndObj() _GDIPlus_ImageDispose($hImage) _GDIPlus_GraphicsDispose($hGraphics) _GDIPlus_BitmapDispose($hClone) _GDIPlus_Shutdown() FileDelete($newImg) Case Else __Error("The image is invalid",@ScriptLineNumber) Exit EndSwitch EndIf Return $_Image EndFunc ;==>_LoadResImage

Under the GuiCtrlCreateGroup() put DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", 0, "wstr", 0)

Fentus, here is the example modified: #include <GUIConstantsEx.au3> GUICreate("Test", 400, 400) Local $Graphic1 = GUICtrlCreateGraphic(5, 5, 390, 390) Local $aTriangle[3][2]=[[10,10], [10,200], [200,10]] GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $aTriangle[0][0], $aTriangle[0][1]) GUICtrlSetGraphic(-1, $GUI_GR_LINE, $aTriangle[1][0], $aTriangle[1][1]) GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $aTriangle[1][0], $aTriangle[1][1]) GUICtrlSetGraphic(-1, $GUI_GR_LINE, $aTriangle[2][0], $aTriangle[2][1]) GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $aTriangle[2][0], $aTriangle[2][1]) GUICtrlSetGraphic(-1, $GUI_GR_LINE, $aTriangle[0][0], $aTriangle[0][1]) GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x000000, 0xFF0000) For $i=1 To 500 Local $aP = _RandomPoint($aTriangle) ConsoleWrite($aP[0][0] & ", " & $aP[0][1] & @CRLF) GUICtrlSetGraphic($Graphic1, $GUI_GR_DOT, Round($aP[0][0]), Round($aP[0][1])) Next GUISetState(@SW_SHOW) While 1 Sleep(10) Switch GUIGetMsg() Case -3 Exit EndSwitch WEnd Func _RandomPoint($aArray) If UBound($aArray)<>3 And UBound($aArray,2)<>2 Then MsgBox(0,"Error!", "The array doesn't represent a triangle!...") Local $r1, $r2, $aPoint[1][2] $r1 = Random(0,1) $r2 = Random(0,1) $aPoint[0][0] = Round((1 - sqrt($r1)) * $aArray[0][0] + ((1 - $r2)*sqrt($r1)) * $aArray[1][0] + ($r2*sqrt($r1)) * $aArray[2][0],2) $aPoint[0][1] = Round((1 - sqrt($r1)) * $aArray[0][1] + ((1 - $r2)*sqrt($r1)) * $aArray[1][1] + ($r2*sqrt($r1)) * $aArray[2][1],2) Return $aPoint EndFunc

Fentus, try this example: #include <GUIConstantsEx.au3> GUICreate("Test", 400, 400) Local $Graphic1 = GUICtrlCreateGraphic(5, 5, 390, 390) Local $aTriangle[3][2]=[[10,10], [10,200], [200,10]] GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $aTriangle[0][0], $aTriangle[0][1]) GUICtrlSetGraphic(-1, $GUI_GR_LINE, $aTriangle[1][0], $aTriangle[1][1]) GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $aTriangle[1][0], $aTriangle[1][1]) GUICtrlSetGraphic(-1, $GUI_GR_LINE, $aTriangle[2][0], $aTriangle[2][1]) GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $aTriangle[2][0], $aTriangle[2][1]) GUICtrlSetGraphic(-1, $GUI_GR_LINE, $aTriangle[0][0], $aTriangle[0][1]) GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x000000, 0xFF0000) Local $iXr, $iYr, $r1, $r2 For $i=1 To 600 $r1 = Random(0,1) $r2 = Random(0,1) $iXr = (1 - sqrt($r1)) * $aTriangle[0][0] + ((1 - $r2)*sqrt($r1)) * $aTriangle[1][0] + ($r2*sqrt($r1)) * $aTriangle[2][0] $iYr = (1 - sqrt($r1)) * $aTriangle[0][1] + ((1 - $r2)*sqrt($r1)) * $aTriangle[1][1] + ($r2*sqrt($r1)) * $aTriangle[2][1] ConsoleWrite($iXr & ", " & $iYr & @CRLF) GUICtrlSetGraphic($Graphic1, $GUI_GR_DOT, Round($iXr), Round($iYr)) Next GUISetState(@SW_SHOW) While 1 Sleep(10) Switch GUIGetMsg() Case -3 Exit EndSwitch WEnd

rob5zero, it's possible, but that involves adding more functions to the UDF. Efo74, if you want to use _Paragraph function with standard fonts, you have to add those fonts also (with their properties), just like __FontTimes, for example.

$iNumber = 1 MsgBox(0,"",StringFormat("%06d",$iNumber))