Beiträge von MrB

MrB

So ähnlich geht´s. Musst nur noch die MaxScrollRange ab einer gewissen Anzahl von Edits hoch setzen.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiScrollBars.au3>
#include <ScrollBarConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

$struct = "DWORD vkCode;" _
& "DWORD scanCode;" _
& "long flags;" _
& "ULONG_PTR dwExtraInfo"

[/autoit] [autoit][/autoit] [autoit]

Global $hMouseHook, $WheelMoving, $hWinHook
Global $hEdit[1]

[/autoit] [autoit][/autoit] [autoit]

$hGui = GUICreate("Gui", 300, 500)
$hAdd = GUICtrlCreateButton("Hinzufügen", 30, 20, 100, 25)
$hEdit[0] = GUICtrlCreateEdit("", 20, 60, 260, 100, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUISetState()

[/autoit] [autoit][/autoit] [autoit]

GUISetState()

[/autoit] [autoit][/autoit] [autoit]

$CallbackMouseProc = TogglePlugMouse()
GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")

[/autoit] [autoit][/autoit] [autoit]

_GUIScrollBars_Init($hGui)
;~ _GUIScrollBars_ShowScrollBar($hGui, $SB_VERT, $ESB_DISABLE_BOTH)

[/autoit] [autoit][/autoit] [autoit]

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $hAdd
ReDim $hEdit[UBound($hEdit) + 1]
$aPos = ControlGetPos($hGui, "", $hEdit[UBound($hEdit) - 2])
$hEdit[UBound($hEdit) - 1] = GUICtrlCreateEdit("", 20, $aPos[1] + $aPos[3], 260, 100, BitOR($WS_VSCROLL, $ES_WANTRETURN))
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func WM_VSCROLL($hWnd, $msg, $wParam, $lParam)
#forceref $Msg, $wParam, $lParam
Local $nScrollCode = BitAND($wParam, 0x0000FFFF)
Local $index = -1, $yChar, $yPos
Local $Min, $Max, $Page, $pos, $TrackPos

[/autoit] [autoit][/autoit] [autoit]

For $x = 0 To UBound($aSB_WindowInfo) - 1
If $aSB_WindowInfo[$x][0] = $hWnd Then
$index = $x
$yChar = $aSB_WindowInfo[$index][3]
ExitLoop
EndIf
Next
If $index = -1 Then Return 0

[/autoit] [autoit][/autoit] [autoit]

; Ermittelt alle Informationen der vertikalen Scrollbar
Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_VERT)
$Min = DllStructGetData($tSCROLLINFO, "nMin")
$Max = DllStructGetData($tSCROLLINFO, "nMax")
$Page = DllStructGetData($tSCROLLINFO, "nPage")
$yPos = DllStructGetData($tSCROLLINFO, "nPos")
$TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")
; Speichert die y-Position für einen späteren Vergleich
$pos = $yPos

[/autoit] [autoit][/autoit] [autoit]

; Auswertung der vom System gemeldeten Scroll-Nachricht
Switch $nScrollCode
Case $SB_TOP ; Der Anwender klickte auf die "Pos1"-Taste
DllStructSetData($tSCROLLINFO, "nPos", $Min)

[/autoit] [autoit][/autoit] [autoit]

Case $SB_BOTTOM ; Der Anwender klickte auf die "Ende"-Taste
DllStructSetData($tSCROLLINFO, "nPos", $Max)

[/autoit] [autoit][/autoit] [autoit]

Case $SB_LINEUP ; Der Anwender klickte auf den oberen Pfeil
DllStructSetData($tSCROLLINFO, "nPos", $pos - 1)

[/autoit] [autoit][/autoit] [autoit]

Case $SB_LINEDOWN ; Der Anwender klickte auf den unteren Pfeil
DllStructSetData($tSCROLLINFO, "nPos", $pos + 1)

[/autoit] [autoit][/autoit] [autoit]

Case $SB_PAGEUP ; Der Anwender klickte oberhalb des Scrollbalkens
DllStructSetData($tSCROLLINFO, "nPos", $pos - $Page)

[/autoit] [autoit][/autoit] [autoit]

Case $SB_PAGEDOWN ; Der Anwender klickte unterhalb des Scrollbalkens
DllStructSetData($tSCROLLINFO, "nPos", $pos + $Page)

[/autoit] [autoit][/autoit] [autoit]

Case $SB_THUMBTRACK ; Der Anwender zog den Scrollbalken
DllStructSetData($tSCROLLINFO, "nPos", $TrackPos)
EndSwitch

[/autoit] [autoit][/autoit] [autoit]

;~ // Setzt die neue Position und ermittelt sie danach erneut.
;~ // Abhängig von den Windows-Einstellungen kann es sein, dass die gelesenen Werte nicht die gleichen sind, wie die vorher gesetzten.

[/autoit] [autoit][/autoit] [autoit]

DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
_GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
_GUIScrollBars_GetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
; // Falls sich die y-Position der Scrollbar geändert hat, den Fensterbereich verschieben und aktualisieren
$pos = DllStructGetData($tSCROLLINFO, "nPos")
If ($pos <> $yPos) Then
_GUIScrollBars_ScrollWindow($hWnd, 0, $yChar * ($yPos - $pos))
$yPos = $pos
EndIf

[/autoit] [autoit][/autoit] [autoit]

Return $GUI_RUNDEFMSG

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>WM_VSCROLL

[/autoit] [autoit][/autoit] [autoit]

Func _GetWheelMove()
Local $x = StringLeft($WheelMoving, 1)
$WheelMoving = StringTrimLeft($WheelMoving, 1)
Return $x
EndFunc ;==>_GetWheelMove

[/autoit] [autoit][/autoit] [autoit]

Func TogglePlugMouse($hCallProc = 0)
If IsArray($hMouseHook) Then
DllCall("user32.dll", "int", "UnhookWindowsHookEx", "hwnd", $hMouseHook[0])
DllCallbackFree($hCallProc)
Return 0
EndIf

[/autoit] [autoit][/autoit] [autoit]

Local Const $WH_MOUSE_LL = 14
Local $hMouseProc = DllCallbackRegister("_MouseProc", "int", "int;ptr;ptr")
Local $hMod = DllCall("kernel32.dll", "hwnd", "GetModuleHandle", "ptr", 0)
$hMouseHook = DllCall("user32.dll", "hwnd", "SetWindowsHookEx", _
"int", $WH_MOUSE_LL, _
"ptr", DllCallbackGetPtr($hMouseProc), _
"hwnd", $hMod[0], _
"dword", 0)
Return $hMouseProc
EndFunc ;==>TogglePlugMouse

[/autoit] [autoit][/autoit] [autoit]

Func _MouseProc($nCode, $wParam, $lParam)
If $nCode < 0 Then
Local $iRet = DllCall("user32.dll", "long", "CallNextHookEx", "hwnd", $hWinHook[0], _
"int", $nCode, _
"ptr", $wParam, _
"ptr", $lParam)
Return $iRet[0]
EndIf
$dllstruct = DllStructCreate($struct, $lParam)
If $wParam = 0x20A Then
If DllStructGetData($dllstruct, 3) > 0 Then
If _GUIScrollBars_GetScrollInfoMin($hGui, $SB_VERT) < _GUIScrollBars_GetScrollInfoPos($hGui, $SB_VERT) Then
_GUIScrollBars_SetScrollInfoPos($hGui, $SB_VERT, _GUIScrollBars_GetScrollInfoPos($hGui, $SB_VERT) - 5)
EndIf
ElseIf DllStructGetData($dllstruct, 3) < 0 Then
If _GUIScrollBars_GetScrollInfoMax($hGui, $SB_VERT) > _GUIScrollBars_GetScrollInfoPos($hGui, $SB_VERT) Then
_GUIScrollBars_SetScrollInfoPos($hGui, $SB_VERT, _GUIScrollBars_GetScrollInfoPos($hGui, $SB_VERT) + 5)
EndIf
EndIf
EndIf
Return 0
EndFunc ;==>_MouseProc

[/autoit]

Gibt wahrscheinlich einfachere und bessere Wege, kenne aber keinen

MrB

So, kram den Thread nochmal aus.

Zitat

zuu deiner frage, auch wenn es schon geklärt ist, er sortiert nach kriterien, da ist es egal, ob komma, punkt oder sonst etwas
allerdings wollen wir alle sicherlich gerne die lösung hören (hoffendlich ohne GUIRegisterMsg()!)

Genau daran scheiter ich im Moment. Pls einen Tip, Bsp. irgendwas in die richtige Richtung, wie man GUIRegisterMsg() ersetzen kann

MrB

Hab´s jetzt mal so gelöst, das ich die Gui wärend der Aktualisierung ausblenden. Dann flackersts nur einmal :-).

Falls jemand noch eine andere Idee hat, immer her damit.

MrB

autoBert

Macht bei mir keinen Unterschied. TabSheet1 flackert genauso wie vorher

MrB

Script sind etwas mehr als 10000 Sätze. Zusammen mit den benötigten Dateien, komme ich auf etwas über 173MB. Sry, aber das macht meine Leitung nicht mit. Bin aufm Land

Hab aber jetzt mal was zusammen gebastelt. Wichtig ist der Hintergrund in TabSheet1, wie ich bis jetzt festgestellt habe.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $pic_dir = "C:\Bilder\"

[/autoit] [autoit][/autoit] [autoit]

$MainForm_1 = GUICreate("db", 1001, 701, (@DesktopWidth - 1001) / 2, ((@DesktopHeight - 701) / 2) - 30)
$Tab1 = GUICtrlCreateTab(0, 0, 1001, 701)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$background1 = GUICtrlCreatePic($pic_dir & "blau.jpg", 8, 30, 985, 665);, $WS_CLIPSIBLINGS)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button1 = GUICtrlCreateButton("neu erstellen", 406, 313, 181, 23)
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
GUICtrlSetState(-1,$GUI_SHOW)
$ListView1 = GUICtrlCreateListView("Nr. | Pflanzjahr | Name | Blütezeit | Standort | Boden", 8, 37, 977, 633)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 5, 50)
GUICtrlCreateTabItem("")

[/autoit] [autoit][/autoit] [autoit]

listview()
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

Func listview()
$nr = 30
_GUICtrlListView_DeleteAllItems($ListView1)
For $i = 1 To $nr
GUICtrlCreateListViewItem($i & "|" & "|" & $i & "|" & $i & "|" & $i & "|" & $i, $ListView1)
GUICtrlSetBkColor(-1, 0x15ADFF)
Next
EndFunc ;==>listview

[/autoit]

Sleep auch schon probiert, bringt nix

MrB

Moin,

Kurze Frage: erstelle ein ListView mit 30 Einträgen in einer For...Next Schleife. Das Problem ist, dass die GUI flackert ohne Ende. Weis einer, wie man das abstellt. Hab jetzt schon einiges probiert, krieg´s aber nicht hin.

THX

MrB

Hm, könnte auch funktionieren. Erst Screen machen und abspeichern. Dann drucken. Mal testen.

MrB

Hach, dem trauer ich auch noch hinterher. Hatte ein 800L Becken mit Barschen und davor einige Gesellschaftsbecken. Musste ich leider wegen Umzug aufgeben.

Aber scheint trotzdem so, dass keiner einer Idee zu meiner Frage hat. Dann wohl mal nach was anderem umschauen

MrB

Da das ja nur die reine Funktion ist, sind da eigentlich gar keine Includes.

Übrigens, Aquarianer ? Wegen der Prachtschmerle.

MrB

Keiner eine Idee ?

MrB

Tja, einfach zu einfach für mich.

Hätte ich nun wirklich auch alleine drauf kommen können. THX

MrB

Das Problem hatte ich auch, da Standardmäßig nur ca. die doppelte GUI Höhe als Scrollbereich zur Verfügung steht. Zumindestens ist´s bei mir so.

Kannst du aber recht einfach mit

[autoit]

_GUIScrollBars_SetScrollRange

[/autoit]

lösen

MrB

autoBert

Hab mir mal deine Funktion angeschaut und muss sagen Gefällt mir. Hatte mir zwar schon was eigenes gebastelt (komplett in AutoIT), aber ich war neugierig. Also wollte ich mal testen, auch schon aus dem Grund, da bei mir DirCopy, unter WinXP Prof, nicht funktioniert.

Nun habe ich festgestellt das folgender Fall nicht funktioniert.

[autoit]

$n = CopyWithProgress(@ScriptDir & "\DB", @ScriptDir & "\DB\Sicherung")

[/autoit]

Leg ich die DestDir irgendwo anders hin, ist es kein Problem. Sie darf nur nicht irgendwie mit der SourceDir zu tun haben. In dem Oben beschriebenen Fall erstellt die Funktion zwar dir DestDir, kopiert aber nix und der Progress sagt folgendes:

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Hast du vielleicht eine Idee, wie man das lösen könnte?

MrB

*grins* mal wieder ich. Wie man merkt, es ist Sonntag, Formel 1 ist vorbei und ich hab Zeit.
Also, kommt da ein Problem nach dem anderen

Und zwar im Moment ist es das Drucken. Ich benutze folgende geklaute Funktion (die auch nach einigen Anpassungen funktioniert):

Spoiler anzeigen

[autoit]

Func _Print()
Local $WM_PRINT = 0x317
Local $PRF_CHILDREN = 0x10; Draw all visible child windows.
Local $PRF_CLIENT = 0x4 ; Draw the window's client area.
Local $PRF_OWNED = 0x20 ; Draw all owned windows.
Local $PRF_NONCLIENT = 0x2 ; Draw the window's Title area.
Local $PRF_ERASEBKGND = 0x8 ; Erases the background before drawing the window

[/autoit] [autoit][/autoit] [autoit]

Local $hWnd = WinGetHandle("Pflanzen Datenbank") ;ControlGetHandle("Pflanzen Datenbank", "", $listview)
Local $pos = WinGetPos("Pflanzen Datenbank") ;ControlGetPos("Pflanzen Datenbank", "", $listview)

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_Startup()
Local $Width = $pos[2]
Local $Height = $pos[3]

[/autoit] [autoit][/autoit] [autoit]

Local $hDC = _WinAPI_GetDC($hWnd)
Local $memDC = _WinAPI_CreateCompatibleDC($hDC)
Local $memBmp = _WinAPI_CreateCompatibleBitmap($hDC, $Width, $Height)
_WinAPI_SelectObject($memDC, $memBmp)

[/autoit] [autoit][/autoit] [autoit]

Local $Ret = _SendMessage($hWnd, $WM_PAINT, $memDC, 0)
$Ret = _SendMessage($hWnd, $WM_PRINT, $memDC, BitOR($PRF_CHILDREN, $PRF_CLIENT, $PRF_OWNED, $PRF_NONCLIENT, $PRF_ERASEBKGND))

[/autoit] [autoit][/autoit] [autoit]

Local $hImage = _GDIPlus_BitmapCreateFromHBITMAP($memBmp)

[/autoit] [autoit][/autoit] [autoit]

;Get Default Printer
Local $s_PrinterName = _GetDefaultPrinter()

[/autoit] [autoit][/autoit] [autoit]

; Create a printer device context
Local $hPrintDc = _WinAPI_CreateDC("winspool", $s_PrinterName)
Local $hGraphic = _GDIPlus_GraphicsCreateFromHDC($hPrintDc)

[/autoit] [autoit][/autoit] [autoit]

; get pixel and twips info
Local $PixelsPerInchY = _WinAPI_GetDeviceCaps($hPrintDc, $__WINAPICONSTANT_LOGPIXELSY); Get Pixels Per Inch Y
Local $TwipsPerPixelY = 1440 / $PixelsPerInchY
Local $PixelsPerInchX = _WinAPI_GetDeviceCaps($hPrintDc, $__WINAPICONSTANT_LOGPIXELSX); Get Pixels Per Inch X
Local $TwipsPerPixelX = 1440 / $PixelsPerInchX

[/autoit] [autoit][/autoit] [autoit]

; get page width and height
Local $PageWidth = _WinAPI_GetDeviceCaps($hPrintDc, $HORZRES); Get width, in millimeters, of the physical screen
Local $PageHeight = _WinAPI_GetDeviceCaps($hPrintDc, $VERTRES); Get height, in millimeters, of the physical screen.

[/autoit] [autoit][/autoit] [autoit]

; set docinfo
Local $s_DocName = "Printing from AutoIt with WinAPI"
Local $DocName = DllStructCreate("char DocName[" & StringLen($s_DocName & Chr(0)) & "]")
DllStructSetData($DocName, "DocName", $s_DocName & Chr(0)); Size of DOCINFO structure
Local $DOCINFO = DllStructCreate($tagDOCINFO); Structure for Print Document info
DllStructSetData($DOCINFO, "Size", 20); Size of DOCINFO structure
DllStructSetData($DOCINFO, "DocName", DllStructGetPtr($DocName)); Set name of print job (Optional)

[/autoit] [autoit][/autoit] [autoit]

; start new print doc
Local $result = _WinAPI_StartDoc($hPrintDc, $DOCINFO)
; start new page
$result = _WinAPI_StartPage($hPrintDc)

[/autoit] [autoit][/autoit] [autoit]

; Draw one image in another
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage, 50, 100, $Width, $Height)
; Draw a frame around the inserted image
_GDIPlus_GraphicsDrawRect($hGraphic, 50, 100, $Width, $Height)
; ------------------------ End of Story -----------------------
; End the page
$result = _WinAPI_EndPage($hPrintDc)
; End the print job
$result = _WinAPI_EndDoc($hPrintDc)
; Delete the printer device context
_WinAPI_DeleteDC($hPrintDc)
; End Rest of Resources
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_ImageDispose($hImage)
_WinAPI_ReleaseDC($hWnd, $hDC)
_WinAPI_DeleteDC($memDC)
_WinAPI_DeleteObject($memBmp)
_GDIPlus_Shutdown()
EndFunc ;==>_Print

[/autoit] [autoit][/autoit] [autoit]

;------------------------------ Get Default printer --------------------------------
Func _GetDefaultPrinter()
Local $szDefPrinterName
Local $Size
Local $namesize = DllStructCreate("dword")
DllCall("winspool.drv", "int", "GetDefaultPrinter", "str", '', "ptr", DllStructGetPtr($namesize))
Local $pname = DllStructCreate("char[" & DllStructGetData($namesize, 1) & "]")
DllCall("winspool.drv", "int", "GetDefaultPrinter", "ptr", DllStructGetPtr($pname), "ptr", DllStructGetPtr($namesize))
Return DllStructGetData($pname, 1);
;~ msgbox(0,dllstructgetdata($namesize,1),DllStructGetData($pname,1))
EndFunc ;==>_GetDefaultPrinter

[/autoit]

Hat einer eine Ahnung, wie man damit im Querformat drucken kann?

Eine Frage zur Funktion:

Original Text:

[autoit]

Local $PixelsPerInchY = _WinAPI_GetDeviceCaps($hPrintDc, $__WINAPCONSTANT_LOGPIXELSY); Get Pixels Per Inch Y
Local $PixelsPerInchX = _WinAPI_GetDeviceCaps($hPrintDc, $__WINAPCONSTANT_LOGPIXELSX); Get Pixels Per Inch X

[/autoit]

Damit bekomme ich Fehlermeldungen von Scite. Gehe ich richtig in der Annahme, das __WINAPCONSTANT_LOGPIXELSY eigentlich __WINAPICONSTANT_LOGPIXELSY heisen sollte ? Die Funktion geistert durch einige Beiträge mit diesem Fehler (evtl.) aber keiner sagt was dazu.

MrB

Jep, hab´s. Manchmal steht man echt am Schlauch, sry. Funktioniert! Danke allen

MrB

Ok, dann bitte einen Tip. Steh am Schlauch.

MrB

@eukalyptus

Schädel rauch :-). Wenn ich´s richtig verstanden habe, würde das doch auch nur von Script1 nach Script2 funktionieren, aber nicht andersrum, oder ?

MrB

Sry, muss nochmal nach fragen, ob ich alles richtig verstanden habe.

EnvGet, EnvSet:

Funktioniert nur bei AutoIt Scripten die mit Run bzw. RunWait aufgerufen werden. Wenn´s stimmt, dann bringt´s mir nix, da Script1 läuft, Script2 zwar per Run gestartet wird, aber Script2 soll ja Werte an Script1 übergeben, welches ja nicht mit Run gestartet wurde.

$CmdLine:

Funtioniert doch nur, wenn das Script neu gestartet wird und die Variablen als Kommandozeilenparameter übergeben werden, oder? Passt also auch nicht, da Script1 schon läuft und auch nicht neu gestartet werden darf.

Wenn alles stimmt, was ich mir da zusammen gedacht habe, bleibt mir ja nur der Umweg über eine TXT Datei, oder? Hmmm, kein schöner Weg, aber wenn´s nicht anders geht

MrB

Stimmt, hast recht, wenn man das weis, hat man die halbe Miete.

Da du ja wusstest was du suchst, frage ich mich, warum ich folgendes bei deinem Link bekomme:

Zitat

Du hast einen ungültigen oder nicht mehr gültigen Verweis aufgerufen.

Ne, nur Spass. Funktioniert halt nicht der Link. Hattest Programme + kommunizieren als Suchbegriff, oder

MrB

Sag ja immer, dass mich dir Forensuch nicht mag. Hab vorher gesucht, naja, und nix gefunden. Egal, dank dir

Beiträge von MrB

Scrollbars

ListView sortieren

flackernde GUI

flackernde GUI

flackernde GUI

flackernde GUI

Drucken in Autoit

Drucken in Autoit

Drucken in Autoit

Drucken in Autoit

DirCopy und GUICtrlCreateProgress

Was nehmen??

DirCopy und GUICtrlCreateProgress

Drucken in Autoit

Variablenübergabe von laufenden Script an laufendes Script

Variablenübergabe von laufenden Script an laufendes Script

Variablenübergabe von laufenden Script an laufendes Script

Variablenübergabe von laufenden Script an laufendes Script

Variablenübergabe von laufenden Script an laufendes Script

Variablenübergabe von laufenden Script an laufendes Script