Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ukazat sisteme chto bil izmenenon shrift [D6, Win95/98]

Delphi 5.01 © (2002-08-21 13:31:00)
ia izmenau shrift labela, i TextOut-a no on ne prinemaett novoie znachenie, esli ia u labela do kompilacii ukazal etot shrift to on ego ponimaet, shrift Unikod.
Esli kto vsterchal takuiu problemu proshu pomoch. spasibo

Delphi 5.01 (2002-08-24 06:28:00) [1]
Da i s prostim teje problemi, glavnaia zagvostka v tom chto esli do komelacii labelu ukazat etot shrift to vso ok, a vot esli potom pri rabote programi to voznikaet problema! Vot mne i kajetsa esli do kompilacii ukazat shrift hinta to problema ischeznet!

Игорь Шевченко (2002-08-23 16:06:00) [2]
А что, шрифт Unicode ? Тогда никак...Delphi Unicode не поддерживает в окнах.
Если очень хочется - http://home.ccci.org/wolbrink/tntmpd/delphi_unicode_controls_project.htm- может, там что интересное есть...

Delphi 5.01 (2002-08-23 14:58:00) [3]
Neujeli Unikodom ni kto ne zanimalsa

Delphi 5.01 (2002-08-23 11:44:00) [4]
Пример на 5, но проблемма таже. Я даже в канве не могу писать, даже у лабела проблеммы. Если кто очень заинтересуется пришлю шрифт. Просто это шрифт не руский и не английский, м етими проблем нет! А вот с моим есть!

Delphi 5.01 (2002-08-23 11:24:00) [5]
Ok Ша проверю, спасибо за помощ!

Игорь Шевченко (2002-08-23 10:38:00) [6]
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1029388165&n=5

Игорь Шевченко (2002-08-23 10:36:00) [7]
Лучше бы мой пример найти :-)

Delphi 5.01 (2002-08-23 10:12:00) [8]
Кстати пример нашол на форуме!

Delphi 5.01 (2002-08-23 10:04:00) [9]
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{Private declarations}
public
procedure MyShowHint(var HintStr: string;
var CanShow: Boolean;var HintInfo: THintInfo);
{Public declarations}
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.MyShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);
var
i : integer;
begin
for i := 0 to Application.ComponentCount - 1 do
if Application.Components[i] is THintWindow then
with THintWindow(Application.Components[i]).Canvas do
begin
Font.Name:= "Arial";
Font.Size:= 18;
Font.Style:= [fsBold];
HintInfo.HintColor:= clWhite;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnShowHint := MyShowHint;
end;

Cobalt (2002-08-21 20:43:00) [10]
Как изменяли(подробно, желательно с кодом)?

Delphi 5.01 (2002-08-21 13:33:00) [11]
xochu dobavit chto izmenenie fonta u hinta toje ne vishlo, teje problemi!

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »