| |
| |
|
RudiB. | 
Hello together,
knows someone these experience....??
have under XProfan 11.2 under Win10 (dissolution 1366x768) one Program written as .exe prepares and runs. now have I this program (.exe) on one computer under Win7 Enterprise with höherer dissolution (1980x1080) run. in the Program solid values for Window (1024x768) and solid values for items.
and see there, I have Express Darstellungs-Problems,
have two Screenshots angefügt...finds The Error...(hahaha)...No earnestly.
z.B with whom Check-boxing...abgeschnittener Text.
Why ????.... versteh I do not ...one operates still with wide in Pixeln for each element and so ought to the too properly on one strangers computer so displayed go..... |
|
| |
| Xprofan X4
Rudolf Beske / München
Hardware: NB Intel I9 - 16GByte RAM | 02/03/20 ▲ |
|
| |
|
|
RudiB. | oh....wait...now Have I it the first times correctly seen.
its a problem with the Zeichensatz / statement....but nevertheless Why?? |
|
| |
| |
| |
|
|
Georg
Teles | Nabend,
with the wide the Pixel has it little zutun, them give Yes only The Dimensionen the Field the Checkbox / the RadioButtons / the Buttons on.
can't very say, Why it with you lying, there should one in your code reinschauen. I suspect, that it with the Umrechnung of Schriftmodus to that Grafikmodus To such one Result comes. If one not very The values of/ one type definiert, becomes it on unterschiedlichen Systemen different umgerechnet.
circa the from the lane to go, definiere I in my Programs very, which Font and which stature using go should:
Hierbei becomes each element, what thereafter created becomes, with this type slip - in each windows see it then same from.
the should your trouble solve. alternatively there yet Create("Font, if You for defined items only defined Fonts use want - then müsstest You but each element with SetFont The Font allocate.
Regards |
|
| |
| |
| |
|
|
RGH | How Georg correctly. fixes has: so it everywhere fit, with SetDialogFont too this festzurren. otherwise dial windows whom standard-Font from, whom eachone User differently tuned may have. If there someone z.B. with the Representation of the Font instead of 100% about 125% or quite 150% indicated has, it fits naturally not any more.
Greeting
Roland |
|
| |
| XProfan X4Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 02/04/20 ▲ |
|
| |
|
|
RudiB. | thanks for Your Answer.
have I so already staid, however SetDialogFont 1 only once at the beginning the program.
will be time each time behind UseFont one SetDialogFont 1 settle, time look whether the what bring. |
|
| |
| |
| |
|
|
Georg
Teles | it will do fundamentally only 1 time this at the beginning the program To write, any Fensterobjekte having then these type.
If you naturally several Fonts verwendest, then power it sense each to whom Fensterobjekten another type To define.  |
|
| |
| |
| |
|
|
RudiB. | trouble resolved,
it was just The statement (in the strangers system) the type in the system on 125% tuned.
Vielen Thanks |
|
| |
| |
| |
|
|
RudiB. | Have one small trouble where I do not More moreover come.
After one CLS vanish two dialog-items (Edit-area + 1 Button"save") if one with the mouse drüberfährt, then attend tappt im dunkeln again.
After the next CLS are you again lane...
but even only The two....I versteh The world not any more....
what runs there schief, whom Error see I do not....
$P+
SET("ERRORLEVEL",0)
$H LIB\windows.ph
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
Declare DE&,Text&,Vokabel$
WINDOWSTYLE 15'512
Window Title " Test"
WINDOW (%maxx/2 - 1024/2),(%maxy/2 - 768/2) - 1024,768
CLS GETSYSCOLOR(15)
SETDIALOGFONT 1
Lerne_mit_Bildern
Waitinput
End
Proc Lerne_mit_Bildern
DE&=@Create("Dialog",%Hwnd,"Lerne with Bildern",(%maxx/2 - 1024/2),(%maxy/2 - 768/2) , 1024,768)
Declare hB%, hC%,OK%,Liste_Bilder%,row$,File$,E_dit%
hB% = @Create("Button",DE&,"Close",710,690,170,25)
E_dit%=Create("Edit",DE&,"",210,690,150,25)
hC%=create("Button",DE&,"suche",370,690,70,25)
Liste_Bilder% = CREATE("SORTEDLISTBOX",DE&,"",0820,0130,0170,0450)
Text&=Create("Text",DE&,"Themen-Liste", 850,110,130,16)
assign #1,"System\Dateinamen_Bilder.txt"
reset #1
whileloop 25
input #1,row$
addstring(Liste_Bilder%,row$)
EndWhile
Close #1
'Titelschrift
vokabel$="Lerne with Bildern"
StartPaint DE&
UseFont "Verdana",100,30,1,0,0
Text Color RGB(131,139,131),-1
DrawText 34,134,Vokabel$
UseFont "Verdana",100,30,1,0,0
Text Color RGB(255,105,180),-1
DrawText 30,130,Vokabel$
EndPaint DE&
vokabel$="suche one Topic aus"
StartPaint DE&
UseFont "Verdana",100,30,1,0,0
Text Color RGB(131,139,131),-1
DrawText 34,284,Vokabel$
UseFont "Verdana",100,30,1,0,0
Text Color RGB(255,105,180),-1
DrawText 30,280,Vokabel$
EndPaint DE&
Text&=Create("Text",DE&,"Themen-Liste", 850,110,130,16)
Clear OK%
WhileNot OK%
Waitinput
StartPaint DE&
CLS GETSYSCOLOR(15)
EndPaint DE&
If @Clicked(hB%)'OK watts klicked
OK% = 1
EndIf
If Getfocus(Liste_Bilder%)
Setfocus(DE&)
Vokabel$=Getstring$((Liste_Bilder%),GetCurSel(Liste_Bilder%))
StartPaint DE&
'Titelschrift
UseFont "Verdana",100,30,1,0,0
Text Color RGB(131,139,131),-1
DrawText 34,134,Vokabel$
UseFont "Verdana",100,30,1,0,0
Text Color RGB(255,105,180),-1
DrawText 30,130,Vokabel$
EndPaint DE&
Vokabel$=translate $(vokabel$," ","_")
File$="Pictures\"+vokabel$+".bmp"
StartPaint DE&
loadbmp File$,20,250;0
EndPaint DE&
Text&=Create("Text",DE&,"Themen-Liste", 850,110,130,16)
EndIf
If clicked(hC%)
File$="Vokabel_Info\"+gettext$(E_dit%)+".txt"
If fileexists(File$)
print "gefunden"
EndIf
EndIf
EndWhile
@DestroyWindow(DE&)
ENDPROC
|
|
| |
| |
| |
|
|
p.specht
 | far of it removes, there durchzublicken - from the help of XP-11.2a: at that draw in DialogBoxen and DialogFenstern is To mind, that these Zeichnungen not automatically renewed go, if The Dialogbox z.B. through one other Window covers watts.
apparently counts the too inverse. Workaround: i'd try, in the Programmfluss to the "Fehlerereignis" with ShowWindow(lever%, mode) The suitable Controls again visible To make (so hab´ I me to hm-zig years time beholfen). or I stand straight again powerful on the Hose - then sorry. |
|
| |
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 02/29/20 ▲ |
|
| |
|
|
RudiB. | thanks for your response. helps unfortunately neither... what too yet comic is, the once I then try whom Focus on one this "verschwundenen" z.B into Edit click, then becomes the complete Dialod-Window "gelöscht".
any items are yet there and to put itself again mouse drüberfahren and klick since. but alike...I use now simply no CLS separate lay simply a with the Backgroundcolor filled Bitmap drüber (over the area ausserhalb the dialog-items). not straight genial, but it works, The items stay now. |
|
| |
| |
| |
|
|
p.specht
| Bravo! sometimes lead the kürzeste lane to that success even by the Gruselkabinett  |
|
| |
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 02/29/20 ▲ |
|
| |
|
(850)
Deutsch
English
Français
Español
Italia
