| |
| |
|
 | Please testing time whom code: into directory a couple Images and then started. the Grid on the Mainwindow - wonderful ! - but on the dialog-Window: Fehlanzeige ! where lying the Error ???
---------------------------------------------------------------------------
Declare end%, X%, I%, area$, Dlg%
DECLARE win01%,bild_list&,bild&,number%,I%
DECLARE way$,Text$
Declare hGrid&, cover$
way$=GETDIR$(@)
I%=0
PROC LISTE_FUELLEN
bild_list&=CREATE(LISTBOX,%HWnd,,0,0,0,0)
CLEARLIST
Sendmessage(bild_list&,$0184,0,0)
ADDFILE *.jpg
ADDFILE *.bmp
ADDFILE *.gif
MOVELISTTOLIST(bild_list&)
number%=GETCOUNT(bild_list&)
ENDPROC
------------------------------------------------------
PROC DIALOG_FENSTER
win01%=CREATE(DIALOG,%HWnd,,10,50,230,300)
end% = Create(Button,win01%, end, 0, 0, 80, 30)
cover$=Alle Image-Files....;0
hGrid& = Create(Grid,win01%, cover$, 10, 50, 200, 200)
WHILENOT GT(I%,number%)
Text$=GetString$(bild_list&,I%)
print Text$ Text becomes recognized
AddStrings(hGrid&,Text$)
INC I%
WEND
ENDPROC
-----------------------------------------------------
PROC MAIN_FENSTER
end% = Create(Button,%HWnd, end, 0, 0, 80, 30)
cover$=Alle Image-Files....;0
hGrid& = Create(Grid,%HWnd, cover$, 10, 50, 200, 200)
WHILENOT GT(I%,number%)
Text$=GetString$(bild_list&,I%)
AddStrings(hGrid&,Text$)
INC I%
WEND
ENDPROC
#####################################################
SetDialogFont 1
WINDOW 0,0-%MaxX,%MaxY
CHDIR way$
UseFont ARIAL,16,6,0,0,0
DrawText 90,5,Click shows the image...
LISTE_FUELLEN
MAIN_FENSTER works fine
DIALOG_FENSTER reads The Files not one ???
WhileNot @Clicked(end%)
WaitInput
WhileLoop 0, GetCount(hGrid&)
X% = & Loop
If 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
END |
|
| |
| |
| |
|
|
RGH | Hi,
I work dran! The problem can I by me understand.
but one importent Info: since the latest Subscriptionslieferung is the Tabellencontrol GridBOX (in Anlehnung on ListBox, ChopiceBox and EditBox). Grid standing now for a Stringgrid, not displayed becomes, separate as temporärer Datenspeicher serves.
Greeting
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 | 04/26/06 ▲ |
|
| |
|
|
| DAnke ! Roland  |
|
| |
| |
| |
|
|
RGH | Hello Horst,
I have it found. The function MoveListToHandle (former MoveListToList) worked well something messy, so that the GridBOX on it verschluckt has. in the next Subscriptionsversion becomes it weg. two Tipps yet (validly ex last Subscriptionsversion):
bild_list&=CREATE(LISTBOX,%HWnd,,0,0,0,0)
supplant through:
bild_list&=CREATE(LIST, 0)
it'll a String-list created, The with the usual Listbox-functions machine go can.
Sendmessage(bild_list&,$0184,0,0)
supplant through:
ClearList bild_list&
ClearList can now a optionalen Parameter and have deletes then The suitable Listbox, Choicebox, Editbox, GridBOX, List or Grid.
Greeting
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 | 04/26/06 ▲ |
|
| |
|
|
| | then time furthermore Happy create and thanks |
|
| |
| |
| |
|
(1.109)
Deutsch
English
Français
Español
Italia