Forum | | | | | 
Hubert
Binnewies | Hello together..
I Have there one Prob with the Fonts...
I have the following Mainwindow:
CompileMarkSeparationWINDOWSTYLE 538
WINDOWTITLE "Hauptfenster"
WINDOW 388,208-278,150
SETTRUECOLOR 1
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",16,0,1,0,0
SETDIALOGFONT 1
TEXT1& = CREATE("TEXT",%HWND,"Hauptfenster",0085,0007,0120,0020)
BUTTON1& = CREATE("BUTTON",%HWND,"Einstellungen",0010,0040,0120,0030)
BUTTON2& = CREATE("BUTTON",%HWND,"Information",0140,0040,0120,0030)
BUTTON3& = CREATE("BUTTON",%HWND,"Start",0010,0080,0080,0030)
BUTTON4& = CREATE("BUTTON",%HWND,"Hilfe",0095,0080,0080,0030)
BUTTON5& = CREATE("BUTTON",%HWND,"Beenden",0180,0080,0080,0030/span>
so have I of course ne nice fette Headline, but the Text on the Buttons is too Big, what unschön is.
now have I attempts whom code so abzuändern:
CompileMarkSeparationWINDOWSTYLE 538
WINDOWTITLE "Hauptfenster"
WINDOW 388,208-278,150
SETTRUECOLOR 1
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",16,0,1,0,0
Fonthandle1%=%Font
USEFONT "MS Sans Serif",13,0,0,0,0
Fonthandle2%=%Font
SETDIALOGFONT 1
TEXT1& = CREATE("TEXT",%HWND,"Hauptfenster",0085,0007,0120,0020)
BUTTON1& = CREATE("BUTTON",%HWND,"Einstellungen",0010,0040,0120,0030)
BUTTON2& = CREATE("BUTTON",%HWND,"Information",0140,0040,0120,0030)
BUTTON3& = CREATE("BUTTON",%HWND,"Start",0010,0080,0080,0030)
BUTTON4& = CREATE("BUTTON",%HWND,"Hilfe",0095,0080,0080,0030)
BUTTON5& = CREATE("BUTTON",%HWND,"Beenden",0180,0080,0080,0030)
sendmessage(Text1&,$0030,Fonthandle1%,0)
sendmessage(BUTTON1&,$0030,Fonthandle2%,0)
sendmessage(BUTTON2&,$0030,Fonthandle2%,0)
sendmessage(BUTTON3&,$0030,Fonthandle2%,0)
sendmessage(BUTTON4&,$0030,Fonthandle2%,0)
sendmessage(BUTTON5&,$0030,Fonthandle2%,0)
the stupid is only:
Mach I inem Child-Window one MultiEdit on becomes The Font Big, and berühre I only with the Cursor The Buttons in the Mainwindow becomes too since the Font again Big.
What do I do wrong???? |
| | | | WinXP Prof, XProfan 9.1 Newbie
Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!" | 05/22/06 ▲ |
| | |
| |
Hubert
Binnewies | Habs already yourself rausbekommen.....
CompileMarkSeparationWINDOWSTYLE 538
WINDOWTITLE "Hauptfenster"
WINDOW 388,208-278,150
SETTRUECOLOR 1
CLS GETSYSCOLOR(15)
hFont1% = @Create("Font","MS Sans Serif",13,0,0,0,0)
SETDIALOGFONT hFont1%
TEXT1& = CREATE("TEXT",%HWND,"Hauptfenster",0085,0007,0120,0020)
hFont% = @Create("Font","MS Sans Serif",16,0,1,0,0)
Sendmessage(Text1&,$0030,hFont%,0)
BUTTON1& = CREATE("BUTTON",%HWND,"Einstellungen",0010,0040,0120,0030)
BUTTON2& = CREATE("BUTTON",%HWND,"Information",0140,0040,0120,0030)
BUTTON3& = CREATE("BUTTON",%HWND,"Start",0010,0080,0080,0030)
BUTTON4& = CREATE("BUTTON",%HWND,"Hilfe",0095,0080,0080,0030)
BUTTON5& = CREATE("BUTTON",%HWND,"Beenden",0180,0080,0080,0030)
|
| | | | WinXP Prof, XProfan 9.1 Newbie
Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!" | 05/22/06 ▲ |
| | |
| |  | | | | | | | |
| |
Hubert
Binnewies | | I knows....Have so did i attempts....but somewhere something wrong made...I had yet always whom same effect...I faith I lass it so...the functions... |
| | | | WinXP Prof, XProfan 9.1 Newbie
Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!" | 05/22/06 ▲ |
| | |
| | 
Frank
Abbing | The sicherste method is well, each Control a Font zuzuweisen, if these different Fonts get should. about so:
CompileMarkSeparationfont& = @Create("Font","MS Sans Serif",13,0,0,0,0)
...
knopf&=@CreateButton(%hwnd,"Knopf",0,0,80,20)
SetFont knopf&,font&
...
DeleteObject |
| | | | | | |
|
AnswerThemeninformationenthis Topic has 3 subscriber: |
(1.232)
Deutsch
English
Français
Español
Italia