|
ｿｽ@ｿｽｿｽUnicodeｿｽﾌフｿｽHｿｽｿｽｿｽgｿｽｿｽｿｽｿｽZｿｽbｿｽgｿｽｿｽｿｽｿｽﾉは？
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽﾏゑｿｽ 2005/03/16(ｿｽｿｽ) 02:00:50
TCanvas.Font.NameｿｽｿｽUnicodeｿｽｿｽｿｽｿｽｿｽｿｽﾅ指ｿｽ閧ｵｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ShiftJISｿｽﾉ変奇ｿｽｿｽsｿｽﾂ能ｿｽｿｽUnicodeｿｽﾌフｿｽHｿｽｿｽｿｽgｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽﾍ使ｿｽずｿｽﾉプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽCｿｽﾓのフｿｽHｿｽｿｽｿｽgｿｽｿｽｿｽｿｽwｿｽ閧ｵｿｽﾜゑｿｽｿｽB
ｿｽかｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌはフｿｽHｿｽｿｽｿｽgｿｽｿｽｿｽﾌみでゑｿｽｿｽB
TFontｿｽﾍどゑｿｽｿｽｿｽｿｽ謔､ｿｽｿｽﾈゑｿｽｿｽﾌでＡｿｽoｿｽhｿｽﾉなるかｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾓ厄ｿｽｿｽsｿｽｿｽ 2005/03/16(ｿｽｿｽ) 06:05:39
ｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾆフｿｽHｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽH
UNICODEｿｽﾅフｿｽHｿｽｿｽｿｽgｿｽｿｽｿｽｿｽwｿｽ閧ｵｿｽﾄゑｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽUNICODEｿｽﾉなゑｿｽけｿｽｿｽｿｽｿｽﾈゑｿｽｿｽB
StringToWideCharｿｽﾖ撰ｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽHｿｽﾈゑｿｽｿｽH
ｿｽ痰ｦｿｽﾎ、UNICODEｿｽﾅ「ｿｽlｿｽr ｿｽｿｽｿｽｿｽｿｽvｿｽｿｽwｿｽ閧ｵｿｽｿｽｿｽｿｽｿｽﾈゑｿｽA
var
szFontName: array[0..5] of WideChar = (#$FF2D,#$FF33,#$0020,#$660E,#$671D,#$0000);
TCanvas.Font.Name := szFontName;
ｿｽﾅゑｿｽAｿｽiｿｽｿｽｿｽﾌ意厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽH
ｿｽﾏゑｿｽ 2005/03/16(ｿｽｿｽ) 12:51:08
ｿｽOｿｽｿｽｿｽﾌフｿｽHｿｽｿｽｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ抵ｿｽｿｽﾉゑｿｽShiftJISｿｽﾅ表ｿｽｿｽｿｽﾈゑｿｽUnicodeｿｽﾌフｿｽHｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Tfont.NameｿｽｿｽStringｿｽ^ｿｽﾈのでゑｿｽｿｽｿｽﾍ受け付ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
Stringｿｽ^ｿｽﾉ変奇ｿｽｿｽｿｽｿｽｿｽｿｽﾆダｿｽｿｽｿｽﾅ、UnicodeｿｽﾌままフｿｽHｿｽｿｽｿｽgｿｽｿｽｿｽｿｽけ難ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾆ（ｿｽ`ｿｽoｿｽhｿｽﾉ渡ｿｽｿｽｿｽﾈゑｿｽｿｽﾆ）ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽtｿｽHｿｽｿｽｿｽgｿｽｿｽwｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾉゑｿｽｿｽｿｽ 2005/03/16(ｿｽｿｽ) 13:29:31
ｿｽﾅゑｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、APIｿｽｿｽCreateFontIndirectｿｽ利用ｿｽｿｽｿｽﾄフｿｽHｿｽｿｽｿｽgｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽATFont.Handleｿｽﾉ難ｿｽｿｽ鼾橸ｿｽｿｽﾅみてはどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB
ｿｽｿｽｿｽﾟでゑｿｽｿｽｿｽﾎ、ｿｽ`ｿｽｿｽnｿｽｿｽｿｽﾗて趣ｿｽｿｽOｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾉゑｿｽｿｽｿｽ 2005/03/16(ｿｽｿｽ) 13:30:04
ｿｽﾔ違えｿｽﾜゑｿｽｿｽｿｽｿｽB
CreateFontIndirectWｿｽﾅゑｿｽｿｽﾋ。
CreateFontIndirectｿｽﾍ、CreateFontIndirectAｿｽﾆ難ｿｽｿｽｿｽｿｽﾈので。
ｿｽﾏゑｿｽ 2005/03/19(ｿｽy) 02:03:13
ｿｽﾔ難ｿｽｿｽxｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽﾌ費ｿｽｿｽfｿｽﾌ仕ｿｽｿｽｿｽﾅゑｿｽｿｽいｿｽｿｽYｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽTFont.Handleｿｽｿｽ
ｿｽｿｽｿｽﾚ難ｿｽｿｽｿｽｿｽﾌは気ｿｽｿｽｿｽﾂゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽNｿｽｿｽSｿｽzｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽvｿｽﾌようｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾈ会ｿｽｿｽAｿｽQｿｽlｿｽﾜでに簡単ｿｽﾉ擾ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
EnumFontFamExProcｿｽ@ｿｽﾆ EnumFontFamiliesExWｿｽ@ｿｽﾉゑｿｽｿｽ
TLogFontWｿｽｿｽ謫ｾ
Font.Handle:= CreateFontIndirectW(LogFontW);
