Jump to content

PRF

Members
  • Posts

    4
  • Joined

  • Last visited

Everything posted by PRF

  1. I'm trying to write a popup month calendar to replace the VB version I wrote long ago. My question is; how do I get Autoit to draw a circle around the date, as VB does, rather than a rectangle? #include <DateTimeConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Include <GuiMonthCal.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Calendar", 380, 340, 346, 265) $MonthCal1 = GUICtrlCreateMonthCal("", 0, 0, 380,340,$WS_BORDER, 0x00000000) GUICtrlSetFont ($MonthCal1, 18,400,0,"MS Sans Serif") _GUICtrlMonthCal_SetColor($MonthCal1, $MCSC_BACKGROUND, 0xFF007D) _GUICtrlMonthCal_SetColor($MonthCal1, $MCSC_TEXT, 0xFFFFB0 ) _GUICtrlMonthCal_SetColor($MonthCal1, $MCSC_TITLEBK, 0x0000ff) _GUICtrlMonthCal_SetColor($MonthCal1, $MCSC_TITLETEXT, 0xffffff) _GUICtrlMonthCal_SetColor($MonthCal1, $MCSC_MONTHBK, 0xFF007D) _GUICtrlMonthCal_SetColor($MonthCal1, $MCSC_TRAILINGTEXT, 0x9D989A) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd .
  2. Thank you. It did what I wanted.
  3. How do I detect when I grab the gui handle and move the window? I looked through all the functions and even tried google'ing it with no results.
  4. My question concerns OpenFileDialog running on XP 32 bit SP2/SP3. I'm trying to retrieve multiple files from an XP folder. It seems the max number of text characters that the (XP OS???) buffer returns is about 32,000 characters (including the CRLF pair I assume). Anything beyond 32k it truncates. Win 7 (64bit) doesn't seem to truncate the text so I'm assuming the problem is with XP. I tried _WinAPI_GetOpenFileName and had the same problem (once i figured out how to change the buffer size from the default 4096 characters). Everything in my program works except for this. Is there someway (or possibly a work around) to change the OS buffer size so it doesn't truncate the text? Func SelectFiles() Local $OutputFiles, $Path $OutputFiles = FileOpenDialog("Select Files", @WorkingDir & "", "(*.mp3;*.mp4;*.m4a;*.wav;*.ogg;*.flv;*.avi;*.bin)", 4) If @error Then Return 0 EndIf If Not StringInStr($OutputFiles, "|", 0, -1) Then $OutputFiles = StringReplace($OutputFiles, "\", "|", -1) EndIf $OutputFiles = StringReplace($OutputFiles, ":\|", ":|", -1) $OutputFiles = StringSplit($OutputFiles, "|") $Path = $OutputFiles[1] & "\*" For $Index = 2 To $OutputFiles[0] Step 1 _ArrayAdd($OutEditArray, $Path & $OutputFiles[$Index]) Next $OutEditArray[0] = UBound($OutEditArray) - 1 Return $OutEditArray[0] EndFunc ;==>SelectFiles
×
×
  • Create New...