Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 04/28/2024 in all areas

  1. It's probably not a great way of going about things, but as a quick and dirty you could pop this in an adlib! Func UpdateEdit() Local $sNewTxt, $aiSel $aiSel = _GUICtrlRichEdit_GetSel($editBox) $sTxt = _GUICtrlRichEdit_GetText($editBox) $sNewTxt = StringReplace($sTxt, " ", ChrW(0x00B7)) $sNewTxt = StringReplace($sNewTxt, @TAB, ChrW(0x2192)) If $sTxt <> $sNewTxt Then _GUICtrlRichEdit_SetText($editBox, $sNewTxt) _GUICtrlRichEdit_SetSel($editBox, $aiSel[0], $aiSel[1]) EndIf EndFunc
    1 point
  2. MattyD

    Midi UDF

    Hi all, here is release 1.7 of the UDF The main focus of this release was to bring in some MSC support, which is mainly used with lighting consoles. MSC can also (potentially) control things like fireworks, and flys/trusses etc. So in the unlikely event anyone is trying to do that, dont! (i.e. read the disclaimer in the helpfile) Changelog: - Added some Midi Show Control (MSC) support - Fixed issue where _midi_CloseOutput failed to close non-stream handles. - Fixed example scripts for sequence functions. - Updated reference list links in the helpfile. The midi.org site has been updated, which broke hyperlinks. - Modified internals for _midi_PackSize
    1 point
  3. KaFu

    FileOpenDialog

    I think it defaults to somewhere here if the folder does not exist: \HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ComDlg32\ Couldn't find a quick way to decoded those MRUs properly though. I use a custom version of _FileOpenDialog_Ex() to reset @workingdir to the initial script workingdir (because the new workingdir is blocked from deletion). Add a test to initdir there and you're golden. Func _FileOpenDialog_Ex($sTitle, $sInitDir, $sFilter, $iOptions = 0, $sDefaultName = "", $hWnd = 0) #cs https://groups.google.com/forum/?hl=en&fromgroups=#!topic/microsoft.public.vc.mfc/HafQr4gIRY0 The problem is that GetOpenFileName changes the current directory to the last browsed one. The current directory and any of its parents cannot be deleted. #ce Local $sWorkingDir = @WorkingDir if not StringInStr(FileGetAttrib($sInitDir),"D") then $sInitDir = @ScriptDir Local $sFilename = FileOpenDialog($sTitle, $sInitDir, $sFilter, $iOptions, $sDefaultName, $hWnd) Local $iError = @error FileChangeDir($sWorkingDir) Return SetError($iError, 0, $sFilename) EndFunc ;==>_FileOpenDialog_Ex
    1 point
  4. How to set drag-area (rectangle - area within border) with color?
    1 point
×
×
  • Create New...