XProfan

English

thb

Hi,
i want gladly a Eingabemaske out a pressure started (Datenbankanwendung). After the expression to the users further Inputs in the mask make can.
first I had Problems with the second Page one mehrseitigen Ausdruckes, here has me Forum weitergeholfen, I must whom commands Usefont using. expression works now.
Aaaaber: my dialog (the Yes in the background wait) becomes suddenly not any more with the Systemfont (?) displayed, to that part changed itself the dialog immediate or. The Veränderung begins in the momentum, where I with the mouse over the element drive. not only, that it ugly looks, the Systemfont is too breiter, so that the Text to that part not any more To reading is.
I have the trouble time of my Program and the data base resolved, so that it a überschaubaren View source gives:

Compile Mark Separation

DECLARE DLG&, DIALOGENDE%,TEXT1&,EDIT1&,BUTTON1&
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"

PROC DIALOG

    DLG&=CREATE("DIALOG",%HWND,"Neues Fenster",22,20,281,182)
    USEFONT "MS Sans Serif",13,0,0,0,0
    SETDIALOGFONT 1
    TEXT1& =@CREATE("TEXT",DLG&,"Irgendein Text",0023,0022,0070,0020)
    EDIT1& =@CREATE("EDIT",DLG&,"Irgendwas",0115,0021,0120,0020)
    BUTTON1& =@CREATE("BUTTON",DLG&,"Testdruck",0026,0082,0208,0030)
    SETFOCUS(DLG&)
    DIALOGENDE%=0

    WHILENOT DIALOGENDE%

        WAITINPUT

        If %KEY=2

            DIALOGENDE%= 1

        ELSEIF CLICKED(EDIT1&)'EDIT

        ELSEIF CLICKED(BUTTON1&)'BUTTON

            UseFont "Arial",0,0,0,0,0'pressure in Arial without Textauszeichnung
            StartPrint "*Testausdruck"

            If %Printing

                MoveTo 34, 34
                LineTo 34 + 343, 34
                LineTo 34 + 343, 34 + 343
                LineTo 34, 34 + 343
                LineTo 34, 34
                EndPrint

            EndIf

        ENDIF

    ENDWHILE

    DESTROYWINDOW(DLG&)

ENDPROC

SET("AUTOPAINT",2)
'the following Mainwindow is only to that testing:
WINDOWTITLE "DUMMY HAUPTFENSTER"
WINDOWSTYLE 63
WINDOW (%maxx-300),10-280,80
CLS RGB(0,0,0)
Color 10,0
PRINT "Bitte aufs Systemmenükreuz clicking "
DIALOG'dialog Call!

If I now whom Button click, becomes the Button in a others type displayed. The effect exit on, if I whom pressure abbreche. shift I the windows-own dialog "Druckereinrichtung", then go any items in my Window in the Systemfont displayed (and z.B. the Text isn't More entire To reading).
gives it a Possibility, this behaviour To unterbinden? Perhaps too without, any items in the Window new to create?
Thomas

XProfan X2

04/17/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

Hi,

in such Make ought to one not USEFONT using, around the Font one Fensters or Dialoges To settle. The commands is only meaningfully, if one for all Window and the pressure whom same Font benefit would like. I use USEFONT only yet for Druckausgabe and the Output the Window with DrawText.

around the Font for a Window/dialog/Dialogelement aimed To settle, use @CREATE("FONT",....), for a Font-lever To produce and SETFONT, circa this lever aimed a window etc. zuzuweisen or. SETDIALOGFONT with the lever as Parameter, circa it all further Dialogen or. Dialogelementen zuzuweisen.

observe:
1. USEFONT only for Druckausgabe or Output the Window with DrawText use!
2. SETDIALOGFONT only with a Fonthandle using, and never with 1.

Greeting
Roland

XProfan X2
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/17/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote