XProfan

English

Andre
Hilprecht

Hello together,

Perhaps can me here someone on The Sprünge help.
1. at that started of my finished Exe-Progs appear in the Taskbar > XProfan Runtime 9.0 < i want achieve the in the Taskbar nothing displayed becomes, or at least MEIN Programmname with my Icon. Windowsstyle is 112 and should too so stay.

2. have in Dialogfenstern with Startpaint / Endpaint Images platziert. seldom and unregelmäßig appear The Message: prohibited, between Startpaint and Endpaint no Startpaint allows with Zeilennummer. have but hundertpro any Startpaints with Endpaint completed and No further Startpaints between staid. As I said, The Error Message appear neither always and not always on the equal place.

3. I get simply none others Font on my Buttons, have already everything nachvollzogen I here moreover find could.

would be grateful for Your Help, Greeting André

Ein PC ist die beste Möglichkeit Fehler zu beheben, die ohne PC gar nicht passiert wären. -frei aus Murphy's Computergesetzen

XProfan X2, Win8 Pro 64bit Update von Win7
i5 / 3,2GHz 4 GB RAM
Treibstoff: Radeberger Pils

05/27/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Wodrich

1. Window Title and UseIcon
3. Create(Font,... and SetFont

To 2. need I a Source-statement.

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

05/27/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Andre
Hilprecht

thanks,

1. Klappt already time, machmal helps Yes the Klapps on the back of the head.

To 3. with UseFont and SetFont Have I it already multiple attempts, will not weg

To 2.

StartPaint E%
Loadbmp C:InfoVAT.bmp,0,215,-1
EndPaint

05/27/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Rolf
Koch

Hi
not Usefont and Setfont, separate:
Compile Mark Separation

Def GetSysColor(1) !"USER32","GetSysColor"
SETTRUECOLOR 1
DECLARE ENDE%
DECLARE BUTTON1%
DECLARE BUTTON2%
DECLARE EDIT1%
DECLARE EDIT2%
DECLARE RADIOBUTTON1%
DECLARE CHECKBOX1%
Declare font1&,font2&,font3&
font1&=CreateFont("Times New Roman",23,0,0,0,0)
font2&=CreateFont("Verdana",13,0,1,1,0)
font3&=CreateFont("Arial",14,0,0,1,0)
WINDOWSTYLE 63
WINDOWTITLE "Fontzuweisung"
WINDOW 359,112-219,272
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
BUTTON1% = CREATE("BUTTON",%HWND,"BUTTON1",0025,0020,0170,0030)
BUTTON2% = CREATE("BUTTON",%HWND,"BUTTON2",0026,0062,0070,0030)
EDIT1% = CREATE("EDIT",%HWND,"EDIT1",0027,0103,0110,0022)
EDIT2% = CREATE("EDIT",%HWND,"EDIT2",0028,0132,0110,0022)
RADIOBUTTON1% = CREATE("RADIOBUTTON",%HWND,"RADIOBUTTON1",0030,0163,0120,0030)
CHECKBOX1% = CREATE("CHECKBOX",%HWND,"CHECKBOX1",0029,0195,0120,0030)
Setfont Button1%,font1&
Setfont Edit1%,font2&
Setfont Radiobutton1%,font3&

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF GETFOCUS(BUTTON1%) BUTTON

    ELSEIF GETFOCUS(BUTTON2%) BUTTON

    ELSEIF GETFOCUS(EDIT1%) EDIT

    ELSEIF GETFOCUS(EDIT2%) EDIT

    ELSEIF GETFOCUS(RADIOBUTTON1%) RADIOBUTTON

    ELSEIF GETFOCUS(CHECKBOX1%) CHECKBOX

    ENDIF

WEND

DeleteObject font1&
DeleteObject font2&
DeleteObject font3&

to that others:

have You somewhere the Startpaint and Endpaint within of/ one procedure?
or call You within Startpaint and Endpaint a procedure on?
might Yes his, the such a thing there standing:
Compile Mark Separation

Proc Draw

    Startpaint xxx%
    ....
    Endpaint

Endproc

CLS
blabla
Startpaint xxx%
nochmehrblabla
DRAW  here would in example the Error, because within Startpaint/Endpaint supra The Proc with Startpaint/Enpaint!
Endpaint

05/27/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Wodrich

Style 64 + 16 understand I Yes, but Why too whom 32 ?

I set any! Handles always in LongInt one - sure is sure.

might with the transparency together hang. What exactly attempt Thou there To make - effects evtl. over Memory-Bitmap process and then Show.

Nochmal to the Font-story. For this was CreateFont Yes additional introduced been, damits works.
Bemühe times the Suchfunktion here in the Forum - yesterday or the day before yesterday was to already something rübergetickert.

[box:8748c14704]
Habs wiedergefunden:
[...]

[/box:8748c14704]
Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

05/27/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Andre
Hilprecht

Setdialogfont 1 - the was the sought commands and has me weitergebracht,

D A n k E !

05/27/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Andre
Hilprecht

to that Startpaint / Endpaint :

So I having the so understood, whenever I a Bitmap on one
dialog bring wants, rahme I the commands Loadbmp xyz
with Startpaint and Endpaint one, or reicht it at the beginning of/ one procedure
Startpaint and end then Endpaint To settle.
I call so but no Procedures within Start- Endpaint on,
dazwiswchen back me always only the Loadbmp-commands.

Greeting André

05/27/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Andre
Hilprecht

any Problems are fixed,

1. in the Taskbar becomes now Meinprogrammname.exe with Meinicon displayed

2. I sucker having in a procedure One Endpaint forget, at next Startpaint in the program then The Error Message and therefore always on different to put, always there where the next Startpaint comes. there was but no Error to find, separate the Error stirred from the forgotten Endpaint before.

3. my Prog has now after I Setdialogfont 1 know a complete others Schift.

thanks all, The me on The Sprünge helped having.
Greeting André