| |
| |
|
| - Seite 1 - |
|
Manfred
Barei | Hallo,
habe eine Bildauswahl Dialog nach gestellt, Picture pcu
Wenn es einer gebrauchen kann, läuft ab XProfan 10.
Hier ein kurzer beispiel Code:
'PCU-Version 0.5
'Copyright by MB-Soft 2008 - 2011
'Autor: Manfred Barei
'für Hilfe bei diesem Projekt möchte ich mich bei folgender/n Person/en bedanken:
'Frank Abbing
'Die PCU ist Freeware und darf uneingeschrängt benuzt werden, jedoch liegen die Rechte bei MB-Soft.
'Bei Verwendung der PCU in eigenen Programmen sollte/n der/die Autoren erwähnt werden!
$U Picturewahl.pcu = Bild_'pcu einbinden
Declare Bildpfad$,Bild&,Pfad$,BildTyp$
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
WINDOWSTYLE 31
windowtitle "Bildauswahl-Test"
WINDOW (%maxx/2 - 640/2),(%maxy/2 - 500/2) - 640,500
CLS
Pfad$ = "C:\"
'BildTyp$ = "Alle"
' oder
BildTyp$ = "*.JPG"' hier können alle Bildendungen angegeben werden die XProfan unterstüzt.
Bildpfad$ = Bild_wahl(Pfad$,BildTyp$)' Aufruf der .pcu
If Bildpfad$ <> ""
Bild& = @Create("hPic",-1,Bildpfad$)
DrawPic Bild&,0,0;0
DeleteObject Bild&
EndIf
waitinput
end
Gruß
Manfred |
 |
| |
| Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 07.08.2008 ▲ |
|
| |
|
|
| |
| |
| - Seite 2 - |
|
Jörg
Sellmeyer | | Ach ja: Anhänge immer am Besten im Initialposting einfügen und dort auch aktualisieren. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 12.08.2008 ▲ |
|
| |
|
| |
| |
| - Seite 3 - |
|
|
RGH | Mit folgendem einfachen Script kann man den korrupten Header korrigieren:
Declare Daten#
Var Programm$ = LoadFile$("Profan-Programm öffnen:","*.exe")
If Programm$ > ""
Dim Daten#, FileSize(Programm$)
datei in den Speicher lesen
@BlockRead(Programm$, Daten#, 0, FileSize(Programm$))
Kompilat-Signatur " RGH-PROFAN" suchen
Es wird zunächst der Vergleichs-String in der Runtime gefunden.
Das führende Leerzeichen ist wichtig, da es sonst mehr Fundstellen gibt
Var Position1& = MemPos(Daten#, 0, " RGH-PROFAN")
If Position1& = -1
Messagebox("Keine gelinkte XProfan-Exe!", "Fehler:", 16)
End
Else
Jetzt den String im Kompilat finden
Var KompStart& = MemPos(Daten#, Position1& + 1, " RGH-PROFAN")
If KompStart& = -1
Messagebox("Kein Kompilat hinzugelinkt!", "Fehler:", 16)
End
Else
Jetzt haben wir die Adresse und erzeugen zunächst ein
Backup der Originaldatei ...
BlockWrite Programm$+".bak", Daten#, 0, SizeOf(Daten#)
... und setzen die gefundene Adresse in den Header ein!
+1 wegen des führenden Leerzeichens
KompStart& = Position1& + KompStart& + 1
Long Daten#,$80 = KompStart&
BlockWrite Programm$, Daten#, 0, SizeOf(Daten#)
Messagebox("Datei repariert!", "Hinweis:", 64)
EndIf
EndIf
Endif
End
Einfach die fehlerhafte Bildwahl.exe auswählen und fertig! Anschließend kann sie gestartet werden.
Gruß
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 12.08.2008 ▲ |
|
| |
|
|
Dieter
Zornow | Die PCU funktioniert sehr gut, aber mir fehlt noch eine Pfadvorgabemöglichkeit und die Ladevorgabe sollte "Alle Formate" sein kein Einzelformat. Warum hast du eigentlich nicht alle von Profan unterstützten Bildtypen integriert, müsste doch sehr leicht sein, wenn das Gerüst steht.
Gruß
Dieter. |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 12.08.2008 ▲ |
|
| |
|
|
Manfred
Barei | Hallo,
das mit der Exe kann ich mir einfach nicht erklären.  
Habe die Dateien noch einmal auf meinem Hauptrechner bearbeitet und die Zip-Datei neu zusammen gestellt.
Der Wunsch von Dieter wurde auch schon zum teil mit eingearbeitet ( jetzt werden alle von Profan unterstüzten Formate angezeigt ), dass mit der Pfadvorgabe kommt in einem der nächsten Updats.
So und nun bitte Testen, Testen und nochmals Testen und Fehler melden, Danke.
Da ich schon mehr mals versucht habe die Zip-Datei neu Hochzuladen dieses aber anscheinen nicht Funktioniert hat, nun hier noch einmal im Anhang.
Gruß
Manfred
PS. Dietmar, nun ist auch die Bildwahl.prf mit dabei fals die Exe wieder nicht funktionieren sollte. |
|
| |
| Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 12.08.2008 ▲ |
|
| |
|
|
Peter
Max
Müller | Hi,
Kein neuzeichnen bei Überdeckung oder Verschiebung über Monitorrand.
Ferner scheint die Farbtiefe Anzeige nicht ordnungsgmäß zu funktionieren.
Ich habe beispielsweise gifs mit über 30000 bit.
ciao |
|
| |
| |
| |
|
|
Manfred
Barei | so, hier nun eine neue Version der pcu.
Es wurde folgende Änderungen vorgenomme:
Die Vorschaubilder werden jetzt scaliert im Vorschaufenster ausgegeben, der Aufruf der pcu kann jetzt mit einer Pfadvorgabe erfolgen und auch das Neuzeichnen wurde erledigt
Peter, das mit der angabe der Bit und Farbtiefe ist doch nicht so relevant, da alles über 24-Bit Echtfarben ist.
Ich hoffe ich habe nicht wieder neue Bugs eingebaut.
Der Download wurde aktualisiert.
Gruß
Manfred |
|
| |
| Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 14.08.2008 ▲ |
|
| |
|
|
Dieter
Zornow | | Welcher Download wurde aktualisiert, Der erste oder einer der folgenden. |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 14.08.2008 ▲ |
|
| |
|
|
Manfred
Barei | Hallo Dieter,
es gibt nur noch eine Zip-Datei
Gruß |
|
| |
| Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 14.08.2008 ▲ |
|
| |
|
|
Thomas
Freier | Hallo Manfred,
wollte deine Bildauswahl, und mache es auch, in meinem Vereinsprogramm einsetzen.
Dieters Vorschlag: die Ladevorgabe sollte "Alle Formate" sein
hast du noch nicht umgesetzt?
Solltest du noch einmal dabei gehen, habe ich noch folgenden Wunsch:
Die Liste ist nicht stimmig bei z.B.: "T. Freier.jpg"
Bilder und Typ müssten anders ermittelt werden. Z.B. mit:
|
|
| |
| |
| |
|
|
Manfred
Barei | Hallo Thomas,
Entschuldige bitte das ich erst so spät Antworte, aber bin zur Zeit Dienstlich in Frankreich.
Werde sobald ich wieder zu Hause bin mich darum kümmern, ich hoffe das hat noch etwas Zeit.
Au revoir et Salutations aus Frankreich von der Atlantikküste
Manfred |
|
| |
| Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 30.10.2010 ▲ |
|
| |
|
|
Thomas
Freier | |
| |
| |
| |
|
|
Manfred
Barei | Hallo Thomas,
habe Deine Änderungswünsche berücksichtigt und die PCU geändert, bitte Testen. (siehe Code Beispiel)
'PCU-Version 0.5
'Copyright by MB-Soft 2008 - 2011
'Autor: Manfred Barei
'für Hilfe bei diesem Projekt möchte ich mich bei folgender/n Person/en bedanken:
'Frank Abbing
'Die PCU ist Freeware und darf uneingeschrängt benuzt werden, jedoch liegen die Rechte bei MB-Soft.
'Bei Verwendung der PCU in eigenen Programmen sollte/n der/die Autoren erwähnt werden!
$U Picturewahl.pcu = Bild_'pcu einbinden
Declare Bildpfad$,Bild&,Pfad$,BildTyp$
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
WINDOWSTYLE 31
windowtitle "Bildauswahl-Test"
WINDOW (%maxx/2 - 640/2),(%maxy/2 - 500/2) - 640,500
CLS
Pfad$ = "C:\"
'BildTyp$ = "Alle"
' oder
BildTyp$ = "*.JPG"' hier können alle Bildendungen angegeben werden die XProfan unterstüzt.
Bildpfad$ = Bild_wahl(Pfad$,BildTyp$)' Aufruf der .pcu
If Bildpfad$ <> ""
Bild& = @Create("hPic",-1,Bildpfad$)
DrawPic Bild&,0,0;0
DeleteObject Bild&
EndIf
waitinput
end
Download wurde aktualisiert.
Gruß Manfred |
|
| |
| Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 09.03.2011 ▲ |
|
| |
|
(274)
Deutsch
English
Français
Español
Italia