#Region - TimeStamp ; 2012-05-19 12:45:14 v 0.1 #EndRegion - TimeStamp #Include #Include #Include #Include #Include #Include #Include Opt("GUIOnEventMode", 1) Global $sPath = @ScriptDir & "\", $bData[2] = [1] $bData[1] &= "0x00000100010024240000010020000A150000160000002800000024000000480000000100200000000000802800000000000000000000000000000000000000D8FFFF00D8FFFF00D8FFFF00D8FFFF01D8FFFF01D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D7FFFF11D5FFFF34D0FBFF78C6F5FFDDB6EEFF94124FFFD10949FFA71752FF9EC1F3FF3BCFF9FF13D5FDFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D9FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF01D8FFFF01D8FFFF00D8FFFF01D8FFFF03D7FFFF11D5FDFF28D2FCFF3DCEFBFF50CAF8FF66C8F8FF5DA2D3FF6875A9FF964C86FFA3104EFFD80849FFBC1655FF826BA1FF5799CAFF6AC8F6FF53CCF8FF41CEFBFF2CD1FCFF13D5FDFF05D7FFFF01D8FFFF00D7FEFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF03D7FFFF0CD6FDFF33D0FBFF78C6F5FF8C90C3FF92538BFF85235FFF7A1652FF881352FFA10F4FFFC00C4DFFE40549FFD6074BFF98114FFF7A1652FF801956FF944D86FF887FB7FF83C5F6FF3BCFFBFF11D5FDFF05D7FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF03D7FFFF0DD6FDFF28D2FCFF54CAF9FF65A2D4FF4D477CFF551C53FF761750FF7F1550FF882E6AFFBC5D9AFFED70AEFFB30D4EFFE10649FFD90D50FFD65E9EFF89336FFF7F1452FF7A1652FF5A1A55FF4A3D73FF5F91C5FF5DC9F8FF2FD0FCFF13D5FDFF06D7FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D9FFFF00D9FFFF0CD6FDFF2AD1FCFF6FC7F6FF876098FF731653FF661953FF4C275FFF5B72A4FF67ACDDFF62C8F8FF79C5F5FFC7B9EFFF7F1452FFD1084BFFA90D4EFFA3BFF5FF5DC9F9FF66B8E8FF5F86BAFF493269FF5E1A55FF781652FF7F4984FF77BAEBFF3ACFFBFF13D4FFFF00D7FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF03D7FFFF0CD6FDFF31D1FBFF6ABCECFF525288FF6F1753FF7D1955FF876098FF95B6E8FF56CBF8FF24D2FCFF0CD6FDFF31D1FBFF98C0F4FF631953FFC60A4CFF92104FFF63C9F9FF06D7FFFF1AD4FDFF46CDF9FF8DC2F4FF8C75ACFF7F1F5BFF751752FF4D3D73FF70AFE1FF3BCFFBFF11D5FFFF06D7FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF0CD6FDFF26D2FCFF6CC1F1FF753B75FF751752FF492C64FF779ED2FF5DC9F8FF34D0FBFF1DD5FDFF0CD6FDFF03D7FFFF31D1FBFF99C1F5FF611A53FFC10B4CFF8F1452FF61C9F8FF01D8FFFF08D6FFFF16D4FDFF2FD1FBFF54CBF8FF77AFE0FF4B3D73FF711752FF6C2C67FF6FB1E2FF36D0FBFF13D5FDFF00D9FFFF00D9FFFF00D8FFFF00D8FFFF00D8FFFF01D8FFFF23D1FBFF6AC8F6FF53578CFF761652FF7C2A65FF85B2E5FF44CEF9FF16D4FDFF03D7FFFF08D7FDFF18D4FDFF2DD1FCFF66C8F6FFC2B9F1FF7D1552FFC8094CFFB32766FF8FC2F4FF31D1FBFF1CD3FDFF0CD6FDFF03D7FFFF10D4FCFF38CFFBFF7DBFEFFF84447FFF711752FF4B3D73FF7ABFF0FF2FD1FBFF05D7FFFF01D8FFFF00D8FFFF00D8FFFF01D8FFFF05D7FFFF4BCCF9FF8C6FA7FF6C1853FF4C275FFF85A8DAFF48CDF9FF16D4FDFF06D7FFFF09D8FEFF1CD4FCFF48CDF9FF8BC2F5FFA087BFFFCC5F9DFFB80C4EFFDF0649FFCD1B5CFFB57EB7FF8AB7EAFF53CBF9FF24D2FCFF0CD6FDFF05D7FFFF13D5FDFF3BCFF9FF7FBEF0FF48386EFF751752FF7E4B84FF5DC9F8FF11D5FDFF05D7FFFF00D8FFFF00D8FFFF0CD6FDFF26D2FCFF6AB6E7FF711B57FF7C1552FF7693C6FF4FCCF9FF1AD4FDFF06D7FFFF13D5FDFF34D0FBFF65C3F1FF5378ACFF3C2960FF651855FF981050FFC30A4CFFE60549FFCB094BFF781652FF3C235BFF4E699CFF65B7E7FF3DCEFBFF19D5FEFF08D6FFFF13D5FDFF3ACFFBFF79AEE0FF811F5BFF781652FF5F92C4FF3BD0FCFF13D5FDFF00D8FFFF00D8FFFF21D3FCFF64C8F8FF546297FF681853FF7E4B85FF65C9F9FF1AD4FDFF08D6FFFF13D5FDFF3BCFFBFF75B4E6FF743771FF7A1652FF551B56FF68326DFFB85E9AFF9F104FFFDB064BFFC8074AFF8D3D78FF4D1C54FF7A1652FF6C2662FF79A4D7FF4BCCF9FF18D4FDFF06D7FFFF13D5FDFF58CBF8FF9174ACFF5E1854FF483E73FF7FC4F5FF2AD1FCFF00D8FFFF00D8FFFF33CFFAFF8CABDEFF431E56FF50205AFFA0AEE3FF3ACFFBFF01D8FFFF05D7FFFF30D0FAFF79B8EAFF493269FF781553FF872865FF9D92CAFFB4BCF1FFDDB6EEFF821351FFD2084BFFBA0B4BFFD4B7EEFF9B9FD4FF8F3D78FF761652FF4C275FFF79A4D7FF3DCEFBFF0CD6FDFF03D7FFFF31D1FBFF90BDF0FF462B63FF551A54FF8D8BBFFF3FCEFBFF00D8FFFF00D7FFFF48CDF9FF916EA6FF651953FF525D91FF6AC8F6FF23D3FCFF05D7FFFF11D5FDFF5FC9F8FF753B75FF781553FF4F3C73FF81B8EBFF51CBF9FF5DC9F8FFADBDF2FF6C1652FFCD084CFFA20E4EFF8AC4F5FF48CDF9FF78C6F5FF595B91FF741651FF702C67FF63B7E7FF24D2FCFF0CD6FDFF1AD4FDFF4FCCF9FF5A77AAFF781652FF96528BFF51CBF9FF00D8FFFF06D7FFFF5ACAF8FF8F3D78FF7A1652FF5B93C4FF36D0FBFF12D6FEFF11D5FDFF34D0FBFF5B93C4FF7C1552FF89225FFF7EB3E6FF36D0FBFF13D5FDFF28D2FCFF7A" $bData[1] &= "C6F6FF371E56FF911250FF661651FF54CBF8FF0CD6FDFF24D2FCFF71C1F0FF8D3D78FF781652FF4C699CFF51CBF9FF1AD4FDFF0CD6FDFF23D3FCFF69B1E1FF811452FF831F5BFF66C8F6FF11D5FDFF14D5FDFF61BDECFF811452FF871856FF6BC3F2FF13D5FDFF06D7FFFF24D2FCFF71C6F6FF3C4075FF611955FF9673ACFF59CCF9FF11D5FDFF06D7FFFF16D4FDFF44CEF9FF2672A2FF202258FF526FA2FF36D0FBFF03D7FFFF0CD6FDFF48CDF9FF9C9ED4FF4E1D55FF39245BFF8ABDEFFF2ED0FAFF02D6FEFF0CD6FDFF62C8F8FF8C2E69FF7D1552FF589DCEFF33D0FBFF51CCF8FF7B9ED0FF9F104FFFC42F6FFFADBDF2FF64C9F6FF65C9F9FF88C3F5FFC5AEE5FF661855FF811857FFE8A8E3FF94C1F4FF5BCAF8FF48CDF9FF3ACFFBFF2DD1FBFF3BCFFBFF61C9F8FF62C8F8FF41CEF9FF3BCFFBFF54CBF8FF86C3F5FFD5B8EFFF883873FF751752FFBB88C1FF8FC2F4FF62C8F8FF62C8F8FFA4BFF2FFCE4F8DFF9D104FFF8A75ACFF98C0F4FFBABCF2FFA267A1FFC10B4CFFDE074CFFB11555FF921350FF941251FFA01051FFB90D4FFFC8094EFFCF064AFFC4074CFFA50D4EFF791551FF431E56FF8DBCEFFF3ACFFBFF13D5FDFF1FD3FCFF41CEF9FF77C7F6FF545A8FFF782B65FF9E1553FFB70E4DFFC50748FFCD094BFFC40E4FFFA41252FF931150FF931452FFAC1253FFD30448FFDB064BFFB70A4EFFAB1557FF62356EFF751752FFCA094CFFE80449FFCF094BFFC30B4BFFC50B4DFFCC074BFFDD064BFFE4044BFFDF054BFFD8064CFFCD084CFFA60E4FFF611955FF5574A7FF34D0FBFF00D8FFFF00D8FFFF2AD1FCFF5699CAFF3E1F56FF931150FFC30A4CFFCF094BFFDB0749FFE80449FFE40549FFCF094BFFC40A4CFFC40A4CFFCF084CFFE40549FFE8044BFFDA064CFFD2064EFF715C93FF611A53FFB80C4EFFC30A4CFF831550FF631953FF621852FF7C1552FFAA0E4FFFBA0B4EFFA80C4DFF910F4EFF711451FF451C55FF112B61FF66C8F8FF21D3FCFF00D8FFFF00D8FFFF1FD3FCFF5DC9F8FF03285CFF411E56FF6D1753FF84134FFFA30F4FFFC40A4CFFB90A4DFF811452FF631953FF631953FF7F1452FFB70B4DFFC20B4FFF9B0E51FF8F195AFF96C1F4FF9F88BFFFA60E4FFFDB4182FFD2B7EFFF9BC0F4FF99C0F4FFB9BBF1FFDB8FC9FF861450FF9C2A69FFF9B1EDFFB8BCF1FF83C5F6FF5BC9F9FF3CCDFAFF27D1FBFF24D2FCFF34D0FBFF41CEFBFF48CDF9FF5FC9F8FF84C3F5FFB2BCF2FFE4B4EEFFB35290FF961150FFCD65A2FFC2B9F1FF98C0F4FF98C0F4FFCBB8EFFFEA60A0FFA40F4FFF9A5C98FFCAB9F2FF40CFFCFF75AADCFF941150FFAF2D6CFF8BC3F4FF3BD0FCFF34CFFCFF5AC9F9FFA3B9EDFF4F225BFF6D1753FFC69DD6FF6CC8F7FF2BD0FBFF1DD3FDFF26D2FCFF46CDF9FF5CB4E3FF4A699EFF91C2F4FF40CDFAFF1FD3FDFF2CD1FCFF61C9F8FFBDBAF1FF632862FF5E1A55FFA495CEFF65C9F9FF33D0FBFF33D0FBFF81C4F5FFB94685FF931150FF6F84B8FF68C7F8FF0DD6FDFF61C3F3FF851D5CFF821351FF65B1E1FF1DD4FCFF0AD6FFFF1FD3FDFF62C8F8FF48588DFF681853FF935E97FF68C8F6FF1DD4FCFF0BD8FEFF22D4FDFF66C8F8FF142459FF5E1A55FF4C2F67FF46CDF9FF06D7FFFF16D4FDFF58CAF9FF9D88BFFF561B55FF3A346BFF7FC4F5FF2AD1FCFF06D8FFFF0FD6FDFF6AC8F6FF851E5BFF811452FF61ADDDFF28D2FBFF05D7FFFF54CAF9FF924C88FF751653FF5A81B5FF48CDF9FF18D4FDFF0CD5FCFF2AD1FCFF62A7D8FF751653FF831452FF8391C5FF5ACAF8FF1DD4FCFF2DD1FCFF88C3F5FF481D56FF9D104FFF7E2662FF58CBF8FF16D4FDFF43CEF9FF82ADE0FF831F5BFF751551FF5A8DBFFF3BCFFBFF13D5FDFF0FD6FDFF2DD1FBFF609ECEFF7D1552FF882E69FF61CAF6FF0DD7FCFF00D8FFFF43CEF9FF8D7EB7FF5C1A55FF483E73FF81C4F5FF2AD1FCFF03D7FFFF0AD7FDFF51CBF9FF88659EFF711753FF50205AFF7E8FC2FF68C8F6FF6DC7F6FFBBBBF1FF731653FFC60A4CFFA61958FF94C1F4FF5FC9F8FF81A9DAFF4E3168FF781652FF7B467FFF5FC9F8FF13D5FDFF06D7FFFF21D3FCFF62C9F6FF5A679BFF6D1753FF93649CFF4BCDF8FF00DAFEFF00D8FFFF2CD2FBFF83BEF0FF422D64FF611955FF9B88BFFF43CEF9FF01D8FFFF03D7FFFF24D2FCFF68C7F8FF545B92FF6F1753FF831452FF905992FFC598D0FFFEB1EBFF961150FFD6064CFFC4084AFFE59ED7FF9568A0FF851856FF781652FF4A3D73FF71BBEBFF2ED0FAFF06D7FFFF01D8FFFF3ACFFBFF9BA9DEFF53205AFF4D1B55FF8EA0D5FF38CFFBFF00D8FFFF00D8FFFF18D4FDFF4FCCF9FF5B7CAEFF6F1753FF7D3571FF72C6F6FF23D3FCFF0CD6FDFF0CD6FFFF23D2FDFF68C7F8FF8A69A2FF711753FF6A1853FF711752FF9A2562FFAD0E4EFFE0044AFFD1064BFF831452FF651953FF7A1652FF7E4B85FF76C0F0FF33D0FBFF11D5FDFF08D7FDFF1CD3FDFF65C7F5FF804B84FF6C1853FF4F5388FF6DC7F6FF23D3FCFF00D8FFFF00D8FFFF08D6FFFF1CD3FDFF65C2F3FF71316CFF731752FF686AA0FF6BC7F6FF23D3FCFF03D7FFFF0CD6FFFF26D2FCFF4FCCF9FF63ACDEFF44588FFF51265FFF861450FFBB0C4CFFE4044BFFC5084DFF621E59FF445489FF5F9CCEFF5BCAF8FF2DD1FCFF11D5FDFF05D7FFFF1CD4FCFF53CBF9FF748FC2FF7C1650FF711C56FF6CB6E6FF28D2FCFF0DD7FEFF00D8FFFF00D8FFFF00D9FFFF01D7FFFF3DCEFBFF929ACFFF591F59FF511B56FF8486BCFF5FC9F8FF24D2FCFF0DD6FDFF03D7FFFF08" $bData[1] &= "D7FDFF26D2FCFF5DC9F9FFA6BEF4FFDA8EC8FFA40F4EFFCF084CFFA71353FFBDBAF1FF62C8F8FF2FD0FCFF0FD6FDFF05D7FFFF0AD7FDFF1DD3FDFF4FCCF9FF88A7DAFF49225AFF6A1952FF8D75ABFF4ACDF9FF05D8FDFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF1BD5FEFF51CBF9FF6081B3FF6D1753FF7C1A56FF8380B7FF6DC7F6FF25D3FDFF01D8FFFF03D7FFFF0BD5FCFF20D4FEFF58CBF8FFB9BBF1FF6C1853FF9D104FFFA04C87FF71C6F6FF1FD3FCFF0FD6FDFF05D7FFFF01D8FFFF1DD4FCFF5AC9F9FF869CD0FF78215BFF751752FF576296FF64C9F6FF23D3FCFF01D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF06D7FFFF16D4FDFF5CCBF9FF8969A2FF6D1753FF551B55FF65659BFF74C6F6FF44CEF9FF2CD1FCFF18D4FDFF0AD7FDFF33CFFAFF99C0F4FF531C55FF931150FFBA73ACFF53CCF8FF06D7FDFF14D5FDFF28D2FCFF3FCEFBFF6AC8F6FF6F84B8FF4C215AFF731752FF7B4C84FF66C2F1FF23D3FCFF0CD6FDFF00D8FFFF00D8FFFF00D8FFFF00D7FFFF00D7FFFF00D8FFFF01D8FFFF06D7FFFF25D3FDFF5AC9F9FF6385BAFF5A1F59FF761652FF772A67FF9F88BFFF86C3F5FF4BCCF9FF21D3FCFF3BCFFBFF9BC0F4FF5E1A55FFB10D4EFF881D5BFF61CAF6FF1AD4FCFF41CEF9FF78C5F6FFA09DD4FF7D407AFF781652FF611A53FF596BA0FF66C8F6FF2BD0FBFF0CD6FDFF03D7FFFF00D8FFFF00D8FFFF00D8FFFF00D7FFFF00D7FFFF00D8FFFF00D8FFFF00D8FFFF06D7FFFF14D5FDFF4FCCF9FF909BCFFF71316CFF731653FF651855FF46386EFF5A7CB1FF63ADDDFF8FC2F4FFD4B7EEFF851352FFCD084CFFB01455FFB0BDF1FF67B7E6FF5582B5FF4F4C83FF561B55FF6C1853FF722660FF8F85BAFF5BCAF8FF1DD4FCFF0AD7FDFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF01D8FFFF06D7FFFF1AD4FDFF3BCFFBFF68C8F6FF5E80B5FF402D64FF561B55FF711753FF851352FFAA2361FFD23373FFC8094CFFE8044BFFDD064BFFBF2566FF851352FF751653FF5B1954FF3C235BFF5671A4FF6AC2F1FF43CEF9FF1FD3FCFF0AD7FDFF03D7FFFF00D8FFFF00D7FFFF00D7FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D9FFFF00D8FFFF1AD4FDFF4DCCF9FF81BEF0FF9289C1FF90538DFF89225FFF98114FFFB10D4EFFC40A4CFFD4074CFFC8094CFFA30F4FFF831856FF924C88FF917EB5FF87B7EBFF58CBF8FF1FD3FDFF01D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D7FFFF00D7FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D9FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF08D6FFFF1AD4FDFF2BD0FBFF41CEFBFF53CBF9FF60C8F7FF80B3E5FFB68FC7FF781652FF931150FF8F3B76FF87A8DAFF63C8F5FF54CAF9FF43CEF9FF2FD0FCFF1DD4FCFF0AD6FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D7FEFF00D8FFFF00D7FEFF00D8FFFF00D7FEFF00D8FFFF00D8FFFF01D8FFFF03D7FFFF08D6FFFF3FCEFBFFA9BFF3FF5D265FFF711752FFD6B7EEFF51CCF8FF0CD6FDFF03D7FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D9FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF00D8FFFF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" Global $bDatanames[1] = ["cross_36x36.ico"] For $i = 1 To $bData[0] Local $sFile = $sPath & $bDatanames[$i -1] Local $hFileOut = FileOpen($sFile, 2+8+16) FileWrite($hFileOut, Binary($bData[$i])) FileClose($hFileOut) Next OnAutoItExitRegister("_DelBinaryTempFiles") Func _DelBinaryTempFiles() For $i = 1 To $bData[0] FileDelete($sPath & $bDatanames[$i -1]) Next EndFunc Global $FontSize = 8.5, $FontWeight = 400, $FontAttrib = 'Standard' Global $FontName = 'Comic Sans MS', $FontColor = 0x000000, $BackColor = 0xD4D0C8 $CursorCross = GUICreate('', 48, 48, -1, -1, $WS_POPUP, $WS_EX_TOPMOST) WinSetTrans($CursorCross, '', 10) GUISetCursor(3, 1, $CursorCross) $GUI = GUICreate("Formatierung Controls", 443, 280, -1, -1) GUISetBkColor(0x0088FF) GUISetOnEvent($GUI_EVENT_CLOSE, "GUIClose") $dmy = GUICtrlCreateDummy() ControlFocus($GUI, '', $dmy) $grColor = GUICtrlCreateGroup(" Farben und Font ", 10, 12, 423, 255) GUICtrlCreateLabel('Color-', 22, 31, 45, 17) GUICtrlCreateLabel('Picker', 22, 48, 45, 17) $picCross = GUICtrlCreateButton('', 68, 28, 36, 36, $BS_ICON) GUICtrlSetImage(-1, '.\cross_36x36.ico') GUICtrlSetOnEvent(-1, 'showPicker') $btClipBoard = GUICtrlCreateButton("Copy To Clipboard", 270, 34, 150, 24, -1) GUICtrlSetOnEvent(-1, "btClipBoardClick") $lbFonttype = GUICtrlCreateLabel("Schriftart", 22, 75, 43, 17) $cbFontType = GUICtrlCreateCombo("", 68, 72, 245, 25, BitOR( $CBS_SORT,$CBS_DROPDOWN, $CBS_AUTOHSCROLL, $WS_VSCROLL)) GUICtrlSetOnEvent(-1, "cbParamChanged") $lbFontSize = GUICtrlCreateLabel("Größe", 325, 75, 31, 17) $cbFontSize = GUICtrlCreateCombo("", 360, 72, 60, 25) GUICtrlSetOnEvent(-1, "cbParamChanged") $lbFontAttrib = GUICtrlCreateLabel("Attribut", 22, 103, 37, 17) $cbFontAttrib = GUICtrlCreateCombo("", 68, 100, 145, 25) GUICtrlSetOnEvent(-1, "cbParamChanged") $lbFontWeight = GUICtrlCreateLabel("Breite", 22, 131, 29, 17) $cbFontWeight = GUICtrlCreateCombo("", 68, 128, 145, 25) GUICtrlSetOnEvent(-1, "cbParamChanged") $lbMuster = GUICtrlCreateLabel("Muster", 222, 100, 198, 49, BitOR($SS_CENTER,$SS_CENTERIMAGE,$SS_SUNKEN)) GUICtrlSetBkColor(-1, $BackColor) $rFontColor = GUICtrlCreateRadio("Schriftfarbe", 22, 157, 79, 17) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlSetOnEvent(-1, "rFontColorClick") $rBackColor = GUICtrlCreateRadio("Hintergrundfarbe", 127, 157, 105, 17) GUICtrlSetOnEvent(-1, "rBackColorClick") $slRed = GUICtrlCreateSlider(174, 180, 250, 20, 0) GUICtrlSetLimit(-1, 255, 0) GUICtrlSetOnEvent(-1, "slRedChange") GUICtrlSetBkColor(-1, 0xFF0000) $slGreen = GUICtrlCreateSlider(174, 205, 250, 20, 0) GUICtrlSetLimit(-1, 255, 0) GUICtrlSetOnEvent(-1, "slGreenChange") GUICtrlSetBkColor(-1, 0x00FF00) $slBlue = GUICtrlCreateSlider(174, 230, 250, 20, 0) GUICtrlSetLimit(-1, 255, 0) GUICtrlSetOnEvent(-1, "slBlueChange") GUICtrlSetBkColor(-1, 0x0000FF) $InRed = GUICtrlCreateInput("", 132, 180, 40, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL)) GUICtrlSetOnEvent(-1, "InRedChange") GUICtrlSetBkColor(-1, 0xFF0000) GUICtrlSetFont(-1, 8.5, 600, -1, "Comic Sans MS") $InGreen = GUICtrlCreateInput("", 132, 205, 40, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL)) GUICtrlSetOnEvent(-1, "InGreenChange") GUICtrlSetBkColor(-1, 0x00FF00) GUICtrlSetFont(-1, 8.5, 600, -1, "Comic Sans MS") $InBlue = GUICtrlCreateInput("", 132, 230, 40, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL)) GUICtrlSetOnEvent(-1, "InBlueChange") GUICtrlSetBkColor(-1, 0x0000FF) GUICtrlSetFont(-1, 8.5, 600, -1, "Comic Sans MS") $lbRed = GUICtrlCreateLabel("Rot", 100, 183, 21, 17) $lbGreen = GUICtrlCreateLabel("Grün", 100, 208, 27, 17) $lbBlue = GUICtrlCreateLabel("Blau", 100, 233, 25, 17) $lbColorView = GUICtrlCreateLabel("", 22, 180, 60, 46, $SS_SUNKEN) $InHex = GUICtrlCreateInput("", 22, 230, 60, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL)) GUICtrlSetOnEvent(-1, "InHexChange") GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_SHOW) _Slider2Hex() _SetComboFonts() _SetComboSize() _SetComboAttrib() _SetComboWeight() GUICtrlSetFont($lbMuster, -1, -1, -1, $FontName) While 1 Sleep(100) WEnd Func GUIClose() Exit EndFunc Func showPicker() Local $pos GUISetState(@SW_HIDE, $GUI) Sleep(100) GUISetState(@SW_SHOW, $CursorCross) Do $pos = MouseGetPos() WinMove($CursorCross, '', $pos[0]-24, $pos[1]-24) Sleep(10) Until _IsPressed('01') GUISetState(@SW_HIDE, $CursorCross) Local $col = PixelGetColor($pos[0], $pos[1]) GUICtrlSetData($InHex, '0x' & Hex($col, 6)) InHexChange() GUISetState(@SW_SHOW, $GUI) EndFunc Func btClipBoardClick() _SetFontMuster() $str = ('GUICtrlSetFont(-1, ' & $FontSize & ', ' & $FontWeight & ', ' & $FontAttrib & ', "' & $FontName & '")' & @LF & _ 'GUICtrlSetColor(-1, ' & $FontColor & ')' & @LF & _ 'GUICtrlSetBkColor(-1, ' & $BackColor & ')') ClipPut($str) MsgBox(0, '', $str & @LF & @LF & 'wurde in die Zwischenablage kopiert' ) EndFunc Func cbParamChanged() $FontAttrib = GUICtrlRead($cbFontAttrib) $FontSize = GUICtrlRead($cbFontSize) $FontName = _SelectFontName(GUICtrlRead($cbFontType)) $FontWeight = GUICtrlRead($cbFontWeight) _SetFontMuster() EndFunc Func InBlueChange() $tmp = GUICtrlRead($InBlue) If $tmp < 0 Or $tmp > 255 Then GUICtrlSetData($InBlue, GUICtrlRead($slBlue)) _SetFailed() Return EndIf GUICtrlSetData($slBlue, $tmp) _Slider2Hex() EndFunc Func InGreenChange() $tmp = GUICtrlRead($InGreen) If $tmp < 0 Or $tmp > 255 Then GUICtrlSetData($InGreen, GUICtrlRead($slGreen)) _SetFailed() Return EndIf GUICtrlSetData($slGreen, $tmp) _Slider2Hex() EndFunc Func InHexChange() $tmp = GUICtrlRead($InHex) If Not StringRegExp($tmp, '(0x[0-9A-Fa-f]{6}(?!.))') Then _Slider2Hex() _SetFailed() Return EndIf _Hex2Slider() EndFunc Func InRedChange() $tmp = GUICtrlRead($InRed) If $tmp < 0 Or $tmp > 255 Then GUICtrlSetData($InRed, GUICtrlRead($slRed)) _SetFailed() Return EndIf GUICtrlSetData($slRed, $tmp) _Slider2Hex() EndFunc Func rBackColorClick() GUICtrlSetBkColor($lbMuster, $BackColor) GUICtrlSetData($InHex, '0x' & Hex($BackColor, 6)) _Hex2Slider() EndFunc Func rFontColorClick() GUICtrlSetColor($lbMuster, $FontColor) GUICtrlSetData($InHex, '0x' & Hex($FontColor, 6)) _Hex2Slider() EndFunc Func slBlueChange() _Slider2Hex() EndFunc Func slGreenChange() _Slider2Hex() EndFunc Func slRedChange() _Slider2Hex() EndFunc Func _Slider2Hex() GUICtrlSetData($InBlue, GUICtrlRead($slBlue)) GUICtrlSetData($InGreen, GUICtrlRead($slGreen)) GUICtrlSetData($InRed, GUICtrlRead($slRed)) $red = Hex(GUICtrlRead($slRed), 2) $green = Hex(GUICtrlRead($slGreen), 2) $blue = Hex(GUICtrlRead($slBlue), 2) $hexColor = '0x' & $red & $green & $blue GUICtrlSetData($InHex, $hexColor) GUICtrlSetBkColor($lbColorView, $hexColor) If GUICtrlRead($rFontColor) = $GUI_CHECKED Then $FontColor = GUICtrlRead($InHex) GUICtrlSetColor($lbMuster, $FontColor) Else $BackColor = GUICtrlRead($InHex) GUICtrlSetBkColor($lbMuster, $BackColor) EndIf EndFunc Func _Hex2Slider() $red = Dec(StringMid(GUICtrlRead($InHex), 3, 2)) $green = Dec(StringMid(GUICtrlRead($InHex), 5, 2)) $blue = Dec(StringRight(GUICtrlRead($InHex), 2)) GUICtrlSetData($InRed, $red) GUICtrlSetData($InGreen, $green) GUICtrlSetData($InBlue, $blue) GUICtrlSetData($slRed, $red) GUICtrlSetData($slGreen, $green) GUICtrlSetData($slBlue, $blue) GUICtrlSetBkColor($lbColorView, GUICtrlRead($InHex)) If GUICtrlRead($rFontColor) = $GUI_CHECKED Then $FontColor = GUICtrlRead($InHex) GUICtrlSetColor($lbMuster, $FontColor) Else $BackColor = GUICtrlRead($InHex) GUICtrlSetBkColor($lbMuster, $BackColor) EndIf EndFunc Func _GetFonts() Local $key = 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts' Local $arFonts[1] = [0], $i = 1 While 1 $val = RegEnumVal($key, $i) If @error <> 0 Then ExitLoop ReDim $arFonts[UBound($arFonts)+1] $arFonts[UBound($arFonts)-1] = $val $arFonts[0] += 1 $i += 1 WEnd Return $arFonts EndFunc Func _SetComboFonts() $ar = _GetFonts() For $i = 1 To UBound($ar) -1 _GUICtrlComboBox_AddString($cbFontType, $ar[$i]) Next $index = _GUICtrlComboBox_FindString($cbFontType, 'Comic Sans MS (TrueType)', 1) _GUICtrlComboBox_SetCurSel($cbFontType, $index) EndFunc Func _SetComboSize() For $i = 6 To 28 Step 0.5 _GUICtrlComboBox_AddString($cbFontSize, $i) Next _GUICtrlComboBox_SetCurSel($cbFontSize, 5) EndFunc Func _SetComboAttrib() _GUICtrlComboBox_AddString($cbFontAttrib, 'Standard') _GUICtrlComboBox_AddString($cbFontAttrib, 'Kursiv') _GUICtrlComboBox_AddString($cbFontAttrib, 'Unterstrichen') _GUICtrlComboBox_AddString($cbFontAttrib, 'Durchgestrichen') _GUICtrlComboBox_AddString($cbFontAttrib, 'K + U') _GUICtrlComboBox_AddString($cbFontAttrib, 'K + D') _GUICtrlComboBox_AddString($cbFontAttrib, 'K + U + D') _GUICtrlComboBox_AddString($cbFontAttrib, 'U + D') _GUICtrlComboBox_SetCurSel($cbFontAttrib, 0) EndFunc Func _SetComboWeight() For $i = 100 To 1000 Step 50 _GUICtrlComboBox_AddString($cbFontWeight, $i) Next _GUICtrlComboBox_SetCurSel($cbFontWeight, 6) EndFunc Func _SelectFontName($FONT) If $FONT = 'Wingdings 2 (TrueType)' Then Return 'Wingdings 2' If $FONT = 'Wingdings 3 (TrueType)' Then Return 'Wingdings 3' Return StringStripWS(StringRegExpReplace($FONT, '(\d*,|\d* \([a-zA-ZäöüÄÖÜ0-9 -]*\))', ''), 2) EndFunc Func _SetFontMuster() Switch $FontAttrib Case 'Standard' $FontAttrib = -1 Case 'Kursiv' $FontAttrib = 2 Case 'Unterstrichen' $FontAttrib = 4 Case 'Durchgestrichen' $FontAttrib = 8 Case 'K + U' $FontAttrib = 6 Case 'K + D' $FontAttrib = 10 Case 'K + U + D' $FontAttrib = 14 Case 'U + D' $FontAttrib = 12 Case Else $FontAttrib = -1 EndSwitch GUICtrlSetFont($lbMuster, $FontSize, $FontWeight, $FontAttrib, $FontName) EndFunc Func _SetFailed() $lbFail = GUICtrlCreateLabel("Wert außerhalb des Bereiches!", 20, 34, 240, 30) GUICtrlSetFont(-1, 12, 400, 2, 'Comic Sans MS') GUICtrlSetColor(-1, 0xB00024) Sleep(2000) GUICtrlDelete(-1) EndFunc