Форум: "WinAPI";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
ВнизUkazat sisteme chto bil izmenenon shrift Найти похожие ветки
← →
Delphi 5.01 (2002-08-21 13:31) [0]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-21 13:33) [1]xochu dobavit chto izmenenie fonta u hinta toje ne vishlo, teje problemi!
← →
Cobalt (2002-08-21 20:43) [2]Как изменяли(подробно, желательно с кодом)?
← →
Delphi 5.01 (2002-08-23 10:04) [3]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;
← →
Delphi 5.01 (2002-08-23 10:12) [4]Кстати пример нашол на форуме!
← →
Игорь Шевченко (2002-08-23 10:36) [5]Лучше бы мой пример найти :-)
← →
Игорь Шевченко (2002-08-23 10:38) [6]http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1029388165&n=5
← →
Delphi 5.01 (2002-08-23 11:24) [7]Ok Ша проверю, спасибо за помощ!
← →
Delphi 5.01 (2002-08-23 11:44) [8]Пример на 5, но проблемма таже. Я даже в канве не могу писать, даже у лабела проблеммы. Если кто очень заинтересуется пришлю шрифт. Просто это шрифт не руский и не английский, м етими проблем нет! А вот с моим есть!
← →
Delphi 5.01 (2002-08-23 14:58) [9]Neujeli Unikodom ni kto ne zanimalsa
← →
Игорь Шевченко (2002-08-23 16:06) [10]А что, шрифт Unicode ? Тогда никак...Delphi Unicode не поддерживает в окнах.
Если очень хочется - http://home.ccci.org/wolbrink/tntmpd/delphi_unicode_controls_project.htm - может, там что интересное есть...
← →
Delphi 5.01 (2002-08-24 06:28) [11]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!
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.338 c