| |
| |
|
RudiB. | 
allô zusammen,
kennt quelqu'un cet Erfahrung....??
Habe sous XProfan 11.2 sous Win10 (Auflösung 1366x768) un Programme geschrieben comme .exe erstellt et fonctionne. eh bien habe je cet Programme (.exe) sur einem calculateur sous Win7 Enterprise avec höherer Auflösung (1980x1080) courir laisser. Im Programme feste Werte pour la fenêtre (1024x768) et feste Werte pour qui Elemente.
et siehe là, j'ai massive Darstellungs-Probleme,
Habe deux Screenshots angefügt...findet qui faute...(hahaha)...non ernsthaft.
z.B chez den Check-Boxen...abgeschnittener Text.
Pourquoi ????.... versteh je pas ...on arbeitet doch avec Breite dans Pixeln pour chaque Element et so sollte cela aussi entsprechend sur einem fremden calculateur so dargestellt volonté..... |
|
| |
| Xprofan X4
Rudolf Beske / München
Hardware: NB Intel I9 - 16GByte RAM | 03.02.2020 ▲ |
|
| |
|
|
RudiB. | eh....wartet...maintenant hab je es cela erste la fois richtig gesehen.
c'est un Problem avec dem Zeichensatz / représentation....mais quand même pourquoi?? |
|
| |
| |
| |
|
|
Georg
Teles | Nabend,
avec qui Breite qui Pixel hat es wenig zutun, vous gibt oui seulement qui Dimensionen des Feldes qui Checkbox / des RadioButtons / des Buttons à.
peux pas oui c'est ca dire, woran es chez dir liegt, là devrait on dans deinen Code reinschauen. je vermute, dass es chez qui change vom Schriftmodus zum Grafikmodus trop solch einem Ergebnis venez. si on pas oui c'est ca qui Werte einer Schriftart défini, wird es sur unterschiedlichen Systemen unterschiedlich umgerechnet.
Um dem aus dem Weg pour aller, definiere je dans meinen Programmen oui c'est ca, quel Font et dessen Format benutzt volonté soll:
Hierbei wird chaque Element, quoi après erzeugt wird, avec cette Schriftart versehen - dans chaque Windows sieht es ensuite juste aus.
cela devrait dein Problem lösen. Alternativ gibt es encore Créer("Font, si Du pour bestimmte Elemente seulement bestimmte Schriftarten verwenden vouloir - ensuite müsstest Du mais chaque Element avec SetFont qui Schrift zuweisen.
Grüße |
|
| |
| |
| |
|
|
RGH | comment Georg richtig festgestellt hat: avec cela es überall passt, avec SetDialogFont aussi cette festzurren. Ansonsten wählt Windows den Standard-Font aus, den chacun User anders eingestellt avons peux. si là quelqu'un z.B. chez qui représentation qui Schrift statt 100% etwa 125% ou bien gar 150% angegeben hat, passt es naturellement pas plus.
Salut
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 | 04.02.2020 ▲ |
|
| |
|
|
RudiB. | merci pour Eure répondre.
habe je so déjà gesetzt, cependant SetDialogFont 1 seulement einmal am Anfang des Programms.
Werde la fois chaque la fois derrière UseFont un SetDialogFont 1 mettons, la fois regarder si cela quoi bringt. |
|
| |
| |
| |
|
|
Georg
Teles | Es suffisant grundsätzlich seulement 1 la fois ca am Anfang des Programms trop écrivons, alle Fensterobjekte avons ensuite cet Schriftart.
si du naturellement plusieurs Schriftarten verwendest, ensuite pouvoir es Sinn jeweils avant den Fensterobjekten une autre Schriftart trop définir.  |
|
| |
| |
| |
|
|
RudiB. | Problem gelöst,
es était simple seulement qui représentation (im fremden System) qui Schriftart im System sur 125% eingestellt.
Vielen Dank |
|
| |
| |
| |
|
|
RudiB. | Hab un kleines Problem wohin je pas plus plus viens.
Pour einem CLS verschwinden deux Dialog-Elemente (Éditer-champ + 1 Button"save") si on avec qui souris drüberfährt, ensuite erscheinen vous wieder.
Pour dem prochain CLS vous êtes wieder weg...
mais plan seulement qui deux....je versteh qui monde pas plus....
quoi fonctionne là de travers, welchen faute vois je pas....
$P+
SET("ERRORLEVEL",0)
$H LIB\Windows.ph
DEF GETSYSCOLOR(1) !"User32","GetSysColor"
Déclarer DE&,Text&,Vokabel$
WINDOWSTYLE 15'512
Titre de la fenêtre " Test"
WINDOW (%maxx/2 - 1024/2),(%maxy/2 - 768/2) - 1024,768
CLS GETSYSCOLOR(15)
SETDIALOGFONT 1
Lerne_mit_Bildern
Waitinput
Fin
Proc Lerne_mit_Bildern
DE&=@Créer("Dialog",%Hwnd,"Lerne avec Bildern",(%maxx/2 - 1024/2),(%maxy/2 - 768/2) , 1024,768)
Déclarer hB%, hC%,OK%,Liste_Bilder%,la ligne$,fichier$,E_dit%
hB% = @Créer("Button",DE&,"Schliessen",710,690,170,25)
E_dit%=Créer("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&=Créer("Text",DE&,"Themen-Liste", 850,110,130,16)
assign #1,"System\Dateinamen_Bilder.txt"
reset #1
whileloop 25
input #1,la ligne$
addstring(Liste_Bilder%,la ligne$)
Endwhile
Fermer #1
'Titelschrift
vokabel$="Lerne avec Bildern"
Début de peinture DE&
UseFont "Verdana",100,30,1,0,0
Couleur du texte RGB(131,139,131),-1
DrawText 34,134,Vokabel$
UseFont "Verdana",100,30,1,0,0
Couleur du texte RGB(255,105,180),-1
DrawText 30,130,Vokabel$
EndPaint DE&
vokabel$="suche un Thema aus"
Début de peinture DE&
UseFont "Verdana",100,30,1,0,0
Couleur du texte RGB(131,139,131),-1
DrawText 34,284,Vokabel$
UseFont "Verdana",100,30,1,0,0
Couleur du texte RGB(255,105,180),-1
DrawText 30,280,Vokabel$
EndPaint DE&
Text&=Créer("Text",DE&,"Themen-Liste", 850,110,130,16)
Claire OK%
WhileNot Ok%
Waitinput
Début de peinture DE&
CLS GETSYSCOLOR(15)
EndPaint DE&
Si @Clicked(hB%)'OK wurde angeklickt
Ok% = 1
EndIf
Si Getfocus(Liste_Bilder%)
SetFocus(DE&)
Vokabel$=Getstring$((Liste_Bilder%),GetCurSel(Liste_Bilder%))
Début de peinture DE&
'Titelschrift
UseFont "Verdana",100,30,1,0,0
Couleur du texte RGB(131,139,131),-1
DrawText 34,134,Vokabel$
UseFont "Verdana",100,30,1,0,0
Couleur du texte RGB(255,105,180),-1
DrawText 30,130,Vokabel$
EndPaint DE&
Vokabel$=translate$(vokabel$," ","_")
fichier$="Pictures\"+vokabel$+".bmp"
Début de peinture DE&
loadbmp fichier$,20,250;0
EndPaint DE&
Text&=Créer("Text",DE&,"Themen-Liste", 850,110,130,16)
EndIf
Si clicked(hC%)
fichier$="Vokabel_Info\"+gettext$(E_dit%)+".txt"
Si fileexists(fichier$)
imprimer "gefunden"
EndIf
EndIf
Endwhile
@DestroyWindow(DE&)
ENDPROC
|
|
| |
| |
| |
|
|
p.specht
 | large en entfernt, là durchzublicken - Aus qui Aider de XP-11.2a: Beim Zeichnen dans DialogBoxen et DialogFenstern ist trop tenir compte de, dass cet Zeichnungen pas automatisch erneuert volonté, si le Dialogbox z.B. par un d'autre la fenêtre verdeckt wurde.
Scheinbar gilt cela aussi renversé. Workaround: je serait versuchen, im Programmfluss pour dem "Fehlerereignis" avec ShowWindow(handle%, Modus) qui entsprechenden Controls wieder sichtbar trop faire (So hab´ je mir avant hm-zig Jahren la fois beholfen). ou bien je stehe justement wieder la fois mächtig am Schlauch - ensuite sorry. |
|
| |
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 29.02.2020 ▲ |
|
| |
|
|
RudiB. | merci pour Votre Antwort. Hilft malheureusement aussi pas... quoi aussi encore komisch ist, cela sobald je ensuite versuche den Concentrer sur eines cette "verschwundenen" z.B dans cela Éditer klicke, ensuite wird cela komplette Dialod-la fenêtre "gelöscht".
Alle Elemente sommes encore là et se mettre sich wieder avec souris drüberfahren et klick her. mais égal...je benutze maintenant simple ne...aucune CLS mais lege simple une avec qui Hintergrundfarbe gefüllte Bitmap drüber (sur den Bereich ausserhalb qui Dialog-Elemente). pas justement genial, mais es wirkt, qui Elemente rester eh bien. |
|
| |
| |
| |
|
|
p.specht
| Bravo! quelquefois führt qui kürzeste Weg zum Erfolg plan par cela Gruselkabinett  |
|
| |
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 29.02.2020 ▲ |
|
| |
|
(338)
Deutsch
English
Français
Español
Italia
