| |
| |
|
Manfred
Barei | Hi,
have a Bildauswahl dialog to set, Picture pcu
If it of/ one use can, runs ex XProfan 10.
here one kurzer example code:
'PCU-Version 0.5
'copyright by MB-Soft 2008 - 2011
'Author: Manfred Barei
'for Help this proposition would like I with following/n person/en thank:
'Frank Abbing
'The PCU is Freeware and may uneingeschrängt benuzt go, however lying The rights with MB-Soft.
'with Using the PCU in own Programs ought to/n the/The Authors erwähnt go!
$u Picturewahl.pcu = Bild_'pcu integrate
Declare Bildpfad$,Bild&,way$,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"
' or
BildTyp$ = "*.JPG"' here can any Bildendungen indicated go The XProfan unterstüzt.
Bildpfad$ = Bild_wahl(way$,BildTyp$)' Calling the .pcu
If Bildpfad$ <> ""
Bild& = @Create("HPIC",-1,Bildpfad$)
DrawPic Bild&,0,0;0
DeleteObject Bild&
EndIf
waitinput
end
Greeting
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/07/08 ▲ |
|
| |
|
|
Rolf
Koch | Hi short geteste, there tired:
super idea, yet no trouble fixes. can yet come  |
|
| |
| |
| |
|
|
 | by me works.
Perhaps could You for XPSE-User too The .def File the Unit beiliegen.
the produce is imaginable simply, simply into Unitcode supra {$unit} write and the File with XPSE [...]  Call. The .def-File then automatically created. Warnungen can to hardship with {$noerr} suppress. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | functions free from problems. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 08/08/08 ▲ |
|
| |
|
|
Manfred
Barei | Hello iF,
How desired here The .def-File
iF, The File extension .def becomes but not adopted.
I have therefore The Endung on .txt staid, to the Download Please against on .def Change.
Greeting |
|
| |
| 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/08 ▲ |
|
| |
|
|
Dietmar
Horn | Hello Manfred,
1. of my opinion to is there another gravierender Bug in the PCU: After the Anklicken the Open-Buttons becomes the Dateiname wrong zurückgegeben, d.h. to the "Vornamen" the Bitmap-File missing the abschließende BackSlash end the Ordnernamens. therefore comes it to that Crash at Your demonstration-code.
from "C:VEREINDHOPROFANTOOLSFLASCHEN.BMP" power your PCU "C:VEREINDHOPROFANTOOLSFLASCHEN.BMP"
2. After the Start the Dialoges ought to the beam-Cursor same on one entry (z.B. 1. entry) stand, and the zugehörige Vorschaubild ought to automatically showing, without that one whom entry first with the mouse You can must.
3. After the moving the beam-Cursors becomes the Vorschaubild not updated - one must always first yet extra with the mouse on the entry clicking. this is onerous.
Greeting
Dietmar
Getestet under XProfan 11 on 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/08 ▲ |
|
| |
|
|
Frank
Abbing | I find The PCU none time so badly. Yes, gefällt!
with whom Fonts be I but not sure, whether You The Standartfonts verwendest? and Please --- use none [...]-Button, separate a with the suitable Icon hereon.  |
|
| |
| |
| |
|
|
Manfred
Barei | Hello Dietmar,
To 1: Error watts fixed, Download watts updated
To 2+3 : becomes in a the next Version changed.
Greeting
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/08 ▲ |
|
| |
|
|
| Perhaps could You on this only Umlaut in the Funktionsnamen dispense.  *duck* |
|
| |
| |
| |
|
|
Manfred
Barei | | jawohl Frank, lying by me already to, comes in the next 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/08 ▲ |
|
| |
|
|
Manfred
Barei | iF, whom umlaut mean You?
I use really no Umlaute. 
Greeting |
|
| |
| 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/08 ▲ |
|
| |
|
|
| The Def-File contain The names the Procedures. accordingly knows one Syntaxcheck, that these Procedures to Integration the Unit present are z.B. circa these not anzumeckern. XPSE and the inspector benefit therefore these def-File. in the Def-File standing: XPSE PCU-Exports Fileversion 1
PICTUREWAHL.PCU Exporte (20080808153628)
|
| [+]-WAHL
|
| [+]-BILDVORSCHAU
|
| [+]-VORSCHAU_LOESCHEN
|
| [+]-BILDLISTE_FüLLEN
|
PCUSIZE= 5135 Bytes
BILDLISTE_FüLLEN has a Umlaut in the names, nimm still simply ue.  |
|
| |
| |
| |
|
(941)
Deutsch
English
Français
Español
Italia