![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
При работе проги под XP у SpeedButton шрифт сообщений Hint системой не поддерживается - выдается абракадабра .При этом под Win2000 работает превосходно! . Где менять ? Простое SpeedButton.font. не помогает.
|
|
#2
|
||||
|
||||
|
Не знаю, поможет или нет. У меня не XP. Но может поменять свойство Font.Charset на ANSI_CHARSET.
|
|
#3
|
|||
|
|||
|
так в проэкте везде стоит SpeedButton.font.Charset = "RUSSIAN_CHARSET" .
ANSI_CHARSET - НЕ ПОМОГАЕТ! Последний раз редактировалось salgir, 30.08.2007 в 15:31. |
|
#4
|
||||
|
||||
|
Цитата:
|
|
#5
|
||||
|
||||
|
А DEFAULT_CHARSET не пробовал? Может так получится.
|
|
#6
|
|||
|
|||
|
Цитата:
|
|
#7
|
||||
|
||||
|
Тогда я без понятий...
|
|
#8
|
|||
|
|||
|
нашел на Delphi Russian Knowledge Base
from Vit Version 3.0 Полная версия Этот документ составлен по материалам форумов программистов http://forum.vingrad.ru и http://forum.sources.ru ------------------------------------------- Код:
{
When the application displays a Help Hint,
it creates an instance of HintWindowClass to represent
the window used for displaying the hint.
Applications can customize this window by creating a
descendant of THintWindow and assigning it to the
HintWindowClass variable at application startup.
}
type
TMyHintWindow = class(THintWindow)
constructor Create(AOwner: TComponent); override;
end;
implementation
{....}
constructor TMyHintWindow.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
with Canvas.Font do
begin
Name := 'Arial';
Size := Size + 5;
Style := [fsBold];
end;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
HintWindowClass := TMyHintWindow;
Application.ShowHint := False;
Application.ShowHint := True;
end; ![]() Пользуйтесь тэгом [CОDE] |
|
#9
|
||||
|
||||
|
А как сделать, чтобы сама подсказка выглядела как подсказки в ОС?
|