XProfan

Sebastian
König

allô Frank,

avec einer LOGFONT-Struktur et GetObject

() devrait Du qui gewünschten Informationen bekommen. dans dem Attribut lfCharSet steht ensuite qui benutzte Zeichensatz:
[quote-part:f28fa741a3]
lfCharSet
Specifies le character set. The following values sont predefined:
ANSI_CHARSET
BALTIC_CHARSET
CHINESEBIG5_CHARSET
DEFAULT_CHARSET
EASTEUROPE_CHARSET
GB2312_CHARSET
GREEK_CHARSET
HANGUL_CHARSET
MAC_CHARSET
OEM_CHARSET
RUSSIAN_CHARSET
SHIFTJIS_CHARSET
SYMBOL_CHARSET
TURKISH_CHARSET
[/quote-part:f28fa741a3]
malheureusement sais je pas oui c'est ca, comment entre ANSI et ASCII trop unterscheiden ist.... entspricht peut-être qui OEM-Zeichensatz dans den meisten Fällen qui ASCII-Tabelle?

MfG

Sebastian

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

Frank
Abbing

merci! Daran J'ai eu gar pas gedacht, quoique je einiges à API durchgesehen hatte.

je denke aussi, dass ASCII et OEM identique sommes et werde cela la fois testen. Wichtiger ist pour mich mais qui Erkennung eines symbolischen Zeichensatzes.

RGH

oui, OEM = ASCII. cela heiß, um oui c'est ca trop son: qui ursprüngliche ASCII.Standard, den es déjà trop CP/M-Zeiten donnais, beinhaltet seulement qui ersten 128 marque, wobei qui ersten 32 marque (0 - 31) des Zeichensatzes Steuerzeichen étions. Diesen hatte IBM sur 255 marque erweitert, um aussi qui Umlaute qui meisten Sprachen représenter trop peut. cette Avancé ASCII-Zeichensatz wird de qui pas-IBM-monde volontiers comme IBMPC- ou bien OEM-Zeichensatz bezeichnet, um avec cela herauszuheben, qui es sich à définition eines Herstellers, mais um keinen Standard handelt. qui ANSI-Zeichensatz ist qui Versuch eines Standards, qui u.a. de Microsoft pour son Windows-Betriebssystem verwandt wurde. qui ersten 128 marque sommes chez beiden Zeichensätzen juste. Außerhalb de Windows hat sich cette Standard allerdings à peine durchgesetzt.

(là Windows alors ASCII-Zeichensatz verwende habe je dans Profan qui dans BASIC comme ASC() bekannte Funktion dans Anlehnung à Pascal dans ORD() umbenannt.)

Salut
Roland

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

Frank
Abbing

merci pour qui Infos!

Frank
Abbing

malheureusement versagt aussi cet technologie. dans lfCharSet ist aussi seulement qui Wert gespeichert, qui dans Profan mittels CharSet N vergeben ist, bzw. voreingestellt ist, et c'est oui aussi irgendwie logisch.
je bräuchte wohl une Possibilité, um den CharSet seulement anhand des Fontnamens (z.B. Marlett) trop ermitteln. peut-être weiss oui encore quelqu'un conseil.

Sebastian
König

Mir ist justement encore une concept gekommen: Versuch la fois, den Font-Namen auszulesen et avec cela une weitere LOGFONT-Struktur trop füllen, wobei Du lfCharSet erstmal sur DEFAULT_CHARSET mets. ensuite CreateFontIndirect() et sur cela neue Font-Handle wieder GetObject(). avec quelque chose Glück steht anschließend dans lfCharSet peut-être qui Wert des Zeichensatzes, qui réellement benutzt wurde.

peux naturellement aussi son, dass là wieder seulement DEFAULT_CHARSET steht...

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

Frank
Abbing

bien, werde je aujourd'hui l'après-midi testen. cela Seltsame ist oui, dass un Text dans einem Multiedit richtig dargestellt wird. mais si je ihn avec DrawText Montrer lasse, ensuite plan pas.

Uwe
''Pascal''
Niemeier

allô gens!

ca pourrait aider:
Kompilieren Marque Séparation

!
window 100,100-300,300
def CreateFontIndirect(1) !"GDI32","CreateFontIndirectA"
def SelectObject(2) !"GDI32","SelectObject"
def GetTextCharset(1) !"GDI32","GetTextCharset"
declare a&,b&,a#
dim a#,100
clear a#
byte a#,23=1

proc GetFontType--------------------------------

    parameters a$
    string a#,28=a$
    a&=CreateFontIndirect(a#)
    SelectObject(%hdc,a&)
    b&=GetTextCharset(%hdc)
    deleteobject a&
    return b&
    endproc-----------------------------------------
    GetFontType "Terminal"
    print "Terminal :",&(0)
    GetFontType "Arial"
    print "Arial    :",&(0)
    GetFontType "Wingdings"
    print "Wingdings:",&(0)
    dispose a#
    waitkey

HTH
Pascal

Sebastian
König

[quote-part:8206d86dad]ca pourrait aider: (...)[/quote-part:8206d86dad]
Ok, c'est naturellement très viel eleganter...

quelquefois denkt on réellement gar pas daran, d'abord pour einer Funktion trop chercher, qui direct cela gewünschte erledigt....

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

Frank
Abbing

[quote-part:9c5686e83a]ca pourrait aider:[/quote-part:9c5686e83a]
et cela hilf aussi, merci!

Ist oui c'est ca cela, quoi je avons voulais.

Anbei quelques Anregungen pour Roland, cet Funktion(en) trop prendre et vorhandenes abzuwandeln. Anstatt Charset N...

Set(Charset, N)

et récente en supplément:

n&=GetCharset() ou bien
n&=Get(Charset)

...um den aktuell gesetzten Zeichensatz trop ermitteln. et zusätzlich:

n&=GetCharset(Fontname) ou bien
n&=Get(Charset,Fontname)

...um den Zeichensatz eines certain Fonts auszulesen.
Soll je cela dans den Anregungen-Fil posten, ou bien la hâte du es notiert, Roland?

RGH

Salut,

zumThema Fonds habe je justement folgende Erweiterung incorporé:

Anstelle des Befehls Charset N% gibt es maintenant qui Funktion Set(CharSet, N%) et en supplément qui Lesefunktion Get(CharSet).

si eh bien chez Set(Charset, N%) qui paramètre la valeur -1 hat, wird cela Default-Charset verwendet, d.h. chacun avec UseFont ou bien Créer(Font,...) eingestellte Font benutzt cela ihm eigene CharSet. cette Wert wird aussi künftig qui Voreinstellung son.
chez den anderen Werten (0 - 2)* ist es comment bisher: si qui gewünschte Font cet CharSet pas bietet wird Windows une possible ähnlichen Font avec dem gewünschten CharSet prendre. cela gewünsche CharSet hat alors Vorrang avant dem Namen. Werte sur 2 peut eh bien aussi verwandt volonté et entsprechen den API-Werten pour cet Fontsets.
Get(CharSet) gibt den avec Set(Charset, N%) eingestellten Wert zurück.

Pour UseFont peux avec qui API-Funktion ~GetTextCharset(%hdc) cela réellement verwandte Charset ermittelt volonté, alors chez Set(Charset, -1) cela CharSet des gewählten Fonts.

Salut
Roland

* dans XProfan hat Default-Charset la valeur -1 et OEM-CharSet la valeur 1. dans qui API hat Default-Charset la valeur 1 et OEM-Charset la valeur 255. chez den übrigen Charsets sommes qui Werte dans API et XProfan juste.

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

19.08.2006 ▲