| |
| |
|
| - page 1 - |
|
Manfred
Barei | Salut,
habe une Bildauswahl Dialog pour gestellt, Picture pcu
si es einer gebrauchen peux, fonctionne ab XProfan 10.
ici un court beispiel Code:
'PCU-Version 0.5
'Copyright by MB-Soft 2008 - 2011
'Autor: Manfred Barei
'pour Aider chez diesem projet voudrais je mich chez suivant/n personne/en bedanken:
'Frank Abbing
'qui PCU ist Freeware et darf uneingeschrängt benuzt volonté, cependant liegen qui Rechte chez MB-Soft.
'chez Verwendung qui PCU dans eigenen Programmen sollte/n qui/qui Auteurs erwähnt volonté!
$U Picturewahl.pcu = Bild_'pcu einbinden
Déclarer 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"
' ou bien
BildTyp$ = "*.JPG"' ici peut alle Bildendungen angegeben volonté qui XProfan unterstüzt.
Bildpfad$ = Bild_wahl(Pfad$,BildTyp$)' Aufruf qui .pcu
Si Bildpfad$ <> »
Bild& = @Créer(«PCSI»,-1,Bildpfad$)
DrawPic Bild&,0,0;0
DeleteObject Bild&
EndIf
waitinput
end
Salut
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 ▲ |
|
| |
|
|
| |
| |
| - page 2 - |
|
Jörg
Sellmeyer | | ah oui: Anhänge toujours am Besten im Initialposting insérer et là aussi aktualisieren. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 12.08.2008 ▲ |
|
| |
|
| |
| |
| - page 3 - |
|
|
RGH | avec folgendem einfachen Script peux on den korrupten En-tête korrigieren:
Déclarer données#
Var Programme$ = LoadFile$("Profan-Programme ouvrir:","*.exe")
Si Programme$ > »
Faible données#, FileSize(Programme$)
fichier dans den grenier lesen
@BlockRead(Programme$, données#, 0, FileSize(Programme$))
Kompilat-Signatur " RGH-PROFAN" chercher
Es wird zunächst qui Vergleichs-String dans qui Runtime trouvé.
cela führende Leerzeichen ist important, là es sonst plus Fundstellen gibt
Var Position1& = MemPos(données#, 0, " RGH-PROFAN")
Si Position1& = -1
Messagebox("Keine gelinkte XProfan-Exe!", "Fehler:", 16)
Fin
D'autre
maintenant den String im Kompilat trouver
Var KompStart& = MemPos(données#, Position1& + 1, " RGH-PROFAN")
Si KompStart& = -1
Messagebox("Kein Kompilat hinzugelinkt!", "Fehler:", 16)
Fin
D'autre
maintenant avons wir qui Adresse et erzeugen zunächst un
Backup qui Originaldatei ...
BlockWrite Programme$+".bak", données#, 0, SizeOf(données#)
... et mettons qui gefundene Adresse dans den En-tête un!
+1 à cause de des führenden Leerzeichens
KompStart& = Position1& + KompStart& + 1
Long données#,$80 = KompStart&
BlockWrite Programme$, données#, 0, SizeOf(données#)
Messagebox("Datei repariert!", "Hinweis:", 64)
EndIf
EndIf
Endif
Fin
simple qui fehlerhafte Bildwahl.exe auswählen et fertig! Anschließend peux vous gestartet volonté.
Salut
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 | qui PCU funktioniert très bien, mais mir fehlt encore une Pfadvorgabemöglichkeit et qui Ladevorgabe sollte "Alle Formate" son ne...aucune Einzelformat. pourquoi la hâte du eigentlich pas alle de Profan unterstützten Bildtypen integriert, devrait doch très léger son, si cela Gerüst steht.
Salut
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 | Salut,
cela avec qui Exe peux je mir simple pas expliquer.  
Habe qui Fichiers encore einmal sur meinem Hauptrechner bearbeitet et qui Zip-Dossier récente zusammen gestellt.
qui Wunsch de Dieter wurde aussi déjà zum partie avec eingearbeitet ( maintenant volonté alle de Profan unterstüzten Formate angezeigt ), dass avec qui Pfadvorgabe venez dans einem qui prochain Updats.
So et eh bien s'il te plaît Testen, Testen et nochmals Testen et faute annoncer, merci.
là je déjà plus mals versucht habe qui Zip-Dossier récente Hochzuladen cet mais anscheinen pas Funktioniert hat, eh bien ici encore einmal im Anhang.
Salut
Manfred
PS. Dietmar, eh bien ist aussi qui Bildwahl.prf avec dabei fals qui Exe wieder pas marcher 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,
ne...aucune neuzeichnen chez Überdeckung ou bien Verschiebung sur Monitorrand.
Ferner scheint qui Farbtiefe Anzeige pas ordnungsgmäß trop marcher.
j'ai beispielsweise gifs avec sur 30000 bit.
ciao |
|
| |
| |
| |
|
|
Manfred
Barei | so, ici eh bien une neue Version qui pcu.
Es wurde folgende Changements vorgenomme:
qui Vorschaubilder volonté maintenant scaliert im Vorschaufenster ausgegeben, qui Aufruf qui pcu peux maintenant avec einer Pfadvorgabe avoir lieu et cela Neuzeichnen wurde erledigt
Peter, cela avec qui angabe qui Bit et Farbtiefe mais est pas so relevant, là alles sur 24-Bit Echtfarben ist.
je hoffe j'ai pas wieder neue Bugs incorporé.
qui Télécharger wurde aktualisiert.
Salut
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 | | quel Télécharger wurde aktualisiert, qui erste ou bien einer qui 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 | allô Dieter,
il y a seulement encore une Zip-Dossier
Salut |
|
| |
| 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 | allô Manfred,
voulais deine Bildauswahl, et fais es aussi, dans mon Vereinsprogramm einsetzen.
Dieters Vorschlag: qui Ladevorgabe sollte "Alle Formate" son
la hâte du encore pas mise en œuvre?
Solltest du encore einmal dabei aller, habe je encore folgenden Wunsch:
qui liste ist pas stimmig chez z.B.: "T. Freier.jpg"
Bilder et Typ müssten anders ermittelt volonté. Z.B. avec:
|
|
| |
| |
| |
|
|
Manfred
Barei | allô Thomas,
Entschuldige s'il te plaît le moi seulement so spät Antworte, mais suis zur Zeit Dienstlich dans la france.
Werde sobald je wieder trop Hause suis mich tout autor kümmern, je hoffe cela hat et avec ca Zeit.
Au revoir et Salutations aus la france de qui 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 | allô Thomas,
habe Votre Änderungswünsche berücksichtigt et qui PCU geändert, s'il te plaît Testen. (siehe Code Beispiel)
'PCU-Version 0.5
'Copyright by MB-Soft 2008 - 2011
'Autor: Manfred Barei
'pour Aider chez diesem projet voudrais je mich chez suivant/n personne/en bedanken:
'Frank Abbing
'qui PCU ist Freeware et darf uneingeschrängt benuzt volonté, cependant liegen qui Rechte chez MB-Soft.
'chez Verwendung qui PCU dans eigenen Programmen sollte/n qui/qui Auteurs erwähnt volonté!
$U Picturewahl.pcu = Bild_'pcu einbinden
Déclarer 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"
' ou bien
BildTyp$ = "*.JPG"' ici peut alle Bildendungen angegeben volonté qui XProfan unterstüzt.
Bildpfad$ = Bild_wahl(Pfad$,BildTyp$)' Aufruf qui .pcu
Si Bildpfad$ <> »
Bild& = @Créer(«PCSI»,-1,Bildpfad$)
DrawPic Bild&,0,0;0
DeleteObject Bild&
EndIf
waitinput
end
Télécharger wurde aktualisiert.
Salut 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 ▲ |
|
| |
|
(895)
Deutsch
English
Français
Español
Italia