| |
| |
|
| - Página 1 - |
|
Manfred
Barei | ¡Hola,
habe una Bildauswahl Diálogo después de gestellt, Picture pcu
Wenn lo uno gebrauchen kann, se ejecuta de XProfan 10.
Hier una corto beispiel Code:
'PCU-Versión 0.5
'Copyright by MB-Soft 2008 - 2011
'Autor: Manfred Barei
'para Ayuda en diesem Projekt möchte Yo mich en folgender/n Person/en bedanken:
'Frank Abbing
'El PCU es Freeware y darf uneingeschrängt benuzt voluntad, sin embargo mentira el Rechte en MB-Soft.
'En Verwendung el PCU en eigenen Programmen debería/n el/el Autores erwähnt voluntad!
$U Picturewahl.pcu = Bild_'pcu einbinden
Declarar 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 puede todos Bildendungen angegeben voluntad el XProfan unterstüzt.
Bildpfad$ = Bild_wahl(Pfad$,BildTyp$)' Aufruf el .pcu
If Bildpfad$ <> ""
Bild& = @Crear("HPIC",-1,Bildpfad$)
DrawPic Bild&,0,0;0
DeleteObject Bild&
EndIf
waitinput
end
Saludo
Manfred |
 | 555 kB | | | Versión: | 1 | | | Kurzbeschreibung: | Bildwahldialog con Prevista | | | Hochgeladen: | 08.08.2008 | | | Ladeanzahl: |  | | | Descargar |
|
| |
| 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 ▲ |
|
| |
|
|
| |
| |
| - Página 2 - |
|
Jörg
Sellmeyer | | Ach sí: Anhänge siempre al Besten en el Initialposting einfügen y hay auch aktualisieren. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 12.08.2008 ▲ |
|
| |
|
| |
| |
| - Página 3 - |
|
|
RGH | Mit folgendem einfachen Script puede ser el korrupten Encabezamiento korrigieren:
Declarar Daten#
Var Programa$ = LoadFile$("Profan-Programa abierto:","*.exe")
If Programa$ > ""
Dim Daten#, FileSize(Programa$)
datei en el Speicher lesen
@BlockRead(Programa$, Daten#, 0, FileSize(Programa$))
Kompilat-Signatur " RGH-PROFAN" suchen
Lo se primero el Vergleichs-String en el Runtime gefunden.
Das führende Leerzeichen es wichtig, como lo sonst mehr Fundstellen son
Var Position1& = MemPos(Daten#, 0, " RGH-PROFAN")
If Position1& = -1
Messagebox("Keine gelinkte XProfan-Exe!", "Fehler:", 16)
End
Más
Jetzt el String en el Kompilat encontrar
Var KompStart& = MemPos(Daten#, Position1& + 1, " RGH-PROFAN")
If KompStart& = -1
Messagebox("Kein Kompilat hinzugelinkt!", "Fehler:", 16)
End
Más
Jetzt haben wir el Adresse y erzeugen primero una
Backup el Originaldatei ...
BlockWrite Programa$+".bak", Daten#, 0, SizeOf(Daten#)
... y conjunto el gefundene Adresse en el Encabezamiento una!
+1 wegen des führenden Leerzeichens
KompStart& = Position1& + KompStart& + 1
Largo Daten#,$80 = KompStart&
BlockWrite Programa$, Daten#, 0, SizeOf(Daten#)
Messagebox("Datei repariert!", "Hinweis:", 64)
EndIf
EndIf
Endif
End
Einfach el fehlerhafte Bildwahl.exe auswählen y fertig! Anschließend kann ellos comenzó voluntad.
Saludo
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 | El PCU funktioniert muy bien, aber me fehlt ni Pfadvorgabemöglichkeit y el Ladevorgabe debería "Alle Formate" ser kein Einzelformat. ¿Por qué hast du eigentlich no todos de Profano unterstützten Bildtypen integriert, debería doch muy ligeramente ser, si el Gerüst es.
Saludo
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 | ¡Hola,
el con el Exe kann Yo simplemente no erklären.  
Posesiones el Archivos todavía una vez en mi Hauptrechner bearbeitet y el Zip-Expediente neu zusammen gestellt.
Der Wunsch de Dieter wurde auch ya para teil con eingearbeitet ( ahora voluntad todos de Profano unterstüzten Formate adecuado ), dass con el Pfadvorgabe kommt en un el nächsten Updats.
So y nun Por favor, Testen, Testen y nochmals Testen y Fehler informe, Gracias.
Desde que ya mehr mals intenta habe el Zip-Expediente neu Hochzuladen dieses aber anscheinen no Funktioniert ha, nun hier todavía una vez en el Anhang.
Saludo
Manfred
PS. Dietmar, nun es auch el Bildwahl.prf con esta fals el Exe otra vez no trabajo debería. |
|
| |
| 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 en Überdeckung oder Verschiebung encima Monitorrand.
Ferner scheint el Farbtiefe Anzeige no ordnungsgmäß a trabajo.
Yo habe por ejemplo gifs con encima 30000 bit.
ciao |
|
| |
| |
| |
|
|
Manfred
Barei | así, hier nun una neue Versión el pcu.
Lo wurde folgende Los cambios vorgenomme:
El Vorschaubilder voluntad ahora scaliert en el Vorschaufenster ausgegeben, el Aufruf el pcu kann ahora con uno Pfadvorgabe tener lugar y el Neuzeichnen wurde hecho
Peter, el con el angabe el Bit y Farbtiefe es doch no así relevant, como alles encima 24-Bit Echtfarben es.
Yo hoffe Yo no otra vez neue Bugs instalado.
Der Descargar wurde aktualisiert.
Saludo
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 Descargar wurde aktualisiert, Der erste oder uno el 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 | ¡Hola Dieter,
lo son sólo ni Zip-Expediente
Saludo |
|
| |
| 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 | ¡Hola Manfred,
quería deine Bildauswahl, y mache lo auch, en mi Vereinsprogramm einsetzen.
Dieters Vorschlag: el Ladevorgabe debería "Alle Formate" ser
hast du todavía no umgesetzt?
Solltest du todavía una vez esta ir, Todavía folgenden Wunsch:
El Liste es no stimmig en z.B.: "T. Freier.jpg"
Bilder y Typ müssten anders ermittelt voluntad. Z.B. con:
|
|
| |
| |
| |
|
|
Manfred
Barei | Hola Tomás,
Entschuldige Por favor, el Yo sólo así spät Antworte, aber bin a Tiempo Dienstlich en Frankreich.
Werde sobald Yo otra vez a Casa bin mich por lo tanto kümmern, Yo hoffe el ha todavía algo Tiempo.
Au revoir et Salutations de Frankreich de el 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 | Hola Tomás,
habe Su Änderungswünsche berücksichtigt y el PCU geändert, Por favor, Testen. (siehe Code Ejemplo)
'PCU-Versión 0.5
'Copyright by MB-Soft 2008 - 2011
'Autor: Manfred Barei
'para Ayuda en diesem Projekt möchte Yo mich en folgender/n Person/en bedanken:
'Frank Abbing
'El PCU es Freeware y darf uneingeschrängt benuzt voluntad, sin embargo mentira el Rechte en MB-Soft.
'En Verwendung el PCU en eigenen Programmen debería/n el/el Autores erwähnt voluntad!
$U Picturewahl.pcu = Bild_'pcu einbinden
Declarar 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 puede todos Bildendungen angegeben voluntad el XProfan unterstüzt.
Bildpfad$ = Bild_wahl(Pfad$,BildTyp$)' Aufruf el .pcu
If Bildpfad$ <> ""
Bild& = @Crear("HPIC",-1,Bildpfad$)
DrawPic Bild&,0,0;0
DeleteObject Bild&
EndIf
waitinput
end
Descargar wurde aktualisiert.
Saludo 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 ▲ |
|
| |
|
(272)
Deutsch
English
Français
Español
Italia