| |
| |
|
 | s'il te plaît testet la fois den Code: dans cela Verzeichnis un paire Bilder et ensuite starten. cela Grid sur dem Hauptfenster - Wunderbar ! - mais sur dem Dialog-la fenêtre: Fehlanzeige ! wohin liegt qui faute ???
---------------------------------------------------------------------------
Déclarer Ende%, X%, I%, champ$, Dlg%
DECLARE win01%,bild_list&,bild&,anzahl%,I%
DECLARE pfad$,text$
Déclarer hGrid&, Titel$
pfad$=GETDIR$(@)
I%=0
PROC LISTE_FUELLEN
bild_list&=CREATE(LISTBOX,%HWnd,,0,0,0,0)
CLEARLIST
SendMessage(bild_list&,$0184,0,0)
ADDFILES *.jpg
ADDFILES *.bmp
ADDFILES *.gif
MOVELISTTOLIST(bild_list&)
anzahl%=GETCOUNT(bild_list&)
ENDPROC
------------------------------------------------------
PROC DIALOG_FENSTER
win01%=CREATE(DIALOG,%HWnd,,10,50,230,300)
Ende% = Créer(Button,win01%, Ende, 0, 0, 80, 30)
titel$=Alle Bild-Fichiers....;0
hGrid& = Créer(Grid,win01%, titel$, 10, 50, 200, 200)
WHILENOT GT(I%,anzahl%)
text$=GetString$(bild_list&,I%)
imprimer text$ Text wird erkannt
AddStrings(hGrid&,text$)
INC I%
WEND
ENDPROC
-----------------------------------------------------
PROC MAIN_FENSTER
Ende% = Créer(Button,%HWnd, Ende, 0, 0, 80, 30)
titel$=Alle Bild-Fichiers....;0
hGrid& = Créer(Grid,%HWnd, titel$, 10, 50, 200, 200)
WHILENOT GT(I%,anzahl%)
text$=GetString$(bild_list&,I%)
AddStrings(hGrid&,text$)
INC I%
WEND
ENDPROC
#####################################################
SetDialogFont 1
WINDOW 0,0-%MaxX,%MaxY
CHDIR pfad$
UseFont ARIAL,16,6,0,0,0
DrawText 90,5,Mausklick zeigt cela Bild...
LISTE_FUELLEN
MAIN_FENSTER klappt bestens
DIALOG_FENSTER liest qui Fichiers pas un ???
WhileNot @Clicked(Ende%)
WaitInput
WhileLoop 0, GetCount(hGrid&)
X% = & Loop
Si GetState(hGrid&, X%) > 0
text$=GetString$(hGrid&, X%)
bild&=Create(hPic,-1,text$)
DrawSizedPic bild&, 250,10- 200,250; 0
DeleteObject bild&
EndIf
Endwhile
Endwhile
FIN |
|
| |
| |
| |
|
|
RGH | Salut,
je travaille tour! cela Problem peux je chez mir nachvollziehen.
mais un wichtiger Hinweis: depuis qui neuesten Subscriptionslieferung est cela Tabellencontrol GridBox (dans Anlehnung à ListBox, ChopiceBox et EditBox). Grid steht maintenant pour un Stringgrid, cela pas angezeigt wird, mais comme temporärer Datenspeicher dient.
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 | 26.04.2006 ▲ |
|
| |
|
|
| DAnke ! Roland  |
|
| |
| |
| |
|
|
RGH | allô Horst,
j'ai es trouvé. qui Funktion MoveListToHandle (früher MoveListToList) arbeitete wohl quelque chose unsauber, si bien que sich qui GridBox daran verschluckt hat. dans qui prochain Subscriptionsversion wird es aller. deux Tipps encore (gültig ab dernier Subscriptionsversion):
bild_list&=CREATE(LISTBOX,%HWnd,,0,0,0,0)
ersetze par:
bild_list&=CREATE(LIST, 0)
Es wird une String-liste erzeugt, qui avec den habituel Listbox-Funktionen bearbeitet volonté peux.
SendMessage(bild_list&,$0184,0,0)
ersetze par:
ClearList bild_list&
ClearList peux eh bien une optionalen paramètre avons et löscht ensuite qui entsprechende Listbox, Choicebox, Editbox, Gridbox, List ou bien Grid.
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 | 26.04.2006 ▲ |
|
| |
|
|
| | ensuite la fois weiterhin Heureux créer et merci |
|
| |
| |
| |
|
(721)
Deutsch
English
Français
Español
Italia