[autoit]
GUICtrlSetResizing
[/autoit]Beiträge von nuts
-
-
Mit WinXP auf dem Bürorechner ist die Darstellung so wie bei dir - sehr seltsam!
Auch mit Version 3.3.6.1Schön blöd :wacko:
-
Sonst keiner Lust und Zeit das schnell zu testen?
Ansonsten:
Genau das Skript funtkioniert bei mir wie erwartet, allerdings unter Win7!
Welche Autoitversion verwendest du? -
Und geht nicht? Sehr komisch
-
Aha bei mir verhält sich das wie im angehängten Bild.
-
Ist doch bei der Variante genau so?
Der Hintergrund bewegt sich beim scrollen nicht.Oder wir reden hier aneinander vorbei.
edit\ Anders als den benötigten Teil ins Listview zu malen wird es nicht gehen. Damals wie heute wird nur diese Lösung im i.net genannt.
-
Hm ist schonmal nicht schlecht und ich könnte sowas echt super zur Fernwartung meines Servers brauchen.
Könnten wir bitte noch etwas die Sicherheitssaspekte diskutieren? L3viathan hat da irgendwie schon recht.Wie wäre es eine Checksumme als erste Zeile der Skripte einzufügen und der Server prüft diese Zeile mit einem Algo auf Plausibilität?
Dann könnten nur Skripte ausgeführt werden, welche die Prüfung bestehen. -
Das mit dem Farbverlauf verstehe ich nicht ganz.
Willst du es nicht so haben?Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
#include <Constants.au3>
#include <ScreenCapture.au3>
Opt('MustDeclareVars', 1)
Opt('CaretCoordMode', 0)
global $sFilePath = @ScriptDir & "\AutoIt.jpg"
$Debug_LV = False ; Check ClassName being passed to ListView functions, set to True and use a handle to another control to see it workglobal $GUI, $hListView, $msg, $hImage, $aImage
[/autoit] [autoit][/autoit] [autoit]
global $exStyles = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_DOUBLEBUFFER)$GUI = GUICreate("Gui", 800, 650, -1 , -1 , $WS_popup)
[/autoit] [autoit][/autoit] [autoit]
global $pic = GUICtrlCreatePic("bg1.jpg",0,0,800,650)
GuiCtrlSetState(-1,$GUI_DISABLE)
GUISetState()
Sleep(2000)
_ScreenCapture_CaptureWnd($sFilePath,$gui,50, 50, 600, 550 );=========================================================================================================
[/autoit] [autoit][/autoit] [autoit]
$hListView = _GUICtrlListView_Create($GUI, "", 50, 50, 550, 500, $LVS_NOCOLUMNHEADER, -1, True) ; Last option Calls CoInitializeEx
;=========================================================================================================
_GUICtrlListView_SetExtendedListViewStyle($hListView, $exStyles)
_GUICtrlListView_SetBkImage($hListView, $sFilePath,1)
; Load images
#cs
$hImage = _GUIImageList_Create()
_GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0xFF0000, 16, 16))
_GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0x00FF00, 16, 16))
_GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0x0000FF, 16, 16))
_GUICtrlListView_SetImageList($hListView, $hImage, 1)
#ce
; Add columns
_GUICtrlListView_InsertColumn($hListView, 0, "Column 1", 100)
_GUICtrlListView_InsertColumn($hListView, 1, "Column 2", 100)
_GUICtrlListView_InsertColumn($hListView, 2, "Column 3", 100); Add items
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
for $i=0 to 1000
_GUICtrlListView_AddItem($hListView, "Row 1: Col 1", $i)
_GUICtrlListView_AddSubItem($hListView, $i, "Row 1: Col 2", 1)
_GUICtrlListView_AddSubItem($hListView, $i, "Row 1: Col 3", 2)
next;~ _GUICtrlListView_SetBkColor ($hListView, $CLR_NONE)
[/autoit] [autoit][/autoit] [autoit]
;~ _GUICtrlListView_SetTextColor ($hListView, $CLR_NONE)
;~ _GUICtrlListView_SetTextBkColor ($hListView, $CLR_NONE); Get the Image
[/autoit] [autoit][/autoit] [autoit]
;global $sURL = "http://www.autoitscript.com/autoit3/files/graphics/autoit9_wall_grey_800x600.jpg";InetGet($sURL, $sFilePath)
[/autoit] [autoit][/autoit] [autoit]; Set the Background Image
[/autoit] [autoit][/autoit] [autoit]
;_ScreenCapture_CaptureWnd($sFilePath, $gui)
;_GUICtrlListView_SetBkImage($hListView, $sFilePath)HotKeySet("{SPACE}", "test")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUISetState()while 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$msg= GUIGetMsg()switch $msg
[/autoit] [autoit][/autoit] [autoit]
case $GUI_EVENT_CLOSE
DllCall('ole32.dll', 'long', 'CoUinitialize')
GUIDelete()
FileDelete($sFilePath)
exit
case $GUI_EVENT_MINIMIZE
GuiCtrlSetState($pic,$GUI_DISABLE)
GUISetState(@SW_MINIMIZE, $gui)
endswitchwend
[/autoit] [autoit][/autoit] [autoit]Func test()
[/autoit]
GuiCtrlSetState($pic,$GUI_DISABLE)
endfunc -
Das liegt aber nur am Paramter von _GUICtrlListView_SetBkImage
[autoit]
So dann:_GUICtrlListView_SetBkImage($hListView, $sFilePath,1)
[/autoit]Das mit dem Screenshot ist ja auch nur ein Beispiel, da man noch auf die Maus und vieles mehr aufpassen müsste.
Besser das Bild gleich zum Start in der richtigen Form ausschneiden (per GDI+, im Datenordner vom Skript bei festen Größen hinterlegen oder was auch immer). -
[autoit]
Round
[/autoit]
-
Sieht machbar aus, wobei die Bilder nichts über die Funktionen des Programms sagen.
Als Datenbank kannst du einfach ein normales .csv File nehmen um auch Excel konform zu bleiben (wobei ich eher ganz auf das Autoit Skript setzen würde). -
Das ganze Listview ist leider total unflexibel
Meine "Lösung" ist nun wirklich auch nicht schön ...Ich wäre auch noch an einer richtigen Lösung interessiert.
-
Die Server stehen ja nicht hier um die Ecke sondern im internationalen Raum.
Darauf Zugriff zu bekommen ist rechtlich mehr als schwierig.Sehr kompliziertes Thema - was wieder mal von Seiten der Regierung kommt ist allerdings sehr schwach.
-
So die Vorrunde ist durchgetippt!
Und morgen gehts los - YUHU
-
Wobei man dann die Zeile beim erneuten Start ja immernoch drin hat.
Ich verstehe den Sinn auch nicht so ganz. Wieso nicht bei den entsprechenden Funktionen abfragen ob man Admin ist (Isadmin) und dem User ggf. mitteilen, dass die Funktionen Adminrechte benötigen? -
Damit du dir anschauen kannst was da so passiert.
Sonst lernste ja nix
-
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <Array.au3>
Global $hFile = @ScriptDir & "\test.ini"
$sSection = "playlist"
$sArray = ""
$sSuche = "File"
$aReturn = IniReadSection($hFile, $sSection)
_ArrayDisplay($aReturn)
For $i = 0 To UBound($aReturn) - 1If StringInStr($aReturn[$i][0], $sSuche)Then $sArray &= "|" &$aReturn[$i][1]
[/autoit] [autoit][/autoit] [autoit]
Next
ConsoleWrite($sArray & @CRLF)
$aArray = StringSplit(StringTrimLeft($sArray, 1), "|")_ArrayDisplay($aArray)
[/autoit]
So dann oder? -
Stringsplit schreibt in $array[0] die Anzahl der Items
[autoit]
Um den Leerstring zu vermeiden musst du den letzten "|" eleminieren.StringSplit(StringTrimLeft($sArray, 1), "|")
[/autoit] -
Jop dann kann man nichts machen und muss so wie von Mahagon beschrieben vorgehen.
-
Wobei man dann darüber nachdenken sollte ob man die .ini nicht anders aufbaut.
z.B.
Code
Alles anzeigen[1] anfang1=testanfang1 mitte1=testmitte1 ende1=testende1 [2] anfang2=testanfang2 mitte2=testmitte2 ende2=testende2 [3] anfang3=testanfang3 mitte3=testmitte3 ende3=testende3
oder:Code[Anfang] anfang1=testanfang1 anfang2=testanfang2 anfang3=testanfang3 [Mitte] mitte1=testmitte1 mitte2=testmitte2 mitte3=testmitte3 ;usw.