ich habe eine Eingabemaske, die 12 Zeilen umfasst. 12x Bezeichnung, 12x SLE, 12X Button, und dann wieder 12x SLE. das habe ich jetzt im Moment alles einzeln geschrieben. Ergibt ne Menge Code. Jetzt dachte ich mir, dass könnte ich auch in eine For Next Schleife packen. Das scheint aber nicht zu klappen.
Code: Alles auswählen
FOR nI := 1 TO nBilderMenge
cNI := Alltrim(Str(nI))
@ oDialogZusatz:nOben,oDialogZusatz:nLinks DCSAY "Bild " + Right(" " + cNI,2) + ":";
OBJECT oDialogZusatz:oText;
PARENT oDialogZusatz:oRahmenBilder;
SIZE oDialogZusatz:nSayBreite,oDialogZusatz:nSayHoehe
@ DCGUI_ROW,DCGUI_COL DCGET oSR:bild_&cNI;
EVAL {|o| o:usevisualstyle := oSysPara:oWsPara:VisualStyl,;
oSR:addEditControl(o,.F.);
};
GETPRESENTATION {{ XBP_PP_DISABLED_FGCLR, GRA_CLR_BLACK }};
MESSAGE "Name des Bildes" INTO oDialogZusatz:oMessageBox;
OBJECT oSR:oBild_&CNI;
PARENT oDialogZusatz:oRahmenBilder;
SIZE nBildTextLaenge,oDialogZusatz:nSayHoehe;
TABSTOP
@ DCGUI_ROW,DCGUI_COL + 5 DCPUSHBUTTON;
ACTION {|| oSR:bild_&cNI := bildersuchen(oDialog),;
oSR:oBild_&cNI:setData();
};
CAPTION BITMAP_FIND_M;
EVAL {|o| AAdd(oDialogZusatz:aPbBilderSuchen,{o,.T.}) };
OBJECT oDialogZusatz:oPbSuchen;
PARENT oDialogZusatz:oRahmenBilder;
SIZE 20,oDialogZusatz:nSayHoehe;
TOOLTIP "Öffnet ein Browsefenster für die Suche nach Bildern"
oDialogZusatz:nOben += oDialogZusatz:nAbstand
NEXT