Français
Comprend

Bildauswahl Dialog

 
- 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

555 kB
Version:1
Kurzbeschreibung: Bildwahldialog avec Vorschau
Hochgeladen:08.08.2008
Downloadcounter340
Download
 
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,  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.

471 kB
Hochgeladen:14.08.2008
Downloadcounter252
Download
 
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
 
XProfan X3, X4ß, Win 10.1
12.08.2008  
 




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:
nom$=$ Substr(BildPfad$, -1, "\\") ou bien ggf. sans Typ
Typ$=$ Substr(nom$, -1, ".")
 
Gruß Thomas
Windows XP SP2, XProfan X2
20.10.2010  
 




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
Hat Zeit.
 
Gruß Thomas
Windows XP SP2, XProfan X2
30.10.2010  
 




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  
 




répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

38.003 Views

Untitledvor 0 min.
Rainer Hoefs26.06.2023
Normann Strübli24.03.2020
AndreasS10.01.2019
jacdelad20.12.2018
plus...

Themeninformationen



Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie