| |
| |
|
Manfred
Barei | Ciao,
habe eine Bildauswahl Dialog nach gestellt, Picture pcu
Wenn es einer gebrauchen kann, corre ab XProfan 10.
Hier ein kurzer beispiel Code:
'PCU-Version 0.5
'Copyright by MB-Soft 2008 - 2011
'Autor: Manfred Barei
'per Aiuto 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 Autori 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
Saluto
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 ▲ |
|
| |
|
|
Rolf
Koch | Hi kurz geteste, da müde:
Super Idee, bis jetzt kein Problem festgestellt. Kann noch kommen  |
|
| |
| |
| |
|
|
 | Bei mir klappts.
Vielleicht könntest Du per die XPSE-Nutzer auch die .def File der Unit beiliegen.
Das Erzeugen ist denkbar einfach, einfach in den Unitcode oben {$unit} schreiben und die File mit XPSE [...]  aufrufen. Die .def-File wird dann automatisch erzeugt. Warnungen lassen sich zur Not mit {$noerr} unterdrücken. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | |
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 08.08.2008 ▲ |
|
| |
|
|
Manfred
Barei | Hallo iF,
wie gewünscht hier die .def-File
iF, die Dateiendung .def wird aber nicht angenommen.
Ich habe daher die Endung auf .txt gesetzt, nach dem Download bitte wider auf .def ändern.
Saluto |
|
| |
| 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 | | 08.08.2008 ▲ |
|
| |
|
|
Dietmar
Horn | Hallo Manfred,
1. Meiner Meinung nach ist da noch ein gravierender Bug in der PCU: Nach dem Anklicken des Öffnen-Buttons wird der Dateiname falsch zurückgegeben, d.h. vor dem "Vornamen" der Bitmap-File fehlt der abschließende BackSlash am Ende des Ordnernamens. Dadurch kommt es zum Programmabsturz bei Deinem Demo-Code.
Aus "C:VEREINDHOPROFANTOOLSFLASCHEN.BMP" macht Deine PCU "C:VEREINDHOPROFANTOOLSFLASCHEN.BMP"
2. Nach dem Start des Dialoges sollte der Balken-Cursor gleich auf einem Eintrag (z.B. 1. Eintrag) stehen, und das zugehörige Vorschaubild sollte automatisch angezeigt werden, ohne daß man den Eintrag erst mit der Maus anklicken muß.
3. Nach dem Bewegen des Balken-Cursors wird das Vorschaubild nicht aktualisiert - man muß immer erst noch extra mit der Maus auf den Eintrag klicken. Das ist lästig.
Saluto
Dietmar
Getestet unter XProfan 11 auf XP-Home. |
|
| |
| Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]  Windows 95 bis Windows 7 Profan² 6.6 bis XProfan X2 mit XPSE Das große XProfan-Lehrbuch: [...] | 08.08.2008 ▲ |
|
| |
|
|
Frank
Abbing | Ich finde die PCU gar nicht mal so schlecht. Ja, gefällt!
Bei den Fonts bin ich aber nicht sicher, ob du die Standartfonts verwendest? Und bitte --- verwende keinen [...]-Button, sondern einen mit dem entsprechenden Icon darauf.  |
|
| |
| |
| |
|
|
Manfred
Barei | Hallo Dietmar,
zu 1: Fehler wurde behoben, Download wurde aktualisiert
zu 2+3 : wird in einer der nächsten Version geändert.
Saluto
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 | | 08.08.2008 ▲ |
|
| |
|
|
| Vielleicht könntest Du auch auf diesen einzigen Umlaut im Funktionsnamen verzichten.  *duck* |
|
| |
| |
| |
|
|
Manfred
Barei | | jawohl Frank, liegt bei mir schon vor, kommt in der nächsten Version. |
|
| |
| 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 | | 08.08.2008 ▲ |
|
| |
|
|
Manfred
Barei | iF, welchen umlaut meinst Du?
Ich benutze eigentlich keine Umlaute. 
Saluto |
|
| |
| 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 | | 08.08.2008 ▲ |
|
| |
|
|
| Die Def-File beinhaltet die Namen der Prozeduren. Somit weiss ein Syntaxcheck, dass diese Prozeduren nach Einbindung der Unit vorhanden sind z.B. um diese nicht anzumeckern. XPSE und der Inspektor nutzen deshalb diese def-File. In der Def-File steht: XPSE PCU-Exports Fileversion 1
PICTUREWAHL.PCU Exporte (20080808153628)
|
| [+]-WAHL
|
| [+]-BILDVORSCHAU
|
| [+]-VORSCHAU_LOESCHEN
|
| [+]-BILDLISTE_FüLLEN
|
PCUSIZE= 5135 Bytes
BILDLISTE_FüLLEN hat einen Umlaut im Namen, nimm doch einfach ue.  |
|
| |
| |
| |
|
(939)
Deutsch
English
Français
Español
Italia