| |
| |
|
 | Bitte testet mal den Code: In das Verzeichnis ein paar Bilder und dann starten. Das Grid auf dem Hauptfenster - Wunderbar ! - aber auf dem Dialog-Fenster: Fehlanzeige ! Wo liegt der Fehler ???
---------------------------------------------------------------------------
Declare Ende%, X%, I%, Feld$, Dlg%
DECLARE win01%,bild_list&,bild&,anzahl%,I%
DECLARE pfad$,text$
Declare 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% = Create(Button,win01%, Ende, 0, 0, 80, 30)
titel$=Alle Bild-File....;0
hGrid& = Create(Grid,win01%, titel$, 10, 50, 200, 200)
WHILENOT GT(I%,anzahl%)
text$=GetString$(bild_list&,I%)
print text$ Text wird erkannt
AddString(hGrid&,text$)
INC I%
WEND
ENDPROC
-----------------------------------------------------
PROC MAIN_FENSTER
Ende% = Create(Button,%HWnd, Ende, 0, 0, 80, 30)
titel$=Alle Bild-File....;0
hGrid& = Create(Grid,%HWnd, titel$, 10, 50, 200, 200)
WHILENOT GT(I%,anzahl%)
text$=GetString$(bild_list&,I%)
AddString(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 das Bild...
LISTE_FUELLEN
MAIN_FENSTER klappt bestens
DIALOG_FENSTER liest die File nicht ein ???
WhileNot @Clicked(Ende%)
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 | Ciao,
ich arbeite dran! Das Problem kann ich bei mir nachvollziehen.
Aber ein wichtiger Hinweis: Seit der neuesten Subscriptionslieferung è das Tabellencontrol GridBox (in Anlehnung an ListBox, ChopiceBox und EditBox). Grid steht jetzt per ein Stringgrid, das nicht angezeigt wird, sondern als temporärer Datenspeicher dient.
Saluto
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 | Hallo Horst,
ich habe es gefunden. Die Funktion MoveListToHandle (früher MoveListToList) arbeitete wohl etwas unsauber, so daß sich die GridBox daran verschluckt hat. In der nächsten Subscriptionsversion wird es gehen. Zwei Tipps noch (gültig ab letzter Subscriptionsversion):
bild_list&=CREATE(LISTBOX,%HWnd,,0,0,0,0)
ersetze durch:
bild_list&=CREATE(LIST, 0)
Es wird eine String-Liste erzeugt, die mit den solito Listbox-Funktionen bearbeitet werden kann.
Sendmessage(bild_list&,$0184,0,0)
ersetze durch:
ClearList bild_list&
ClearList kann nun einen optionalen Parameter haben und löscht dann die entsprechende Listbox, Choicebox, Editbox, Gridbox, List oder Grid.
Saluto
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 mal weiterhin Frohes Schaffen und Danke |
|
| |
| |
| |
|
(929)
Deutsch
English
Français
Español
Italia