Ich habe mir mal das Beispiel in der Doku angesehen, aber so richtig kapiere ich das nicht. Das Bild liegt als Datei vor und soll auch immer nur als Datei geladen werden.
Nun habe ich einen Dialog erzeugt, in den ich das Bild stellen möchte. Aber da passiert man gar nichts. Was ist denn außer einem Dialog als Parent, DCBITMAP noch weiter notwendig?
Hier mal mein Konstrukt. Ich denke mal, dass ist nicht korrekt?
Code: Alles auswählen
PROCEDURE routen()
LOCAL cVersion := "15.04.2010"
LOCAL getlist := {}
LOCAL GetOptions
LOCAL nFensterBreite := 500
LOCAL nFensterHoehe := 500
LOCAL oKarte := NIL
LOCAL oDialog := NIL
MEMVAR oHauptDialog
DCBITMAP "..\karte\map1.jpg";
AUTOSCALE;
OBJECT oKarte;
PARENT oDialog
//------------------------------------------------------------------------------
DCGETOPTIONS;
BORDER XBPDLG_SIZEBORDER;
HILITEGETS GRA_CLR_CYAN;
NOMAXBUTTON;
NOMINBUTTON;
PIXEL;
SAYOPTIONS XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT;
TOOLTIPCOLOR GRA_CLR_BLACK, GRA_CLR_YELLOW;
WINDOWWIDTH nFensterBreite;
WINDOWHEIGHT nFensterHoehe
DCREAD GUI;
APPWINDOW oHauptDialog:drawingArea;
EVAL {|| zeigeBild(oKarte,oDialog)};
OPTIONS GetOptions;
PARENT @oDialog;
TITLE "Routen " + cVersion
RETURN
********************************************************************************
FUNCTION zeigeBild(oKarte,oDialog)
DC_BitMapDraw(oDialog,oKarte,.T.)
RETURN(.T.)