Beiträge von UEZ

Zitat von Werty

There's a script in this thread that removes the close button, not only disable...

https://www.autoitscript.com/forum/topic/14…dow-in-runtime/

That's not the issue. Bugfix asked if it's possible to remove the close button only, that means you have still the min/max buttons available.

Herzlichen Glückwunsch Tweaky zum Sieg

Bis zur nächsten Spiel­sai­son...

Kannst auch als Einzeiler schreiben.

#include <WindowsConstants.au3>
#include <GuiMenu.au3>

; Standard: Icon + Titel + MinBox + MaxBox + CloseButton
_GuiStyle()

Func _GuiStyle($iStyle=-1)
    Local $hGui = GUICreate('Test',400,300, -1, -1, BitOR($WS_CAPTION, $WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SYSMENU))
    _GUICtrlMenu_EnableMenuItem(_GUICtrlMenu_GetSystemMenu($hGui), $SC_CLOSE, $MF_DISABLED, False)
    Local $exit = GUICtrlCreateButton('Exit', 50,50,80,25)
    GUISetState()
    While 1
        If GUIGetMsg() = $exit Then Return
    WEnd
EndFunc

Hier ein Beispiel, um das Close Button zu deaktivieren: https://www.autoitscript.com/forum/topic/16…comment=1185617

Was anderes habe ich momentan nicht gefunden.

Ich habe doch das Skript nochmals aktualisiert - diesmal aber zum letzten Mal.

Die Liste sollte von der Web Seite aktualisiert werden...

Zitat von autoiter

Beim Ausprobieren eben gesehen, dass die Anzeige der Programme scheinbar nicht mehr funkioniert

Yep, die haben die Seite verändert, aber da das Interesse eher sehr gering ist, habe das Skript nicht aktualisiert.

Zitat von alpines

Klar, man kann mit Au3 auch komplexere Programme schreiben, aber das ist ja nicht der Sinn davon oder? (Ja... hab ich auch schon öfters gemacht)

Warum sollte es keinen Sinn machen komplexe Programme in Autoit zu schreiben, wenn die Performance dafür ausreicht?

Ich persönlich arbeite momentan viel mit Freebasic, aber dort sieht es ähnlich mit der Weiterentwicklung aus, es gibt primär einen Freiwilligen, der Entwicklung betreibt, also auch nicht besonders rosige Zukunft für FB.

Ich persönlich mag die Basic Sprache, ist intuitiv und leicht zu erlernen. Mit C / C++ habe ich mich bis jetzt nicht richtig anfreunden können.

Jon ist momentan der einzige Entwickler, ergo, falls er Lust hat die Sprache weiter zu entwickeln, dann geht's weiter, ansonsten Stillstand. Solange Autoit ordentlich funzt, ist dies nicht weiter tragisch.

Yep, danke.

Sodele, funzt - ich kann den Piepmatz sehen.

Die Exe ist 1,66 MB groß

Zitat von Oscar

Meinst Du mit Nim?

Yep. FB ist ja nicht das Thema, obwohl ich rein gegrätscht bin.

Ok, wie war das noch mit dem Problem?

C:\WINDOWS\system32>nimble install miniz --verbose
    Reading official package list
Downloading https://github.com/treeform/miniz using git
     Error: 'git' not in PATH.

Für FreeBasic habe ich auch einen "FB File2Bas Code Generator" geschrieben mit ein paar mehr Möglichkeiten...

Warum erwähne ich das hier? Kein Ahnung...

Oscar muss ich miniz kompilieren oder wie kann ich es benutzen?

_parseCSV.au3 klingt doch ganz gut.

Sehr gut!

In beiden _Array2* Beispielen fehlt ein #include "_parseCSV.au3" und FileWrite ohne das Drumherum ist nicht Optimum, da immer in die bestehende Datei angehängt wird und Unicode ist aus nicht, zumindest auf meiner Kiste.

#include <FileConstants.au3>
; schreibe csv-Datei
Global $hFile = FileOpen("out.csv", BitOR($FO_OVERWRITE, $FO_UTF8))
FileWrite($hFile, _Array2CSV($aData))
FileClose($hFile)

Zitat von Bitnugger

Das Ergebnis sieht dann bei mir so aus:

Dies ist aber sicher nicht das gewünschte Ergebnis...

Was bewirken bei (($i)) die doppelten Klammern?

Sorry, aber

Zitat

Danach werden die Pixel je nach Algorithmus durch andere ersetzt und dafür bräuchte ich eine Möglichkeit wie man jetzt auf einfachem Wege das Struct nochmals als gleicher Typ der Variable $tBitmapData neu zuweist. ImageSaveToStream bekomm ich nicht zum Laufen, zeigt alles schwarz an

das verstehe ich nicht ganz. Ein simples Beispiel würde Licht ins Dunkele bringen., wie z.B. ich lade ein Bild, um es in Graustufen umzuwandeln.

Die Doppelklammern sind nötig, damit das Array in der Struct (Bitmap) angesprochen werden kann.

Beispiel:

$tPixelData.Scan0(($i)) = Mod($i, 256) == DllStructSetData($tPixelData, 1, Mod($i, 256), $i)

Hier ist die Struct als Byte deklariert, damit man die Farbkanäle direkt als rot, grün blau und alpha ansprechen kann.

Hier eine GDI+ Variante:

#include <GDIPlus.au3>

FileDelete(@ScriptDir & "\Test.png")

_GDIPlus_Startup()

Local $iW = 128, $iH = 128
Local $tPixelData = DllStructCreate("byte scan0[" & $iW * $iH * 4 & "];")
ConsoleWrite(DllStructGetSize($tPixelData) & @CRLF)

Local $hBitmap = _GDIPlus_BitmapCreateFromScan0($iW, $iH, $GDIP_PXF32ARGB, $iW * 4, $tPixelData)

For $i = 1 to $iW * $iH * 4
    Switch Mod($i, 4)
        Case 0
            $tPixelData.Scan0(($i)) = 0xFF    ;alpha channel
        Case 1
            $tPixelData.Scan0(($i)) = Mod($i, 256)    ;blue
        Case 2
            $tPixelData.Scan0(($i)) = Mod($i * 2, 256)    ;green
        Case 3
            $tPixelData.Scan0(($i)) = Mod($i / 2, 256)    ;red
    EndSwitch
Next

_GDIPlus_ImageSaveToFile($hBitmap, @ScriptDir & "\Test.png")

_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_Shutdown()
ShellExecute(@ScriptDir & "\Test.png")

Prima, danke!

Zitat von alpines

Wenn du möchtest kann ich aber fix ne W7 Installation aufsetzen, sollte nich allzu lange dauern.

Wir haben gleich Mitternacht. Vielleicht ist jemand gnädig und kann mal mit Win7 schnell testen, dann kannst du zeitig schlafen gehen.

Die Installation raubt mindestens 30 Minuten...

Die sind beide gepackt. Die 4k Version mit UPX, die 2K Version mit Crinkler. Hast du unter Win7 getestet?

Ich habe es endlich verstanden, wie ich in FreeBasic Crinkler benutzen kann.

Das Resultat: 2.05 KB!

Kann jemand bitte testen, ob die Exe Dateien zu starten sind? Ab Windows 7 wäre es für mich interessant.

Ich musste leider bei Ole32.dll Funktion CLSIDFromString(Wstr("{633C80A4-1843-482b-9EF2-BE2834C5FDD4}"), @tGUID) für die Blur Funktion tricksen, da sonst Crinkler immer mir eine Fehlermeldung bringt.

Zitat

: warning LNK: Import 'CLSIDFromString' from 'ole32' uses forwarded RVA. Replaced by 'CLSIDFromString' from 'api-ms-win-core-com-l1-1-0'

: error LNK: Cannot find DLL 'API-MS-WIN-CORE-COM-L1-1-0.DLL'

Immer diese Olle...

Geschaftt - 4096 Bytes!