Beiträge von Thomas

Ich fasse nochmal alles zusammen:
Die Funktion bekommt einen Text. Der Text kann aus einem einzelnen Wort, ggf. auch mehreren Wörtern (vergl. oben) bestehen. Bei dem Text muss dann überprüft werden in welchem der folgenden Fälle die Schrift größer dargestellt wird:

• Alles in eine Zeile hintereinander
• Mit Zeilenumbruch

Generell gilt aber: Die Schrift darf so breit sein wie @DesktopWidth-20 und so max. so hoch wie 2/3*@DesktopHeight. Anhand dieser Vorgaben muss die Funktion entscheiden, wie sie die Schrift darstellt, also mit oder ohne Zeilenumbruch.

Prizipiell schon gut, nur kann ich die FontSize manuell nicht anpassen. Das muss die Funktion anhand des übergeben Textes selber machen inkl. die Aufteilung in die Zeilen. Die Funktion von eukalyptus macht soetwas ja schon, es fehlt da halt nur die beiden Punkte, die ich oben notiert hatte.

Funktioniert jetzt auch

Kann man die Funktion auch so schreiben, dass...
1. man einen Bereich vorgibt wo die Schrift steht, also eine Position und eine Breite bzw. Höhe des "Rahmens" und
(konkret heißt das, dass man eine xund eine y Position und dazu noch die Width und die High)

2. sie automatisch einen Zeilenumbruch macht, wenn der Text insgesamt mit Zeilenumbruch größer wäre als ohne?
(Beispiel: Der Text "Landwirtschaft nimmt wieder stark zu" wäre in eine Zeile gequetscht ziemlich klein. Hier wäre ein Zeilenumbruch wie z.B. "Landwirtschaft nimmt / wieder stark zu" sinnvoll und die Schrift wäre insgesamt dadurch größer. Zeilenumbrüche sollten aber nur eingefügt werden, wenn ein Leerzeichen vorhanden sind. Worttrennungen sind also nicht nötig.)

Der rote Kasten entspricht den Vorgaben unter Punkt 1.
Ich habe auch dafür keinen Ansatz parat.

Ok ist auch fast erledigt
Aber eine Frage habe ich dann doch noch:
Wenn ich einen beliebig lagen Text (meistens nur ein bis wenige Wörter) in einer Variable $text habe, wie kann ich für die oben gegebene Funktion

Func DrawTextOnBitmap(...)

die größtmögliche Schritftgröße in Abhängigkeit von den maximalen Breite (@DesktopWidth-50) und Höhe (2/3*@DesktopWidth) errechnen?

Super danke
Kann man eigentlich auf eine Bitmap nochmal eine Grafik oben "draufzeichnen"?

Was gibt es denn noch für Möglichkeiten das ganze zu verschnellern, außer den Zeilenabstand zu erhöhen? Der Code lässt sich ja auch nicht viel effizienter gestalten.

Das sieht sehr sehr gut aus, vorallem läuft es flüssig.
Es gibt nur zwei Dinge die man noch ändern müsse:
- Das Schwenken von rechts nach links und umgekehrt könnte man ganz rausnehmen. Das ist für den Zweck etwas unangebracht. Schön wäre es, wenn man diesen Effekt nur einseitig hätte.
- Gleichzeitig müsste es zeitlich etwas zusammenschrumpfen. Bei mir dauert aktuell das Programm mit einem BIld von 1444x777 Pixel mehr als 16 Sekunden. Zur Verfügung steht aber gerade einmal eine 3/4 Sekunde für die komplette Animation von Beginn bis Ende.

Ok schonmal danke. Das mit dem Text sollte jetzt laufen. Nur das Parallelogramm bringt mir nicht wirklich viel. Ich bin vorhin dann auf einen älteren Thread gestoßen (https://autoit.de/index.php/Thre…oints/?pageNo=1). Interessanter weise funktioniert nur das dort gepostete nicht wirklich. Aber vom Ansatz her wäre das vielleicht was.

Ist zufällt mal jemandem aufgefallen, dass wenn man mit

_GDIPlus_GraphicsDrawStringEx(...)

einen String ausgeben lässt, der bei größeren Schriftgrößen (>100) nicht mehr exakt bei der Koordinate beginnt, die man angegeben hat? Ich bekomme da immer eine Verschiebung von ca. 150 Pixeln(in Abhängigkeit von der Schriftgr.) nach rechts. Hat da jemand eine Idee wie man die weg bekommt?

Das mit GDI+ war mir fast schon klar.

UEZ:
Ja, auf dem Bild ist das nicht gut erkennbar. Das ganze soll so aussehen, dass das ganze von oben heruntergeklappt kommt. Die Drehachse soll die vordere obere Kante sein und praktisch in der Bildschirmebene liegen . Von der Theorie her müsste die hintere Kante schmaler sein und daher kommt die Trapezform.

Kennt jemand, bzw. könnte jemand mal die notwendigen Methoden aufschreiben, weil ich überhaupt keinen Ansatz habe, weder für den Text, noch für die Animation.

Hallo Leute,
kennt jemand einen Weg ein vorhandenes Bild...
1. mit einem beliebigen Text zu versehen (also als weiße Schrift zentriert mitten drauf). Der Text ist bei jedem Programmaufruf verschieden.
2. dieses neue Bild dann für eine Animation trapezförmig zu skalieren (das ist auf dem Bild nicht gut erkennbar).

Wäre super wenn jemand einen guten Ansatz dafür hätte.

Ani.jpg

Danke.

Das Problem ist: Selbst wenn ich alles auf den folgenden Umfang reduziere, zieht der immernoch so viel an Speicher, zwar etwas langsamer, aber immernoch viel...

#include <File.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>


$high=@DesktopHeight/5


$Form1 = GUICreate("Form1", @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_POPUP,$DS_SETFOREGROUND), $WS_EX_TOPMOST)
GUISetBkColor(0x000000)
GUISetState(@SW_SHOW)


_GDIPlus_Startup()
$hImage = _GDIPlus_GraphicsCreateFromHWND($Form1)
$handl= _GDIPlus_ImageLoadFromFile(@Scriptdir&"\3.jpg")
Sleep(2000)


While 1
    If GUIGetMsg()=$GUI_EVENT_CLOSE Then
        _GDIPlus_Shutdown()
        Exit
    Endif


    showpic($handl,300,300,$high,$high,true)
    delpic($handl,300,300,$high,$high,true)
WEnd


Func showpic($pichandle,$posx,$posy,$picwith,$pichigh,$fast)
If $fast Then
For $t=0 To $picwith
_GDIPlus_GraphicsDrawImage($hImage,Scale_Image($pichandle, $t, $pichigh), $posx+($picwith/2)-($t/2), $posy)
Next
Else
For $t=0 To $picwith
_GDIPlus_GraphicsDrawImage($hImage,Scale_Image($pichandle, $t, $pichigh), $posx+($picwith/2)-($t/2), $posy)
Sleep(5)
Next
Endif
EndFunc


Func delpic($pichandle,$posx,$posy,$picwith,$pichigh,$fast)
If $fast Then
For $t=0 To $picwith
_GDIPlus_GraphicsDrawImage($hImage,Scale_Image($pichandle, $picwith-$t, $pichigh), $posx+($t/2), $posy)
Next
Else
For $t=0 To $picwith
_GDIPlus_GraphicsDrawImage($hImage,Scale_Image($pichandle, $picwith-$t, $pichigh), $posx+($t/2), $posy)
Sleep(15)
Next
Endif
EndFunc


Func _ArrayCompare($avArray1, $avArray2)
; Array[0] = Anzahl an Treffer
Local $avArray3[1] = [0], $iMax, $i
For $i = 0 To UBound($avArray1) - 1
If Not _c($avArray2, $avArray1[$i]) Then
$iMax = UBound($avArray3)
ReDim $avArray3[$iMax + 1]
$avArray3[$iMax] = $avArray1[$i]
EndIf
Next
$avArray3[0] = UBound($avArray3) - 1
Return $avArray3
EndFunc
Func _c($a, $v)
Local $i
For $i = 0 To UBound($a) - 1
If $a[$i] = $v Then Return True
Next
Return False
EndFunc


Func Scale_Image($hImage, $newW, $newH)
Local $newImage = _GDIPlus_BitmapCreateFromScan0($newW, $newH)
Local $hContext = _GDIPlus_ImageGetGraphicsContext($newImage)
_GDIPlus_GraphicsSetInterpolationMode($hContext, 7)
_GDIPlus_GraphicsDrawImageRect($hContext, $hImage, 0, 0, $newW, $newH)
_GDIPlus_GraphicsDispose($hContext)
Return SetError(0, 0, $newImage)
EndFunc
Func _GDIPlus_GraphicsSetInterpolationMode($hGraphics, $iInterpolationMode)
Local $aResult = DllCall($ghGDIPDll, "uint", "GdipSetInterpolationMode", "hwnd", $hGraphics, "int", $iInterpolationMode)
If @error Then Return SetError(@error, @extended, False)
Return $aResult[0] = 0
EndFunc ;==>_GDIPlus_GraphicsSetInterpolationMode
Func _GDIPlus_BitmapCreateFromScan0($iWidth, $iHeight, $iStride = 0, $iPixelFormat = 0x0026200A, $pScan0 = 0)
Local $aResult = DllCall($ghGDIPDll, "uint", "GdipCreateBitmapFromScan0", "int", $iWidth, "int", $iHeight, "int", $iStride, "int", $iPixelFormat, "ptr", $pScan0, "int*", 0)
If @error Then Return SetError(@error, @extended, 0)
Return $aResult[6]
EndFunc ;==>_GDIPlus_BitmapCreateFromScan0

Habe ich auch schon probiert, er frisst aber interessanter Weise beim "Animieren" den Speicher, nicht vorher beim Laden.

Hallo Leute,

ich habe da mal wieder ein kleines Problem. Ich habe ein kleines Programm geschrieben, dass Bilder aus einem Ordner lädt und diese dann mit einer kleinen Animation anzeigen soll. Das läuft in der aktuellen Version eingentlich auch alles sehr gut außer dass das Programm extrem viel Speicher zieht.
Gibt es eine Möglichkeit die gleiche Animation zu erhalten, aber ohne soooo viel Speicherplatz?

Hier noch der bisherige Quelltext:

#include <File.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>


$high=@DesktopHeight/5


$Form1 = GUICreate("Form1", @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_POPUP,$DS_SETFOREGROUND), $WS_EX_TOPMOST)
GUISetBkColor(0x000000)
GUISetState(@SW_SHOW)


_GDIPlus_Startup()
$hImage = _GDIPlus_GraphicsCreateFromHWND($Form1)
Sleep(2000)


$pics=_FileListToArray(@Scriptdir&"\Pics","*.*",1)
_ArrayDelete($pics,0)
Dim $pichandles[Ubound($pics)]
Dim $picnamen [Ubound($pics)]
Dim $used [Ubound($pics)]


For $t=0 To Ubound($pics)-1
$pichandles[$t]= _GDIPlus_ImageLoadFromFile(@Scriptdir&"\Pics\"&$pics[$t])
$used [$t]= false
$picnamen [$t]= $pics[$t]
Next


While 1
If GUIGetMsg()=$GUI_EVENT_CLOSE Then
_GDIPlus_Shutdown()
Exit
Endif


;Bilder anzeigen
$nr=Random(0,Ubound($pichandles)-1,1)
showpic($pichandles[$nr],300,300,$high,$high,true)
delpic($pichandles[$nr],300,300,$high,$high,true)
WEnd


Func showpic($pichandle,$posx,$posy,$picwith,$pichigh,$fast)
If $fast Then
For $t=0 To $picwith
_GDIPlus_GraphicsDrawImage($hImage,Scale_Image($pichandle, $t, $pichigh), $posx+($picwith/2)-($t/2), $posy)
Next
Else
For $t=0 To $picwith
_GDIPlus_GraphicsDrawImage($hImage,Scale_Image($pichandle, $t, $pichigh), $posx+($picwith/2)-($t/2), $posy)
Sleep(5)
Next
Endif
EndFunc


Func delpic($pichandle,$posx,$posy,$picwith,$pichigh,$fast)
If $fast Then
For $t=0 To $picwith
_GDIPlus_GraphicsDrawImage($hImage,Scale_Image($pichandle, $picwith-$t, $pichigh), $posx+($t/2), $posy)
Next
Else
For $t=0 To $picwith
_GDIPlus_GraphicsDrawImage($hImage,Scale_Image($pichandle, $picwith-$t, $pichigh), $posx+($t/2), $posy)
Sleep(15)
Next
Endif
EndFunc


Func _ArrayCompare($avArray1, $avArray2)
; Array[0] = Anzahl an Treffer
Local $avArray3[1] = [0], $iMax, $i
For $i = 0 To UBound($avArray1) - 1
If Not _c($avArray2, $avArray1[$i]) Then
$iMax = UBound($avArray3)
ReDim $avArray3[$iMax + 1]
$avArray3[$iMax] = $avArray1[$i]
EndIf
Next
$avArray3[0] = UBound($avArray3) - 1
Return $avArray3
EndFunc
Func _c($a, $v)
Local $i
For $i = 0 To UBound($a) - 1
If $a[$i] = $v Then Return True
Next
Return False
EndFunc


Func Scale_Image($hImage, $newW, $newH)
Local $newImage = _GDIPlus_BitmapCreateFromScan0($newW, $newH)
Local $hContext = _GDIPlus_ImageGetGraphicsContext($newImage)
_GDIPlus_GraphicsSetInterpolationMode($hContext, 7)
_GDIPlus_GraphicsDrawImageRect($hContext, $hImage, 0, 0, $newW, $newH)
_GDIPlus_GraphicsDispose($hContext)
Return SetError(0, 0, $newImage)
EndFunc
Func _GDIPlus_GraphicsSetInterpolationMode($hGraphics, $iInterpolationMode)
Local $aResult = DllCall($ghGDIPDll, "uint", "GdipSetInterpolationMode", "hwnd", $hGraphics, "int", $iInterpolationMode)
If @error Then Return SetError(@error, @extended, False)
Return $aResult[0] = 0
EndFunc ;==>_GDIPlus_GraphicsSetInterpolationMode
Func _GDIPlus_BitmapCreateFromScan0($iWidth, $iHeight, $iStride = 0, $iPixelFormat = 0x0026200A, $pScan0 = 0)
Local $aResult = DllCall($ghGDIPDll, "uint", "GdipCreateBitmapFromScan0", "int", $iWidth, "int", $iHeight, "int", $iStride, "int", $iPixelFormat, "ptr", $pScan0, "int*", 0)
If @error Then Return SetError(@error, @extended, 0)
Return $aResult[6]
EndFunc ;==>_GDIPlus_BitmapCreateFromScan0

Hallo Leute,
ich habe mal wieder ein Problem.

Ich hab eine GUI mit 2 ListViews erstellt. Wenn ich jetzt ein Item von ListView1 in ListView2 schiebe, funktioniert das auch, d.b. in ListView1 verschwindet das Element, in ListView2 taucht es auf. Jedoch beim zurückschieben von dem Element in ListView2 ein Fehler. Es taucht es zwar in ListView1 wieder auf, wird aber in ListView2 nicht gelöscht. Wie kann man es beheben?

Hallo Leute,

ich habe hier so eine Datei rumliegen, die ich in ein anderes Format umwandeln muss. Leider finde ich aber keinen Ansatz und auch keine Idee, wie man so was umsetzen kann...

Schön wäre es wenn man ne Funktion hinkiegen könnte, die als Rückgabewert nen Array wie folgendes hat:

$array[0]=Anzahl der Elemente im Array
$array[1][0]=HKEY_LOCAL_MACHINE\SOFTWARE\Test\Testordner\Testwert2
$array[1][1]=REG_SZ
$array[1][2]=Wert (ausgelesen aus HKLM_after.reg)

Zitat von Protex

XD was davon willst du denn haben? die Keys? den Inhalt der Keys? oder ggf nur die Oberstrucktur? haha

Gruß Marvin

Es geht primär darum, die Unterschiede festzustellen und diese auszugeben z.B. so z.B.

Schonmal danke für die schnellen Antworten.

Habt ihr für folgende Dateien auch eine Lösung?

In diesem Fall ist mir persönlich das Ausgabeformat auch egal. (Wäre natürlich trotzdem schön, wenn es wieder ein array wäre.)

Hallo Leute,
ich sitze mal wieder vor einem Projekt und habe gerade keine Ahnung, wie ich das realisieren soll.

Es geht darum das eine Datei, wie die folgende

verglichen wird, sodass ein array zurückegegeben wird, das alle "neuen" Elemente, wie folgt enthält:

Hallo Leute,

fällt euch irgendeine Möglichkeit ein, wie man Einträge und Veränderungen feststellen kann, die von einer Installation in der Registry gemacht werden?

Ziel ist es, diese "Ergänzungen" in einer Datei abzuspeichern, um sie automatisch zurücksetzen zu lassen (Prog fast fertig, nur das fehlt noch).

Beispiel:
Ich installiere den VLC Media Player. Die Installation schreibt Einträge in die Registry und mein Programm speichert diese Änderungen als Datei ab. Wenn nun an den Einstellungen etwas verstellt wurde, oder ähnliches, setzt das Programm diese wieder in den Ursprungszustand zurück.
Eine Neuinstallation wäre zwar auch eine Alternative, dauert aber bei vielen PCs lange.