Warum wird der Text ganz weit rechts und zum Teil außerhalb des Bereichs angezeigt? Ich verstehe es nicht.
Code: Alles auswählen
#include "appevent.ch"
#include "dcbitmap.ch"
#include "dcdialog.ch"
#include "xbp.ch"
********************************************************************************
PROCEDURE routen()
LOCAL cVersion := "16.04.2010"
LOCAL getlist := {}
LOCAL GetOptions
LOCAL nFensterBreite := 600
LOCAL nFensterHoehe := 600
LOCAL nStatusbarHoehe := 30
LOCAL oDialog := NIL
LOCAL oHintergrund := NIL
LOCAL oKarte := NIL
// LOCAL oKoordinaten := NIL
LOCAL oStatusBar := NIL
MEMVAR oHauptDialog
nFensterBreite := oHauptDialog:clientSize[1]
nFensterHoehe := oHauptDialog:clientSize[2]
@ 30,1 DCSTATIC;
OBJECT oHintergrund;
SIZE DCGUI_PARENTWIDTH,DCGUI_PARENTHEIGHT-nStatusbarHoehe
DCSTATUSBAR oStatusBar;
ALIGN DCGUI_ALIGN_BOTTOM;
HEIGHT nStatusbarHoehe
@ 3,0 DCSAY "Test";
OBJECT oText;
PARENT oStatusBar;
SIZE 300,20
DCBITMAP "..\karten\map1.jpg";
AUTOSCALE;
OBJECT oKarte;
PARENT oHintergrund
//------------------------------------------------------------------------------
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,oHintergrund),oHintergrund:setPointer(,XBPSTATIC_SYSICON_MOVE,XBPWINDOW_POINTERTYPE_SYSPOINTER)};
OPTIONS GetOptions;
PARENT @oDialog;
TITLE "Routen " + cVersion
RETURN
********************************************************************************
FUNCTION zeigeBild(oKarte,oHintergrund)
DC_BitMapDraw(oHintergrund,oKarte,.T.)
RETURN(.T.)