Taşınabilir Pencere Nasıl Yapılır ?

[DivaneTR]

[b]Bir proje üzerine çalışıyorum şu sıralar. Küçük bir GUI oluşturdum, fakat taşınamıyor, pencere hep sabit. Başka yere sürüklenemiyor.

Yaptığım GUI ;[/b]

[codebox]
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 500, 300, 271, 124, _
BitOR($WS_SIZEBOX, $WS_POPUP), BitOR($WS_EX_DLGMODALFRAME, $WS_EX_DLGMODALFRAME, $WS_EX_CLIENTEDGE, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
GUISetState(@SW_SHOW)
GUISetBkColor(0x3CC2BD)
WinSetTrans($Form1, "", 60)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
[/codebox]

[b]Pencerenin herhangi bir yerine tıklayıp sürüklenebilmesini istiyorum. Örneğin pencerenin orta yerine tıklayıp başka yere sürüklemek gibi. Ayrıca oluşturduğum GUI transparan. Üzerine eklediğim objeler de transparan oluyor. Örneğin bir ikon eklemiştim, o da transparan oldu. Onu normale dönüştürebilirmiyiz. Teşekkürler.[/b]

Edited May 8, 2012 by Baba_

[blackman12]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 500, 300, 271, 124, _
BitOR($WS_SIZEBOX, $WS_POPUP), BitOR($WS_EX_DLGMODALFRAME, $WS_EX_DLGMODALFRAME, $WS_EX_CLIENTEDGE, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
GUIRegisterMsg(0x0201, "moveGUI")
GUISetState(@SW_SHOW)
GUISetBkColor(0x3CC2BD)
WinSetTrans($Form1, "", 60)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

Func MoveGUI($hW)
DllCall("user32.dll", "lresult", "SendMessageW", "hwnd", $Form1, "uint", 0x0112, "wparam", 0xF012, "lparam", 0)
EndFunc

[DivaneTR]

[b]Teşekkürler, istediğim gibi oldu. Diğer sorunun da bir çözümü var mıdır ?[/b]

[blackman12]

[code]http://www.mediafire.com/?82rnpjdp997cc27[/code]

İstediğin örneği ekledim. ben fast airbender da png kullanmıştım arkaplan için çünkü yazılar böyle olunca pek net görünmeyebiliyor. Eğer sende png yapmak istiyorsan, arkayı kapattığım satırları aktif ederek yapabilirsin.

[SAYGINER]

[quote name='blackman12' date='08 May 2012 - 16:19 ' timestamp='1336483182' post='1198249']
[code]http://www.mediafire.com/?82rnpjdp997cc27[/code]

İstediğin örneği ekledim. ben fast airbender da png kullanmıştım arkaplan için çünkü yazılar böyle olunca pek net görünmeyebiliyor. Eğer sende png yapmak istiyorsan, arkayı kapattığım satırları aktif ederek yapabilirsin.
[/quote]
Bu kodları çalıştırınca değişik ekran çözünürlüklerinde otomatik tam ekran nasıl yapabiliriz.Ben bu kodları çalıştırınca ekran üzerinde hiçbir şeye tıklanılamamasını istiyorum.Bilgisayarımın boştayken karıştırılmaması için.Saygılar.

[blackman12]

guicreate ettiğim yerlerde boyut olarak $wsplash ve $hsplash yerine @DesktopWidth @DesktopHeight ı kullan.

[SAYGINER]

[quote name='blackman12' date='09 May 2012 - 00:10 ' timestamp='1336511452' post='1198543']
guicreate ettiğim yerlerde boyut olarak $wsplash ve $hsplash yerine @DesktopWidth @DesktopHeight ı kullan.
[/quote]
[code]>"C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Users\3-C\Desktop\TransparanGUI\FastAirbender.au3" /autoit3dir "C:\Program Files (x86)\AutoIt3" /UserParams
+> Starting AutoIt3Wrapper v.1.7.5
>Running AU3Check (1.54.6.0) params: from:C:\Program Files (x86)\AutoIt3
C:\PROGRA~2\AutoIt3\Include\Security.au3(218,43) : ERROR: syntax error
Func _Security__ImpersonateSelf($iLevel = $SECURITYIMPERSONATION
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\PROGRA~2\AutoIt3\Include\Security.au3(219,82) : WARNING: $iLevel: possibly used before declaration.
Local $aCall = DllCall("advapi32.dll", "bool", "ImpersonateSelf", "int", $iLevel)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\PROGRA~2\AutoIt3\Include\WinAPI.au3(1095,85) : ERROR: syntax error
Func _WinAPI_CreateFont($nHeight, $nWidth, $nEscape = 0, $nOrientn = 0, $fnWeight = $__WINAPICONSTANT_FW_NORMAL
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\PROGRA~2\AutoIt3\Include\WinAPI.au3(1097,20) : WARNING: $fnWeight: possibly used before declaration.
"int", $fnWeight,
~~~~~~~~~~~~~~~~^
C:\PROGRA~2\AutoIt3\Include\WinAPI.au3(1097,39) : WARNING: $bItalic: possibly used before declaration.
"int", $fnWeight, "dword", $bItalic,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\PROGRA~2\AutoIt3\Include\WinAPI.au3(1097,61) : WARNING: $bUnderline: possibly used before declaration.
"int", $fnWeight, "dword", $bItalic, "dword", $bUnderline,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\PROGRA~2\AutoIt3\Include\WinAPI.au3(1097,83) : WARNING: $bStrikeout: possibly used before declaration.
"int", $fnWeight, "dword", $bItalic, "dword", $bUnderline, "dword", $bStrikeout,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\PROGRA~2\AutoIt3\Include\WinAPI.au3(1097,103) : WARNING: $nCharset: possibly used before declaration.
"int", $fnWeight, "dword", $bItalic, "dword", $bUnderline, "dword", $bStrikeout, "dword", $nCharset,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\PROGRA~2\AutoIt3\Include\WinAPI.au3(1097,126) : WARNING: $nOutputPrec: possibly used before declaration.
"int", $fnWeight, "dword", $bItalic, "dword", $bUnderline, "dword", $bStrikeout, "dword", $nCharset, "dword", $nOutputPrec,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\PROGRA~2\AutoIt3\Include\WinAPI.au3(1098,23) : WARNING: $nClipPrec: possibly used before declaration.
"dword", $nClipPrec,
~~~~~~~~~~~~~~~~~~~^
C:\PROGRA~2\AutoIt3\Include\WinAPI.au3(1098,43) : WARNING: $nQuality: possibly used before declaration.
"dword", $nClipPrec, "dword", $nQuality,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\PROGRA~2\AutoIt3\Include\WinAPI.au3(1098,61) : WARNING: $nPitch: possibly used before declaration.
"dword", $nClipPrec, "dword", $nQuality, "dword", $nPitch,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\PROGRA~2\AutoIt3\Include\WinAPI.au3(1098,78) : WARNING: $szFace: possibly used before declaration.
"dword", $nClipPrec, "dword", $nQuality, "dword", $nPitch, "wstr", $szFace)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\PROGRA~2\AutoIt3\Include\WinAPI.au3(3671,16) : ERROR: undefined macro.
If @AutoItX64 Then
~~~~~~~~~~~~~~^
C:\PROGRA~2\AutoIt3\Include\WinAPI.au3(5561,16) : ERROR: undefined macro.
If @AutoItX64 Then
~~~~~~~~~~~~~~^
C:\PROGRA~2\AutoIt3\Include\GDIPLUS.AU3(559,84) : ERROR: syntax error
Func _GDIPlus_BitmapLockBits($hBitmap, $iLeft, $iTop, $iWidth, $iHeight, $iFlags = $GDIP_ILMREAD
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\PROGRA~2\AutoIt3\Include\GDIPLUS.AU3(571,122) : WARNING: $iFlags: possibly used before declaration.
Local $aResult = DllCall($ghGDIPDll, "int", "GdipBitmapLockBits", "handle", $hBitmap, "struct*", $tRect, "uint", $iFlags,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\PROGRA~2\AutoIt3\Include\GDIPLUS.AU3(571,139) : WARNING: $iFormat: possibly used before declaration.
Local $aResult = DllCall($ghGDIPDll, "int", "GdipBitmapLockBits", "handle", $hBitmap, "struct*", $tRect, "uint", $iFlags, "int", $iFormat,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\PROGRA~2\AutoIt3\Include\Security.au3(219,82) : ERROR: $iLevel: undeclared global variable.
Local $aCall = DllCall("advapi32.dll", "bool", "ImpersonateSelf", "int", $iLevel)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\PROGRA~2\AutoIt3\Include\WinAPI.au3(36,34) : ERROR: Ptr(): undefined function.
Global Const $HGDI_ERROR = Ptr(-1)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\PROGRA~2\AutoIt3\Include\WinAPI.au3(2112,18) : ERROR: IsPtr(): undefined function.
If IsPtr($hBrush)
~~~~~~~~~~~~~~~~^
C:\PROGRA~2\AutoIt3\Include\WinAPI.au3(2939,48) : ERROR: BinaryMid(): undefined function.
$aResult[2] = Int(BinaryMid($aResult[2], 3, 1)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\3-C\Desktop\TransparanGUI\FastAirbender.au3 - 9 error(s), 13 warning(s)
!>AU3Check ended.rc:2[/code]
kodları henüz değiştirmeden win 7 de böyle hatalar aldım. Ama xp de çalışıyor.win 7 deki hatanın nedeni nedir acaba.Saygılar

Edited May 9, 2012 by SAYGINER

[blackman12]

Win 7 32 bitte de çalışıyor ama sen 64 bitte denemişsin galiba o konuda bişi diyemicem.

[MostWanted]

Include dosyalarında da bozulma olmuş olabilir.Autoit i tekrar yükler misin ilgili sisteme.

[SAYGINER]

[quote name='MostWanted' date='09 May 2012 - 23:42 ' timestamp='1336596129' post='1198923']
Include dosyalarında da bozulma olmuş olabilir.Autoit i tekrar yükler misin ilgili sisteme.
[/quote]
Tekrar yükleyince sorun çözüldü.Saygılar

[DivaneTR]

[b]Peki autoit kütüphaneleri ile beraber compile etsek daha mı yavaş çalışır, kütüphaneleri ayrıştırıp yazsam program hızını etkiler mi. Çünkü kullanmadığım bir sürü fonksiyon var o kütüphanelerde.[/b]

[MostWanted]

http://www.tnctr.com/topic/201035-autoit-library-kullanymy/

Bununla ilgili soruya burda cevap vermiştim.