XProfan

- Página 1 -

Sebastian
König

¡Hola Franco,

con uno LOGFONT-Struktur y GetObject

() solltest Usted el deseado Informationen bekommen. In el Attribut lfCharSet es entonces el benutzte 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]
Leider weiß Yo no genau, como zwischen ANSI y ASCII a unterscheiden es.... entspricht tal vez el OEM-Zeichensatz en el meisten Fällen el ASCII-Tabla?

MfG

Sebastian

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

Alte Profan²-Seite: [...]

Frank
Abbing

Gracias! Daran Tuve nada pensamiento, obwohl Yo einiges a API durchgesehen hatte.

Yo denke auch, dass ASCII y OEM identisch son y voluntad el veces testen. Wichtiger es para mich aber el Erkennung uno symbolischen Zeichensatzes.

RGH

Sí, OEM = ASCII. Das heiß, en genau a ser: Der ursprüngliche ASCII.Standard, el lo ya a CP/M-Veces gab, beinhaltet sólo el ersten 128 Signo, wobei el ersten 32 Signo (0 - 31) des Zeichensatzes Steuerzeichen waren. Diesen hatte IBM en 255 Signo erweitert, en auch el Umlaute el meisten Idiomas darstellen a puede. Dieser erweiterte ASCII-Zeichensatz se de el No-IBM-Welt gerne como IBMPC- oder OEM-Zeichensatz bezeichnet, en así herauszuheben, daß es el Definition uno Herstellers, aber en no Standard es. Der ANSI-Zeichensatz es el Intento uno Standards, el u.a. de Microsoft para ser Windows-Betriebssystem verwandt wurde. El ersten 128 Signo son en beiden Zeichensätzen igual. Außerhalb de Windows ha se dieser Standard allerdings kaum durchgesetzt.

(Como Windows also ASCII-Zeichensatz verwende Yo en Profano el en BASIC como ASC() bekannte Función en Anlehnung a Pascal en ORD() umbenannt.)

Saludo
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

Gracias para el Infos!

Frank
Abbing

Leider versagt estos Technik. In lfCharSet es auch sólo el Valor gespeichert, el en Profano mittels CharSet N vergeben es, o. voreingestellt es, y el es sí auch irgendwie logisch.
Yo bräuchte wohl una Möglichkeit, en el CharSet sólo anhand des Fontnamens (z.B. Marlett) a ermitteln. Tal vez blanco sí todavía alguien Rat.

Sebastian
König

Mir es gerade ni Concepto gekommen: Intento veces, el Font-Namen auszulesen y así una weitere LOGFONT-Struktur a füllen, wobei Usted lfCharSet primero en DEFAULT_CHARSET setzt. Dann CreateFontIndirect() y el neue Font-Handle otra vez GetObject(). Mit algo Glück es anschließend en lfCharSet tal vez el Valor des Zeichensatzes, el tatsächlich benutzt wurde.

Kann natürlich auch ser, dass hay otra vez sólo DEFAULT_CHARSET es...

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

Alte Profan²-Seite: [...]

Frank
Abbing

Gut, voluntad Yo heute nachmittag testen. Das Seltsame es sí, que un Texto en un Multiedit correcto dargestellt se. Aber si yo ihn con DrawText Mostrar lasse, entonces eben no.

Uwe
''Pascal''
Niemeier

¡Hola Personas!

Dies podría helfen:
Kompilieren Marca Separación

!
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]Dies podría helfen: (...)[/quote:8206d86dad]
Ok, el es natürlich muy viel eleganter...

Manchmal denkt uno tatsächlich nada daran, zuerst después de uno Función a suchen, el direkt el gewünschte hecho....

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

Alte Profan²-Seite: [...]

Frank
Abbing

[quote:9c5686e83a]Dies podría helfen:[/quote:9c5686e83a]
Und el hilf auch, danke!

Ist genau el, Yo haben quería.

Anbei algunos Sugerencias para Roland, esta Función(en) a tomar y vorhandenes abzuwandeln. Anstatt Charset N...

Conjunto(Charset, N)

Und neu dazu:

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

...en el aktuell gesetzten Zeichensatz a ermitteln. Und zusätzlich:

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

...en el Zeichensatz uno cierto Fonts auszulesen.
Soll Yo el en el Sugerencias-Hilo puesto, oder hast du lo notiert, Roland?

RGH

¡Hola,

zumThema Fonds Yo gerade folgende Erweiterung instalado:

Anstelle des Befehls Charset N% hay ahora el Función Conjunto(CharSet, N%) y dazu el Lesefunktion Get(CharSet).

Wenn nun en Conjunto(Charset, N%) el Parámetro valor -1 ha, se el Default-Charset verwendet, d.h. cada con UseFont oder Crear(Font,...) eingestellte Font benutzt el ihm propio CharSet. Dieser Valor se auch künftig el Voreinstellung ser.
En el otro Werten (0 - 2)* es como bisher: Wenn el gewünschte Font dieses CharSet no bietet se Windows una möglichst ähnlichen Font con el deseado CharSet nehmen. Das gewünsche CharSet ha also Vorrang antes el Namen. Werte encima 2 puede nun auch verwandt y ser entsprechen el API-Werten para esta Fontsets.
Get(CharSet) son el con Conjunto(Charset, N%) eingestellten Valor zurück.

Nach UseFont kann con el API-Función ~GetTextCharset(%hdc) el tatsächlich verwandte Charset ermittelt voluntad, also en Conjunto(Charset, -1) el CharSet des gewählten Fonts.

Saludo
Roland

* In XProfan ha Default-Charset valor -1 y OEM-CharSet valor 1. In el API ha Default-Charset valor 1 y OEM-Charset valor 255. En el übrigen Charsets son el Werte en API y XProfan igual.

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 ▲

- Página 2 -

Frank
Abbing

Das halte Yo para muy nützliche Erweiterungen

. Gracias!

19.08.2006 ▲