Beiträge von Oscar

import winim, wNim, strutils

let app = App()
let frame = Frame(title="test", size=(640, 480))

let panel = Panel(frame)
let idText = StaticText(panel, label = "Test", pos=(10, 10), size=(100, 30), style=wAlignCentre or wBorderSimple)
idText.setBackgroundColor(0x00FFAA88)
var hDC = getHdc(idText.WindowDC)
let color = GetBkColor(hDC)
echo "GetBkColor: 0x", color.toHex

frame.center()
frame.show()
app.mainLoop()

import wNim, winim

var tme: TTRACKMOUSEEVENT # TrackMouseEvent-Struktur erstellen
tme.cbSize = DWORD sizeof(TTRACKMOUSEEVENT) # Groesse der Struktur eintragen
tme.dwFlags = TME_HOVER or TME_LEAVE # Flags setzen

let iconSize = (64, 64) # Groesse der Icons festlegen

# Icons als wBitmap laden
let
  bmpIcon1 = Bitmap(Icon("imageres.dll,175", size=iconSize)) # Hover-Icon fuer idPic1
  bmpIcon2 = Bitmap(Icon("imageres.dll,4", size=iconSize))   # Leave-Icon fuer idPic1
  bmpIcon3 = Bitmap(Icon("imageres.dll,176", size=iconSize)) # Hover-Icon fuer idPic2
  bmpIcon4 = Bitmap(Icon("imageres.dll,3", size=iconSize))   # Leave-Icon fuer idPic2

let app = App()
let frame = Frame(title="test", size=(320, 240))
let panel = Panel(frame)
let idPic1 = StaticBitmap(panel, pos=(50, 30), size=iconSize, bitmap=bmpIcon2)
let idPic2 = StaticBitmap(panel, pos=(150, 30), size=iconSize, bitmap=bmpIcon4)

# Das Template kann fuer mehrere StaticBitmap-Controls verwendet werden
# Parameter: Control, Hover-Bitmap, Leave-Bitmap, Hover-Time (in ms)
template registerMouseHover(self: wStaticBitmap, bmpHover, bmpLeave: wBitmap, iTime: DWORD = -1) =
  self.wEvent_MouseEnter do (event: wEvent): # MouseEnter wird einmalig beim "betreten" des Controls aufgerufen
    tme.hwndTrack = event.getWindow.mHwnd    # Das Handle und
    tme.dwHoverTime = iTime                  # die Hover-Time in die Struktur eintragen
    TrackMouseEvent(tme)                     # TrackMouseEvent aufrufen
  self.wEvent_MouseHover do (event: wEvent): # MouseHover, wenn die Mouse laenger als die Hover-Time auf dem Control ruht
    self.setBitmap(bmpHover)                 # Die Hover-Bitmap anzeigen
  self.wEvent_MouseLeave do (event: wEvent): # MouseLeave, wenn die Mouse das Control-Element verlaesst
    self.setBitmap(bmpLeave)                 # Die Leave-Bitmap anzeigen

idPic1.registerMouseHover(bmpIcon1, bmpIcon2, 10)  # Hover-Effekt fuer idPic1 festlegen mit 10 ms
idPic2.registerMouseHover(bmpIcon3, bmpIcon4, 800) # Hover-Effekt fuer idPic2 festlegen mit 800 ms

frame.center()
frame.show()
app.mainLoop()

#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <StructureConstants.au3>
#include <WinAPIConstants.au3>
#include <WinAPIConv.au3>
#include <WinAPIInternals.au3>
#include <WinAPISys.au3>
#include <WinAPISysWin.au3>
#include <WindowsConstants.au3>

Opt("MustDeclareVars", 1)
OnAutoItExitRegister('OnAutoItExit')

Global Const $tagMSLLHOOKSTRUCT = $tagPOINT & ';dword mouseData;dword flags;dword time;ulong_ptr dwExtraInfo'

Global $__hMouseProc = DllCallbackRegister("_MouseProc", "long", "int;wparam;lparam")
Global $__hHook = _WinAPI_SetWindowsHookEx($WH_MOUSE_LL, DllCallbackGetPtr($__hMouseProc), _WinAPI_GetModuleHandle(0))

Global Const $COLOR_HOOVER = 0xD7EDFF ; helles grau
Global Const $COLOR_NORMAL = 0xE6E6E6 ; helles blau

Global $Form1 = GUICreate("Form1", 514, 330)
Global $Label1 = GUICtrlCreateLabel("Label1", 96, 88, 92, 33, BitOR($SS_CENTER, $SS_CENTERIMAGE, $WS_BORDER))
GUICtrlSetBkColor(-1, $COLOR_NORMAL)
Global $Label2 = GUICtrlCreateLabel("Label2", 208, 88, 92, 33, BitOR($SS_CENTER, $SS_CENTERIMAGE, $WS_BORDER))
GUICtrlSetBkColor(-1, $COLOR_NORMAL)
Global $Label3 = GUICtrlCreateLabel("Label3", 320, 88, 92, 33, BitOR($SS_CENTER, $SS_CENTERIMAGE, $WS_BORDER))
GUICtrlSetBkColor(-1, $COLOR_NORMAL)

Global $aHoverCtrl[0] ; Array mit den Handles der Hover-Ctrls
_ArrayAdd($aHoverCtrl, GUICtrlGetHandle($Label1)) ; Hover-Effekt nur bei Label1
_ArrayAdd($aHoverCtrl, GUICtrlGetHandle($Label3)) ; und Label3
GUISetState(@SW_SHOW)


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

Func OnAutoItExit()
    _WinAPI_UnhookWindowsHookEx($__hHook)
    DllCallbackFree($__hMouseProc)
EndFunc   ;==>OnAutoItExit

Func _MouseProc($_nCode, $_wParam, $_lParam)
    If $_nCode < 0 Then Return _WinAPI_CallNextHookEx($__hHook, $_nCode, $_wParam, $_lParam)
    Local Static $hLast
    Local $tPoint = DllStructCreate($tagPOINT, $_lParam), $hChild
    Local $hParent = _WinAPI_WindowFromPoint($tPoint)
    $hParent = _WinAPI_GetAncestor($hParent, $GA_ROOT)
    Switch $_wParam
        Case $WM_MOUSEMOVE
            _WinAPI_ScreenToClient($hParent, $tPoint)
            $hChild = _WinAPI_ChildWindowFromPointEx($hParent, $tPoint)
            If IsHWnd($hChild) And $hChild <> $hLast Then
                If $hLast <> $hParent Then GUICtrlSetBkColor(_WinAPI_GetDlgCtrlID($hLast), $COLOR_NORMAL)
                If $hChild <> $hParent And _ArraySearch($aHoverCtrl, $hChild) > -1 Then
                    GUICtrlSetBkColor(_WinAPI_GetDlgCtrlID($hChild), $COLOR_HOOVER)
                EndIf
                $hLast = $hChild
            EndIf
    EndSwitch
    Return _WinAPI_CallNextHookEx($__hHook, $_nCode, $_wParam, $_lParam)
EndFunc   ;==>_MouseProc

#include <Array.au3>
#include <GUIConstantsEx.au3>

Opt('GUIOnEventMode', 1)
Global $aIDCtrl[1], $idTmp
Global $hGui = GUICreate('Test', 640, 480)
GUISetOnEvent($GUI_EVENT_CLOSE, '_CloseGui')
$idTmp = GUICtrlCreateButton('Ja', 10, 10, 80, 20)
GUICtrlSetOnEvent(-1, '_ButtonClick')
_ArrayAdd($aIDCtrl, $idTmp)
$idTmp = GUICtrlCreateButton('Nein', 110, 10, 80, 20)
GUICtrlSetOnEvent(-1, '_ButtonClick')
_ArrayAdd($aIDCtrl, $idTmp)
$idTmp = GUICtrlCreateButton('Vielleicht', 210, 10, 80, 20)
GUICtrlSetOnEvent(-1, '_ButtonClick')
_ArrayAdd($aIDCtrl, $idTmp)
$idTmp = GUICtrlCreateButton('Weiss nicht', 310, 10, 80, 20)
GUICtrlSetOnEvent(-1, '_ButtonClick')
_ArrayAdd($aIDCtrl, $idTmp)

GUISetState()
While Sleep(100)
WEnd

Func _CloseGui()
    Exit
EndFunc

Func _ButtonClick()
    Local $idCtrl = @GUI_CtrlId
    ConsoleWrite($idCtrl & @CR)
    For $i = 0 To UBound($aIDCtrl) - 1
        If $aIDCtrl[$i] = $idCtrl Then
            ConsoleWrite($aIDCtrl[$i] & @CR)
        EndIf
    Next
EndFunc

import winim, wNim, strutils
echo "Nim-Version: ", NimVersion

var
  # Der Pipe-Name darf max. 256 Zeichen lang sein (Gross-/Kleinschreibung wird nicht beachtet).
  pipeName: LPCSTR = r"\\.\pipe\myuniquepipename"
  OL: OVERLAPPED # Overlapped-Struktur erstellen
  pOL: LPOVERLAPPED = OL.addr # Pointer auf die Struktur
  bufSize: DWORD = 4096 # Groesse des Sende-/Empfangsbuffers (in Bytes/Chars)
  buf = newSeq[char](bufSize) # Empfangsbuffer erstellen
  read: DWORD # Variable, um die Anzahl der empfangenen Zeichen aufzunehmen

# Die NamedPipe erstellen.
# Der Parameter "FILE_FLAG_FIRST_PIPE_INSTANCE" verhindert ein mehrfaches erstellen der Pipe.
let hPipe = CreateNamedPipeA(
  pipeName, # Pipename
  PIPE_ACCESS_DUPLEX or FILE_FLAG_FIRST_PIPE_INSTANCE or FILE_FLAG_OVERLAPPED, # OpenMode
  PIPE_TYPE_MESSAGE or PIPE_READMODE_MESSAGE or PIPE_NOWAIT, # PipeMode
  1, # Max. Instances
  bufSize, # Out-Buffersize
  bufSize, # In-Buffersize
  0, # Timeout (0 = default = 50ms)
  NULL # Pointer to SecurityAttributes
  )

# Wenn die Pipe nicht erstellt werden konnte, dann existiert sie bereits.
# Es handelt sich also um die zweite Instanz.
if hPipe == INVALID_HANDLE_VALUE:
  echo "Zweite Instanz"
  var sendMsg: LPCSTR = "Dieser Text wird an die erste Instanz gesendet."
  # Hiermit wird ein String an die erste Instanz gesendet und im Empfangsbuffer
  # steht dann die Rueckmeldung der ersten Instanz.
  CallNamedPipeA(pipeName, sendMsg, DWORD sendMsg.len, 
    buf[0].addr, DWORD buf.len, read.addr, NMPWAIT_USE_DEFAULT_WAIT)
  echo "Empfangen: ", join(buf[0..read-1])
  # Die zweite Instanz beenden
  quit()

# Ab hier nur fuer die erste Instanz
echo "Erste Instanz"

let app = App()
let frame = Frame(title="Named Pipe example", size=(300, 160))

# Timer-Funktion (hier wird auf die Pipe-Nachrichten gewartet)
frame.wEvent_Timer do (event: wEvent):
  # Wenn eine Nachricht auf der Pipe angekommen ist...
  if ReadFile(hPipe, buf[0].addr, DWORD buf.len, read.addr, pOL) == TRUE:
    echo "Bytes empfangen: ", read
    echo "'", join(buf[0..read-1]), "'" # die Nachricht in einen String umwandeln und anzeigen
    # Eine Bestaetigung an die zweite Instanz zuruecksenden
    TransactNamedPipe(hPipe, LPCSTR "Ok.", 4, NULL, 0, read.addr, pOL)
    DisconnectNamedPipe(hPipe) # die Pipe trennen (um die zweite Instanz freizugeben)
    ConnectNamedPipe(hPipe, pOL) # und wieder neu verbinden

# Timer starten (0.1 sek.)
frame.startTimer(0.1)

frame.show()
app.mainLoop()

#include <GUIConstantsEx.au3>

Global $oDict = ObjCreate('Scripting.Dictionary')

Global $hGui = GUICreate('Test', 800, 600)
Global $idPic1 = GUICtrlCreatePic('', 10, 10, 780, 280)
_GuiCtrlSetImage($idPic1, 'island.jpg')
Global $idPic2 = GUICtrlCreatePic('', 10, 300, 780, 280)
_GuiCtrlSetImage($idPic2, 'mountain.jpg')
GUISetState()
While True
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            exit
        Case $idPic1
            ConsoleWrite(_GuiCtrlGetImage($idPic1) & @CR)
        Case $idPic2
            ConsoleWrite(_GuiCtrlGetImage($idPic2) & @CR)
    EndSwitch
WEnd

Func _GuiCtrlSetImage($idCtrl, $sImgFile)
    GUICtrlSetImage($idCtrl, $sImgFile)
    $oDict.Item($idCtrl) = $sImgFile
EndFunc

Func _GuiCtrlGetImage($idCtrl)
    Return $oDict.Item($idCtrl)
EndFunc