Topher

Thank you

Is there any way to change the font size in scite?

Just installed version 3.3.8.1 and it now works like a charm. Thank you for the quick solution.

Dumb question, but how do I find out what version I have?

This is my first time using _FileWriteFromArray. It looked straight forward but when I ran the script I got C:\Program Files (x86)\AutoIt3\Include\File.au3 (256) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.: If FileWrite($hFile, $a_Array[$x] & @CRLF) = 0 Then If FileWrite($hFile, ^ ERROR And I can't find the problem. Pointers would help. Thanks #include <array.au3> #Include <File.au3> $Root = ".\Data\" Global Const $FileNameGalaxy = $Root & "Galaxy.UU" Global Const $GalaxySize = 400 + Rand(200) Global Const $MaxLinks = 40 Global $SectorLinks Dim $SectorLinks[$GalaxySize+1][$MaxLinks+1] ;-------------------------------------------- Local $a $hSplash = SplashTextOn("Galaxy","Creating") For $itr = 1 To $GalaxySize ; determine number of sector links $Links = Rand(10) $SectorLinks[$itr][0] = RandomDesignation() ControlSetText("","", $hSplash, $GalaxySize - $itr) For $a = 1 To $Links $NewLink = Rand($GalaxySize) $FreeLink = FindEmptyLink($itr) If $NewLink <> 0 Then $SectorLinks[$itr][$FreeLink] = $NewLink $FreeLink = FindEmptyLink($NewLink) If $FreeLink <> 0 Then $SectorLinks[$NewLink][$FreeLink] = $itr Next Next SplashOff() _ArrayDisplay($SectorLinks) WriteGalaxy() Func WriteGalaxy() $file = FileOpen($FileNameGalaxy, 2) If $file = -1 Then MsgBox(16, "Fatal Error", "Can not create galaxy file") Exit EndIf _FileWriteFromArray($file, $SectorLinks, 0) FileClose($file) EndFunc Func DesignationExists($Designation) For $a = 1 To $GalaxySize If StringUpper($SectorLinks[$a][0]) = StringUpper($Designation) Then Return $a Next Return 0 EndFunc Func FindEmptyLink($Sector) For $a = 1 To $MaxLinks If $SectorLinks[$Sector][$a] = 0 Then Return $a Next Return 0 EndFunc Func Rand($pMax) Return Random(0, $pMax, 1) EndFunc Func RandomDesignation() While True $temp = Chr(65 + Rand(25)) If $temp = "I" Then ContinueLoop If $temp = "O" Then ContinueLoop $Designation = "P" & Rand(9) & $temp & "-" & Rand(899)+100 If Not DesignationExists($Designation) Then Return $Designation WEnd EndFunc

Reflex 2.05 is a thorough reworking of This version of the Video game adds mouse and joystick support greatly adding to ease and enjoyment of play. A few new shapes are added as well as a couple of animations and complete overhaul of the displays. Screen Caps For Images, Sounds and Instructions click here The script follows below. Reflex.au3

Thank you.

Windows gives you the option to magnify windows font sizing. 100%, 125%, 150%. This plays havoc with one of my layouts. Is there a way to determine the magnification from within a script?

Cool. Thank you - never would have found them.

That's what I meant. I seem not to be able to find some, but I got a bunch of them.

Thank you. Off to remove some old posts.

I have used all of my 'global upload quota'. How do I get more, or does this mean I can never upload files again?

Thanks What I have scrounged and cobbled from that and others is: #Include <Array.au3> #Include <File.au3> msgbox(0,"", Font_Exists("Times New Rman")) Func Font_Exists($FontName) Local $FileList = _FileListToArray(@WindowsDir & "Fonts", '*.*', 1) Local $FontList[UBound($FileList) - 1] For $i = 1 To $FileList[0] $FontList[$i - 1] = _WinAPI_GetFontResourceInfo($FileList[$i], 1) Next For $i = 0 To UBound($FontList)-1 If $FontList[$i] == $FontName Then Return 1 Next Return 0 EndFunc ; Code below is a subset of WinAPIEx by Yashied ; http://www.autoitscript.com/forum/topic/98712-winapiex-udf/ Func _WinAPI_RemoveFontMemResourceEx($hFont) Local $Ret = DllCall('gdi32.dll', 'int', 'RemoveFontMemResourceEx', 'ptr', $hFont) If (@error) Or (Not $Ret[0]) Then Return SetError(1, 0, 0) EndIf Return 1 EndFunc ;==>_WinAPI_RemoveFontMemResourceEx Func _WinAPI_GetFontResourceInfo($sFont, $fForce = 0) If $fForce Then If Not _WinAPI_AddFontResourceEx($sFont, 0x20) Then Return SetError(1, 0, '') EndIf EndIf Local $Ret = DllCall('gdi32.dll', 'int', 'GetFontResourceInfoW', 'wstr', $sFont, 'dword*', 4096, 'wstr', '', 'dword', 0x01) If (@error) Or (Not $Ret[0]) Then $Ret = 0 EndIf If $fForce Then _WinAPI_RemoveFontResourceEx($sFont, 0x20) EndIf If Not IsArray($Ret) Then Return SetError(1, 0, '') EndIf Return $Ret[3] EndFunc ;==>_WinAPI_GetFontResourceInfo Func _WinAPI_AddFontResourceEx($sFont, $iFlag = 0, $fNotify = 0) Local $Ret = DllCall('gdi32.dll', 'int', 'AddFontResourceExW', 'wstr', $sFont, 'dword', $iFlag, 'ptr', 0) If (@error) Or (Not $Ret[0]) Then Return SetError(1, 0, 0) EndIf If $fNotify Then DllCall('user32.dll', 'none', 'SendMessage', 'hwnd', 0xFFFF, 'uint', 0x001D, 'wparam', 0, 'lparam', 0) EndIf Return $Ret[0] EndFunc ;==>_WinAPI_AddFontResourceEx Func _WinAPI_RemoveFontResourceEx($sFont, $iFlag = 0, $fNotify = 0) Local $Ret = DllCall('gdi32.dll', 'int', 'RemoveFontResourceExW', 'wstr', $sFont, 'dword', $iFlag, 'ptr', 0) If (@error) Or (Not $Ret[0]) Then Return SetError(1, 0, 0) EndIf If $fNotify Then DllCall('user32.dll', 'none', 'SendMessage', 'hwnd', 0xFFFF, 'uint', 0x001D, 'wparam', 0, 'lparam', 0) EndIf Return 1 EndFunc ;==>_WinAPI_RemoveFontResourceEx Is '@WindowsDir & "Fonts"' the font directory for all versions of Windows?

Is there anyway to tell if a certain font exists. GUICtrlSetFont does not return false if the font does not exist. And the name of the font isn't the name of the file. I want to use a font that is only in Windows 7 and so would like to use a different font for Vista or XP. I could test for the OS but would like the more certain approach of searching for whether a font exists or not. But I have no idea how to code for this.

Thank you. I'm not use to using OnEvent (someone suggested it as a work around on a different problem.) Easy fix, again thanks - this was driving me nuts.