| |
| |
|
 | Bitte testet veces el Code: In el Directorio unos pocos Bilder y luego starten. Das Grid en el Ventana principal - Wunderbar ! - aber en el Diálogo-Ventana: Fehlanzeige ! Wo liegt el Fehler ???
---------------------------------------------------------------------------
Declarar Ende%, X%, I%, Feld$, Dlg%
DECLARE win01%,bild_list&,bild&,anzahl%,I%
DECLARE pfad$,texto$
Declarar 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% = Crear(Button,win01%, Ende, 0, 0, 80, 30)
titel$=Alle Bild-Archivos....;0
hGrid& = Crear(Grid,win01%, titel$, 10, 50, 200, 200)
WHILENOT GT(I%,anzahl%)
texto$=GetString$(bild_list&,I%)
imprimir texto$ Texto se erkannt
AddStrings(hGrid&,texto$)
INC I%
WEND
ENDPROC
-----------------------------------------------------
PROC MAIN_FENSTER
Ende% = Crear(Button,%HWnd, Ende, 0, 0, 80, 30)
titel$=Alle Bild-Archivos....;0
hGrid& = Crear(Grid,%HWnd, titel$, 10, 50, 200, 200)
WHILENOT GT(I%,anzahl%)
texto$=GetString$(bild_list&,I%)
AddStrings(hGrid&,texto$)
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 el Bild...
LISTE_FUELLEN
MAIN_FENSTER klappt bestens
DIALOG_FENSTER liest el Archivos no una ???
Sinestar encargado @Clicked(Ende%)
WaitInput
WhileLoop 0, GetCount(hGrid&)
X% = &Loop
If GetState(hGrid&, X%) > 0
texto$=GetString$(hGrid&, X%)
bild&=Create(hPic,-1,texto$)
DrawSizedPic bild&, 250,10- 200,250; 0
DeleteObject bild&
EndIf
EndWhile
EndWhile
FIN |
|
| |
| |
| |
|
|
RGH | ¡Hola,
Yo arbeite dran! Das Problema kann Yo en me nachvollziehen.
Aber una wichtiger Referencia: Seit el neuesten Subscriptionslieferung heißt el Tabellencontrol GridBox (en Anlehnung a ListBox, ChopiceBox y EditBox). Grid es ahora para una Stringgrid, el no adecuado se, pero como temporärer Datenspeicher dient.
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 | 26.04.2006 ▲ |
|
| |
|
|
| DAnke ! Roland  |
|
| |
| |
| |
|
|
RGH | ¡Hola Horst,
Yo lo gefunden. El Función MoveListToHandle (früher MoveListToList) arbeitete wohl algo unsauber, así daß el GridBox daran verschluckt ha. In el nächsten Subscriptionsversion se lo ir. Zwei Tipps todavía (gültig de letzter Subscriptionsversion):
bild_list&=CREATE(LISTBOX,%HWnd,,0,0,0,0)
ersetze por:
bild_list&=CREATE(LIST, 0)
Lo se una String-Liste producido, el con el üblichen Listbox-Características bearbeitet voluntad kann.
SendMessage(bild_list&,$0184,0,0)
ersetze por:
ClearList bild_list&
ClearList kann nun una optionalen Parámetro haben y löscht entonces el entsprechende Listbox, Choicebox, Editbox, Gridbox, List oder Grid.
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 | 26.04.2006 ▲ |
|
| |
|
|
| | Dann veces weiterhin Feliz Schaffen y Gracias |
|
| |
| |
| |
|
(929)
Deutsch
English
Français
Español
Italia