Beiträge von eukalyptus

Gut, dann werd ich mal probieren, ob ich das mit _GUICtrlListView_InsertGroup hinbekomme.

Das ist zwar etwas kompliziert, da man jedesmal die nachfolgenden Items bis zur nächsten Group mit der letzten Group verknüpfen muß, ansonsten werden sie ausgeblendet...Das könnte bei vielen Groups (in unterschiedlicher Reihenfolge) ein kleines Chaos verursachen...

Ist aber auf jeden Fall einfacher, als ein Cntrl, welches mit dem LV scrollbar usw. ist.

Hi

Ist es möglich, daß ein Itemtext vollständig dargestellt wird, auch wenn die Spaltenbreite kürzer ist?
Der Text darf und soll die SubItems überdecken.
Ich will damit so eine Art Überschrift in eine Liste einfügen, ohne die Breite der Spalten zu verändern...

_GUICtrlListView_InsertGroup ist optisch ganz gut, jedoch will ich keine Gruppenbildung haben.

#Include <GuiListView.au3>
GUICreate("Test",500,300)
$hListView = GUICtrlCreateListView('', 10, 10, 450, 200)
_GUICtrlListView_AddColumn ($hListView,"1",150)
_GUICtrlListView_AddColumn ($hListView,"2",150)
_GUICtrlListView_AddColumn ($hListView,"3",150)
_GUICtrlListView_AddItem ($hListView, "Dieser Text sollte vollständig sichbar sein",0)
GUISetState()

MsgBox(0,"","")

_GUICtrlListView_EnableGroupView ($hListView)
_GUICtrlListView_InsertGroup ($hListView,0,1,"Dieser Text ist vollstädig sichbar")
_GUICtrlListView_SetItemGroupID ($hListView,0,1)
_GUICtrlListView_SetItemText ($hListView,0,"Nun darf dieser Text abgeschnitten sein")

MsgBox(0,"","So in etwa, allerdings OHNE Gruppierung der Items...")

thx
Eukalyptus

Hi

Die Höhe der Labels in Zeile 92,95,98,105 u 109 von 75 auf 20 setzen, sonst überschneiden sie sich mit den anderen Controls.

lgE

Danke BugFix!

Das gefällt mir sehr gut!

Hi

Mein GUI soll folgendermaßen aussehen:

3 Spalten im Excel-Look, wobei man via Cursor/Tab von Feld zu Feld springen kann.
Die Felder sollen sofort editierbar sein und eine Autovervollständigung besitzen.

Welche Controls soll ich am besten verwenden?

Am schönsten wär ListView, allerdings hab ich es noch nicht geschafft, ein SubItem editierbar zu machen... geht das irgendwie?

Sonst würd ich einzelne Input-Controls verwenden, aber das gefällt mir optisch nicht so...

Gibt es sonst noch Möglichkeiten?

thx
E

LOL

eine sehr nette Geschichte

Bei mir ist das etwas anders:
Mein Vater ist mittlerweile 67 und keines bischen Technickscheu.
Sein erster Computer war der Sinclair ZX81 (1981), welcher immer noch funktionstüchtig ist...
Und sein derzeitiger Computer, wie auch sein Laptop lassen meinen Computer (DualCore) etwas blaß aussehen
Und auch meine Mutter: Sie ist zwar keine Expertin am PC, aber kennt sich teilweise besser aus, als so manche Sekretärin in meiner Firma

lgE

Hi

Oder ein Silvester-Countdown!

Viell hilft das:
(keine Ahnung, ob mein damals gepostetes Script noch funktioniert...)

[ offen ] Timeserver Zeit und Datum abfragen ?

lgE

Hi

eigentlich war mir die Spielfunktion relativ egal.
um mich mal selber zu zitieren:

Natürlich ist da nichts perfekt, ich wollte eigentlich nur etwas mit Parabelflugbahnen experimentieren.
 Und bei der Gelegenheit gleich mal etwas in GDI+ reinschnuppern...

Meine Spiele entstehen fast immer aus Langeweile, oder weil ich was ausprobieren will
(Oda weil Autoit einfach Spaß macht!!!)
3D - Mensch ärgere dich nicht
Kleines Spiel : SNAKE

würd mich aber freuen, wenn jemand meine rudimentären Scripte zu einem "vollwertigen" Spiel erweitert

Hi

Hast du auch den richtigen Input gewählt?

Wie klingt eine ähnliche Aufnahme vom gleichen Input! mit einer anderen Aufnahmesoftware?

lgE

Hallo, liebe AutoIt Kollegen.

Das hier ist das Projekt, an dem ich in letzer Zeit am häufigsten gearbeitet hab.
Ein Audiorecorder mit automatischer Aufnahmelautstärkenregelung (AGC = automatic gain control)
und Schedule für automatische Aufnahmen.
Aufnahmeformate sind Wav, Mp3 und Ogg. Wobei auch jeder beliebige Cmdline-Encoder verwendet werden kann, welcher via Stdin gefüttert wird...

Bitte Bugs und Verbesserungsvorschläge posten!
und bitte auch Feedback, ob die Software einigermaßen selbsterklärend ist...

Unter XP/Vista/Win7Beta läuft das Prog bei mir ohne Probleme...
Bei meinem Win2k-Rechner erkennt es leider nur 1 Input der Soundkarte... Hat jemand Win2k und kann das bestätigen?!?

Download:
http://rapidshare.com/files/176617327/Recorder.zip

lgE

Hi

Der String in Zeile 12 enthält die Zeichen, welche nach der Reihe eingesammelt werden müssen:
Global $sCatch = "123456789"

Kann man jetzt erweitern, wie man will - allerdings wird immer nur 1 Zeichen angezeigt, somit geht 10,11,12 usw. nicht!
Leerzeichen werden übersprungen, also kann man auch ganze Sätze verwenden:
Global $sCatch = "HEUTE IST EIN SCHÖNER TAG"

lgE

Hi

Um die WinGetClassList - Liste verwenden zu können, muß man diese noch durchnumerieren.
(Wenn man 2 Button hat, dann soll der erste Button1 und der zweite Button2 heißen...usw...)
Dazu gibt es eine gute Funktion von ProgAndy, hab ich aber grad nicht gefunden und deshalb was eigenes geschrieben:

$hPid=Run("Sndrec32.exe")
WinWait("[CLASS:SoundRec]", "", 5)
If @error Then Exit
$hWnd=WinGetHandle("[CLASS:SoundRec]")
$sCList=WinGetClassList($hWnd)
$aCtrl=_EnumCtrl($sCList)

For $i=1 To $aCtrl[0]
ControlHide($hWnd,"",$aCtrl[$i])
Next

Func _EnumCtrl($sList)
Local $aList=StringSplit($sList,@CRLF)
Local $iCnt, $aRet[1]=[0]
For $i=1 To $aList[0]
$iCnt=1
If $aList[$i]="" Then ContinueLoop
$aRet[0]+=1
ReDim $aRet[$aRet[0]+1]
$aRet[$aRet[0]]=$aList[$i] & $iCnt
For $j=$i+1 To $aList[0]
If $aList[$i]<>$aList[$j] Then
ContinueLoop
Else
$iCnt+=1
$aRet[0]+=1
ReDim $aRet[$aRet[0]+1]
$aRet[$aRet[0]]=$aList[$i]&$iCnt
$aList[$j]=""
EndIf
Next
$aList[$i]=""
Next
Return $aRet
EndFunc

lgE

Wie meinst du das? Endlos spielen?

Du kannst ja mal die Zeilen 432 und 433 wie folgt ändern:

$iSnakeLen = 999
$iRound = 0

Hi

Schwierigkeit erhöhen:

Zeile 12: Global $sCatch = "ABCDEFGHIJKLMNOPQRSTUVWXYZ Autoit Bla Bla Bla usw"
Zeile 101: Bei Sleep den Wert runtersetzen. (auf z.b. 5)
Zeile 294: $iSnakeLen += 15 ; Um diesen Wert wird die Snake länger, wenn man eine Zahl erwischt. (z.b. 25)

lgE

Das nächste GDI_Plus - Spiel von mir

Gesteuert wird mit den Cursortasten.
Insgesammt 5 Levels mit jeweils 9 Punkten zum einsammeln...

Sowas entsteht, wenn ich Langeweile hab, oder keine Lust an meinen eigentlichen Projekten zu arbeiten;
Und wächst mit der Zeit heran.
Ich denke, es ist "fertig" genug, um gepostet zu werden

Viel Spaß

lgE

Hi

Hier was von CodeProject:
http://www.codeproject.com/KB/system/cpuu…udiAvramov.aspx
Sourcecode dieser Seite im Anhang

http://msdn.microsoft.com/en-us/library/ms724509.aspx

Hoffe, daß das was brauchbares ist...

lgE

Hi

Ja, natürlich...
Ich weiß nur nicht, wie Jpg´s aussehen...

Ich werd nun das Bild einfach als Bmp abspeichern und dann auslesen.
Das geht erheblich leichter als Jpg.

thx

EDIT:
Folgende Funktion ist für meine Zwecke ausreichend, also Problem gelöst

$hFile=FileOpen(@ScriptDir & "\Test.bmp",16)
$sPIC=FileRead($hFile)
FileClose($hFile)

If _CheckBlack($sPIC,10) = True Then
MsgBox(0,"","Bild ist schwarz")
Else
MsgBox(0,"","Bild ist OK")
EndIf

Func _CheckBlack($BMP,$Trs=10,$Steps=10)
$BMP=StringTrimLeft($BMP,110)
Local $Cnt=StringLen($BMP)/6-Mod(StringLen($BMP)/6,6)
$BMP=StringRight($BMP,6 * $Cnt)
Local $R, $G, $B, $BCnt=0, $CCnt=0
For $i=0 To $Cnt-1 Step $Cnt/$Steps
$B=Int("0x" & StringMid($BMP,$i*6+1,2))
$G=Int("0x" & StringMid($BMP,$i*6+3,2))
$R=Int("0x" & StringMid($BMP,$i*6+5,2))
If $B < $Trs And $G < $Trs And $R < $Trs Then
$BCnt+=1
Else
$CCnt+=1
EndIf
Next
If $BCnt>=$CCnt Then
Return True
Else
Return False
EndIf
EndFunc

Hey cool!

Diese Funktion hab ich auch noch irgendwo ... könnte funktionieren!

Danke

Hallo

Ich mache mit dem Webcamscript ausm englischen Forum Snapshots von einer Videocapture-Karte.
Das Preview-Bild wird im GUI angezeigt und dann als JPG abgespeichert.
Falls nun kein Videosignal anliegt, ist das Bild schwarz und das will ich erkennen.

Momentan löse ich das mit PixelGetColor, jedoch versagt diese Methode, wenn das GUI minimiert ist

Zweite Möglichkeit wäre die Dateigröße abzufragen, denn schwarze Jpg´s sind in der Regel kleiner als bunte...

Fallen euch noch weitere/bessere Möglichkeiten ein?

thx
Eukalyptus