Folgendes wäre nicht schlecht.
Wenn man einen Beiträg ändert, wird der letzte Beitrag auf das Datum des geänderten Beitrags geändert.
Fände ich gut, wenn sich dies wieder realisieren liese
Folgendes wäre nicht schlecht.
Wenn man einen Beiträg ändert, wird der letzte Beitrag auf das Datum des geänderten Beitrags geändert.
Fände ich gut, wenn sich dies wieder realisieren liese
Hi,
die ersten Dateien von der englischen Hilfe wurden ja bereits übersetzt
Im Moment stockt es leider ein wenig
Vielleicht sind einfach nur die angebotenen Files zu schwer zum übersetzen (für mich zumindest )
Vielleicht sollte man mehr Files zu verschiedenen Bereichen von AutoIt zum übersetzen zur Verfügung stellen. Leider bedeutet dich wieder Arbeit für Pee
Ich finde halt wir sollten das übersetzen nicht allzu in die Länge ziehen, da sonst immer wieder neue AutoIt Versionen erscheinen und so immer mehr nicht übersetzte Hilfeseiten vorhanden sind
Vielleicht schaffen wir es einmal, dass wir ein komplettes aktuelles Helpfile auf deutsch haben. Dann fällt uns das proggen sicher leichter
Ich hoffe ich kann auf euch zählen
Hi,
#include <File.au3>
#include <Array.au3> ;Für ArrayDisplay
$pfad = @ScriptDir
$aFiles = _FileListToArray($pfad,"*.jpg")
If @error = 1 Then
MsgBox(0, "", "No Files\Folders Found.")
Exit
EndIf
_ArrayDisplay($aFiles,"Ergebnis von FileListToArray")
Dim $n_array[Ubound($aFiles)][3]
Dim $entry = 0 ;Aktueller Index des neuen Arrays
For $i = 1 To $aFiles[0]
If StringLen($aFiles[$i]) >= 14 Then
$n_array[$entry][0] = $aFiles[$i]
$n_array[$entry][1] = FileGetTime($pfad & "\" & $aFiles[$i], 0, 1)
$n_array[$entry][2] = StringMid($aFiles[$i], 1, 12)
$entry += 1 ;Index um 1 erhöhen
EndIf
Next
_ArrayDisplay($n_array,"2")
ReDim $n_array[$entry][3]
_ArrayDisplay($n_array,"2")
For $i = 0 To UBound($n_array) -2
If $n_array[$i][2] = $n_array[$i+1][2] Then
$n_array[$i+1][0] = '|'
If $n_array[$i][0] = "|" Then
FileMove($pfad & $n_array[$i][0] & ".ipg" , $pfad & "Abfalleimer")
EndIf
EndIf
Next
Habs mal verbessert, wobei ich nicht weiss ob es so funktioniert wie du willst.
uBound gibt immer die Anzahl von Einträgen zurück. Mußt du eigentlich noch -1 machen. Hab -2 gemacht, da du die $i ja hochzählst und beim letzten Eintrag ist $i größer als das array.
Außerdem muß die n_array immer in der selben Dimension lassen (also gleich viele Spalten)
Einmal hattest du $n_array[$i]
und einmal $n_array[$i](2]
Das geht nicht
Danke BugFix,
nun funktioniert mein Script wieder.
Zum Glück brauche ich (noch) nicht das neue ListView
EDIT:
Hab was im englischen Forum gefunden.
http://www.autoitscript.com/forum/index.php?showtopic=58714&st=0&p=443841&#entry443841
Es können einzelne Zeilen gefärbt werden.
Allerdings weiss ich nicht, ob dies auch je nach Zellinhalt erfolgen kann.
Hab das englische script mal auf das wesentliche gekürzt. Vielleicht kann jemand (BugFix ) was damit anfangen
#AutoIt3Wrapper_AU3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7
Opt("MustDeclareVars", 1)
#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
#include <GuiStatusbar.au3>
#include <Constants.au3>
Global Const $tagNMLVCUSTOMDRAW = "hwnd hWndFrom;int IDFrom;int Code;dword dwDrawStage;hwnd hdc;int Left;int Top;int Right;int Bottom;" & _
"dword dwItemSpec;uint uItemState;long lItemlParam;int clrText;int clrTextBk;int iSubItem;dword dwItemType;int clrFace;int iIconEffect;" & _
"int iIconPhase;int iPartId;int iStateId;int TextLeft;int TextTop;int TextRight;int TextBottom;uint uAlign"
Global Const $CDDS_PREPAINT = 0x00000001
Global Const $CDDS_ITEMPREPAINT = 0x00010001
Global Const $CDRF_NEWFONT = 0x00000002
Global Const $CDRF_NOTIFYITEMDRAW = 0x00000020
#region Globals *************************************************************************
Global $hDragImageList, $h_ListView, $bDragging = False, $LV_Height, $StatusBar1
Global $a_index[2] ; from and to
Global Const $DebugIt = 1
#endregion End Global variables
Opt("WinTitleMatchMode", 2)
_TestDragItemWithImages()
Func _TestDragItemWithImages()
Local Const $image_width = 20
Local Const $image_height = 20
Local $h_images, $main_GUI, $iIndex
$main_GUI = GUICreate("GuiRegisterMsg Test", 225, 400)
$h_ListView = _GUICtrlListView_Create($main_GUI, "Entry Name|Category", 5, 75, 220, 280, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$LV_Height = 280 - 75
_GUICtrlListView_SetColumnWidth($h_ListView, 0, 100)
_GUICtrlListView_SetColumnWidth($h_ListView, 1, 100)
_GUICtrlListView_SetExtendedListViewStyle($h_ListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_CHECKBOXES))
;Register WM_NOTIFY events
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
;------------------------------------------------------
Local $y = 1
For $x = 0 To 9
$iIndex = _GUICtrlListView_AddItem($h_ListView, "Name " & $x + 1, $y) ; handle, string, image index
_GUICtrlListView_AddSubItem($h_ListView, $iIndex, "Category " & $x + 1, 1, $y + 1) ; handle, index, string, subitem, image index
$y += 2
Next
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd
EndFunc ;==>_TestDragItemWithImages
;
; WM_NOTIFY event handler
Func WM_NOTIFY($hWndGUI, $MsgID, $wParam, $lParam)
#forceref $hWndGUI, $MsgID, $wParam
Local $tNMHDR, $code, $x, $y, $tNMLISTVIEW, $hwndFrom, $tDraw, $dwDrawStage, $dwItemSpec
$tNMHDR = DllStructCreate($tagNMHDR, $lParam) ;NMHDR (hwndFrom, idFrom, code)
If @error Then Return
$code = DllStructGetData($tNMHDR, "Code")
$hwndFrom = DllStructGetData($tNMHDR, "hWndFrom")
Switch $hwndFrom
Case $h_ListView
Switch $code
Case $NM_CUSTOMDRAW
;~ If $DebugIt Then _DebugPrint("$NM_CUSTOMDRAW")
$tDraw = DllStructCreate($tagNMLVCUSTOMDRAW, $lParam)
$dwDrawStage = DllStructGetData($tDraw, "dwDrawStage")
$dwItemSpec = DllStructGetData($tDraw, "dwItemSpec")
Switch $dwDrawStage
Case $CDDS_PREPAINT
Return $CDRF_NOTIFYITEMDRAW
Case $CDDS_ITEMPREPAINT
If BitAND($dwItemSpec, 1) = 1 Then
DllStructSetData($tDraw, "clrTextBk", $CLR_AQUA)
Else
DllStructSetData($tDraw, "clrTextBk", $CLR_WHITE)
EndIf
Return $CDRF_NEWFONT
EndSwitch
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
#endregion Event Function(s) ***********************************************************************************************
Hi,
bei mir kommt es vor, dass ich den Text schreibe und auf "Senden" klicke, dann das Feld zum Schreiben leer wird, aber der Text nicht in der Shoutbox erscheint :wacko:
Auch von mir alles gute zum Geburtstag
Hi,
ich habe eine Listview in dem ich den Text von bestimmten Zeilen färben will.
Mit der letzten AutoIt Version hat dies auch noch wunderbar geklappt.
Da sich nun mit der neuen Version die ListView-Befehle komplett geändert haben, mußte ich mein Script umschreiben
#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
Opt('MustDeclareVars', 1)
$Debug_LV = False ; Check ClassName being passed to ListView functions, set to True and use a handle to another control to see it work
Global $hListView, $test, $farbe
Local $GUI, $hImage
$GUI = GUICreate("(External) ListView Create", 400, 300)
$hListView = _GUICtrlListView_Create ($GUI, "", 2, 2, 394, 268, BitOR($LVS_SHOWSELALWAYS, $LVS_REPORT))
_GUICtrlListView_SetExtendedListViewStyle ($hListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES))
GUISetState()
; Add columns
_GUICtrlListView_InsertColumn ($hListView, 0, "Column 1", 100)
_GUICtrlListView_InsertColumn ($hListView, 1, "Column 2", 100)
; Add items
_GUICtrlListView_AddItem ($hListView, "1", 0)
_GUICtrlListView_AddItem ($hListView, "2", 1)
_GUICtrlListView_AddItem ($hListView, "3", 1)
For $i = 0 to 2
$test = _GUICtrlListView_GetItemText($hListView, $i, 0)
;~ MsgBox(0,"", $test)
If $test = 2 Then
MsgBox(0,$i, "färben")
$farbe = _GUICtrlListView_SetTextColor($hListView, 0xFFA500)
MsgBox(0,$i, $farbe)
EndIf
Next
; Loop until user exits
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()
Leider habe ich keine passende Funktion gefunden. Es wird nur alle Zeilen gefärbt
bernd670: AutoIt-Tag korrigiert!
Es soll nur die Zeile gefärbt werden, in der der Wert "2" steht.
kann ich bestätigen, gestern war bei mir auch mehrmals die Shoutbox weiß
komisch bei mir funktioniert die Kombination
[autoit]$listview = GUICtrlCreateListView("Bild|Datum", 10, 85, 234, 859, BitOR($LVS_SHOWSELALWAYS, $LVS_NOSORTHEADER))
$Debug_LV = False ; Check ClassName being passed to ListView functions, set to True and use a handle to another control to see it work
_GUICtrlListView_DeleteAllItems(ControlGetHandle("", "", $listview))
Werde aber trotzdem auf Nummer sicher gehen und "_GUICtrlListView_Create" verwenden
Oder muß man in Zukunft "_GUICtrlListView_Create" nehmen.
Wird es "GUICtrlCreateListView" vielleicht blad nicht mehr geben
Kann BugFix nur zustimmen.
Hatte eben das gleiche Problem.
Nur welcher Titel ist da gemeint???. Beim ListView wird doch gar kein Titel, sondern nur die Spaltenüberschrift angegeben.
Und bei "GUICtrlDelete" wird doch das komplette ListView gelöscht, oder?
Da wurden ja mächtig viele neue ListView Versionen hinzugefügt.
Wie muß ich es nun ändern?
$listview = GUICtrlCreateListView("Heimteam|Auswärtsteam|Erg|Halb|Zuschauer", 340, 10, 420, 150)
_GUICtrlListView_DeleteAllItems($listview) ;listview leeren
Danke Fintan,
dies ist jedoch der gleiche Link der mir peethebee gepostet hat
Trotzdem danke
EDIT: Hab im englischen Forum nachgefragt.
So klappt es
#include<GUIConstants.au3>
#include<GUIScrollBars.au3>
AutoitSetOption("GUIResizeMode",802); bei Größenänderung der GUI, bleiben die Elemente unverändert
$Form1 = GUICreate("Form1", 930, 900, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_SIZEBOX))
WinMove("Form1", "", -1, -1, 931, 901)
_GUIScrollBars_Init ($Form1, 930, 60)
GUIRegisterMsg($WM_VSCROLL, "MY_WM_VSCROLL")
GUIRegisterMsg($WM_HSCROLL, "MY_WM_HSCROLL")
GUIRegisterMsg($WM_SIZE, "MY_WM_SIZE")
$Label1 = GUICtrlCreateLabel("Label1", 32, 32, 36, 17)
$Input1 = GUICtrlCreateInput("Input1", 900, 870, 30, 30)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Bei "_GUIScrollBars_Init ($Form1, 930, 60)" muß man spielen, damit die Scroll-Balken auch zum richtigen Zeitpunkt da sind
habe ich schon probiert, er erscheint auch, jedoch kann ich nicht scrollen
@pee
danke, so was hab ich gesucht
leider funktioniert es nicht so richtig.
Einfach mal das Fenster größerziehen und dei Scrollbalken beobeachten
#include<GUIConstants.au3>
#include<GUIScrollBars.au3>
AutoitSetOption("GUIResizeMode",802) ; bei Größenänderung der GUI, bleiben die Elemente unverändert
$Form1 = GUICreate("Form1", 930, 900, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_SIZEBOX))
_GUIScrollBars_Init ($Form1)
GUIRegisterMsg($WM_VSCROLL, "MY_WM_VSCROLL")
GUIRegisterMsg($WM_HSCROLL, "MY_WM_HSCROLL")
GUIRegisterMsg($WM_SIZE, "MY_WM_SIZE")
$Label1 = GUICtrlCreateLabel("Label1", 32, 32, 36, 17)
$Input1 = GUICtrlCreateInput("Input1", 900, 870, 30, 30)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Hi,
weiss eine wie ich ne GUI mit Scrollbalken erstellen kann?
#include <GUIConstants.au3>
AutoitSetOption("GUIResizeMode",802) ; bei Größenänderung der GUI, bleiben die Elemente unverändert
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 318, 172, 193, 125, $WS_SIZEBOX)
$Label1 = GUICtrlCreateLabel("Label1", 32, 32, 36, 17)
$Input1 = GUICtrlCreateInput("Input1", 328, 328, 137, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
PS: GUI größerziehen dann erscheint noch ein Element
Danke
so müsstes es klappen
#include <GUIConstants.au3>
$DatenBank = GUICreate("Daten Bank", 633, 394, 193, 125)
$cmdEnde = GUICtrlCreateButton("Beenden", 8, 360, 105, 25, 0)
$cmdSuchen = GUICtrlCreateButton("Kunden Suchen", 112, 360, 105, 25, 0)
$cmdBearbeiten = GUICtrlCreateButton("Kunden Bearbeiten", 216, 360, 105, 25, 0)
$cmdAnlegen = GUICtrlCreateButton("Kunden anlegen", 320, 360, 105, 25, 0)
$Kalender = GUICtrlCreateMonthCal("2007/11/30", 440, 216, 178, 169)
$Pic1 = GUICtrlCreatePic("", 440, 8, 177, 201, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$ListviewItem = "E-Bay Name|ICQ-Nummer|Bezahlt Ja/Nein|Ebay/Privat"
$listview = GUICtrlCreateListView ($ListviewItem ,10,10,415,350)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $cmdEnde
Exit
Case $cmdSuchen
Case $cmdBearbeiten
Case $cmdAnlegen
useradd()
EndSwitch
WEnd
func useradd()
$Formular = GUICreate("User", 147, 259, 193, 125)
$Group1 = GUICtrlCreateGroup("Kunden-Daten-Formular", 0, 0, 145, 257)
$Group2 = GUICtrlCreateGroup("Ebay-Name", 8, 16, 129, 49)
$ebayname = GUICtrlCreateInput("", 16, 32, 113, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("ICQ-Nummer", 8, 64, 129, 49)
$icqnummer = GUICtrlCreateInput("", 16, 80, 113, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Bezahlt", 8, 112, 129, 57)
$optja = GUICtrlCreateRadio("Ja", 16, 128, 65, 17)
$optnein = GUICtrlCreateRadio("Nein", 16, 144, 65, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("Gekauft", 8, 168, 129, 57)
$optebay = GUICtrlCreateRadio("Ebay", 16, 184, 49, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$optprivat = GUICtrlCreateRadio("Privat", 16, 200, 49, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$cmdadd = GUICtrlCreateButton("Hinzufügen", 8, 224, 65, 25, 0)
$cmdccancel = GUICtrlCreateButton("Abbrechen", 72, 224, 65, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
While 1
$nsg = GUIGetMsg()
Switch $nsg
Case $GUI_EVENT_CLOSE
guidelete("User")
Case $cmdccancel
guidelete("User")
Case $cmdadd
$txtebaynname = GUICtrlRead($ebayname)
$txticqnummer = GUICtrlRead($icqnummer)
If GUICtrlRead($optja) = 1 Then
$txtbezahlt = "Ja"
Else
$txtbezahlt = "Nein"
EndIf
If GUICtrlRead($optebay) = 1 Then
$txtwogekauft = "Ebay"
Else
$txtwogekauft = "Privat"
EndIf
GUICtrlCreateListViewItem($txtebaynname&"|"&$txticqnummer&"|"&$txtbezahlt&"|"&$txtwogekauft,$listview)
guidelete("User")
Return
EndSwitch
WEnd
EndFunc
Hi BugFix
habe eben festgestellt, dass mit der neuen Final von AutoIt dein Generator nicht mehr läuft. :wacko:
Da haben sich wohl Funktionene geändert.
Kannst ja mal schauen wenn du Zeit hast
Danke
... deshalb sollte jeder der will und kann helfen zu übersetzen
Hi,
so da es wieder ne neue AutoIt Final 3.2.10.0 gibt, muß ich wieder testen ob dein Script wieder läuft
Es geht wieder (fast) perfekt.
Wenn ich den normalen Modus benutze funktioniert es.
Ich klicke auf "Organize includes" und dann auf "Exit" und dann erscheint das include. Sollte es nicht vor dem "Exit" schon erscheinen
Wenn ich jedoch den silent Modus nehme, wird das include manchmal eingefügt und manchmal nicht
Was mir noch aufgefallen ist.
Wenn ich ein include deaktiviert habe, sagt mir dein Script, dass es bereits integriert ist. Dies ist aber falsch
Kannst ja mal schauen, wenn du Zeit hast
ups, 1x zuviel gedrückt :comp2: