Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.009 c