XProfan

- Page 1 -

Sebastian
König

Hello Frank,

with of/ one LOGFONT-structure and GetObject

() should You The desired Information get. in the Attribut lfCharSet is then the using Zeichensatz:
[quote:f28fa741a3]
lfCharSet
Specifies the character set. The following values are 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:f28fa741a3]
unfortunately white I do not very, How between ANSI and ASCII To discern is.... corresponds to Perhaps the OEM-Zeichensatz into most Make the ASCII-scheduler?

MfG

Sebastian

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

Alte Profan²-Seite: [...]

Frank
Abbing

thanks! on it I had none virtual, though I some on API looked through having.

i think too, that ASCII and OEM identical are and will be the test times. Importent is for me but the recognition one symbolischen Zeichensatzes.

RGH

Yes, OEM = ASCII. the hot, circa very To his: The ursprüngliche ASCII.standard, whom it already To CP/M-times given, contain only the first 128 characters, where the first 32 characters (0 - 31) the Zeichensatzes Steuerzeichen were. Diesen having IBM on 255 characters extended, circa too The Umlaute the most Languages present to. this erweiterte ASCII-Zeichensatz becomes from the not-IBM-world gladly as IBMPC- or OEM-Zeichensatz marks, circa so to lift out, that it itself around the Definition one Herstellers, but circa none standard deals. The ANSI-Zeichensatz is the attempt one Standards, the u.a. of Microsoft for its windows-Betriebssystem akin watts. the first 128 characters are with both Zeichensätzen same. outside Windows has this standard though hardly durchgesetzt.

(there windows means ASCII-Zeichensatz use have I in Profan The in BASIC as ASC() known function in Anlehnung on Pascal in ORD() umbenannt.)

Greeting
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

thanks for Info!

Frank
Abbing

unfortunately fail too these engineering. In lfCharSet is too only the worth stored, the in Profan through CharSet n give away is, or. voreingestellt is, and this is indeed somehow logical.
I bräuchte well a Possibility, around the CharSet only anhand the Fontnamens (z.B. Marlett) To detect. Perhaps knows Yes yet someone council.

Sebastian
König

i'm straight another idea come: attempt time, whom Font-names auszulesen and so a further LOGFONT-structure To fill, where You lfCharSet first on DEFAULT_CHARSET setting. then CreateFontIndirect() and the new Font-lever again GetObject(). with something Happiness standing subsequently in lfCharSet Perhaps the worth the Zeichensatzes, the objectively using watts.

can naturally too his, that there again only DEFAULT_CHARSET standing...

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

Alte Profan²-Seite: [...]

Frank
Abbing

well, I will this afternoon testing. the Seltsame is Yes, that one Text in a MultiEdit correctly. displayed becomes. But if I it with DrawText Show let, then even not.

Uwe
''Pascal''
Niemeier

Hello people!

this could help:
Compile Mark Separation

!
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:8206d86dad]this could help: (...)[/quote:8206d86dad]
OK, this is naturally very plenty eleganter...

sometimes think one objectively none on it, first after a function to search, The directly the desired Done....

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

Alte Profan²-Seite: [...]

Frank
Abbing

[quote:9c5686e83a]this could help:[/quote:9c5686e83a]
and the hilf too, thanks!

is very the, I having wished.

enclosed some suggestions for Roland, these function(en) To take and vorhandenes abzuwandeln. instead of Charset n...

Set(Charset, n)

and new moreover:

n&=GetCharset() or
n&=Get(Charset)

...around the currently gesetzten Zeichensatz To detect. and additional:

n&=GetCharset(Fontname) or
n&=Get(Charset,Fontname)

...around the Zeichensatz one designed Fonts auszulesen.
should I the into suggestions-Thread post, or have you got it note, Roland?

RGH

Hi,

zumThema Fonds have I straight following expansion installed:

in lieu of the Befehls Charset n% there now The function Set(CharSet, n%) and moreover The Lesefunktion Get(CharSet).

If now with Set(Charset, n%) the Parameter the value -1 has, becomes the Default-Charset uses, d.h. eachone with UseFont or Create(Font,...) tuned Font using the it Own CharSet. this worth becomes too künftig The Default-Settings his.
with whom others Values (0 - 2)* is it How yet: If the desired Font this CharSet not bid becomes windows a possible ähnlichen Font with the desired CharSet take. the gewünsche CharSet has means precedence to the names. values over 2 can now too akin and be correspond to whom API-Values for these Fontsets.
Get(CharSet) gives whom with Set(Charset, n%) tuned worth back.

After UseFont can with the API-function ~GetTextCharset(%hdc) the objectively relative Charset determined go, means with Set(Charset, -1) the CharSet the chosen Fonts.

Greeting
Roland

* In XProfan has Default-Charset the value -1 and OEM-CharSet the value 1. in the API has Default-Charset the value 1 and OEM-Charset the value 255. with whom übrigen Charsets are The values in API and XProfan same.

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

08/19/06 ▲

- Page 2 -

Frank
Abbing

the stops I for very useful extensions

. thanks!

08/19/06 ▲