Форум: "Основная";
Текущий архив: 2003.08.21;
Скачать: [xml.tar.bz2];
ВнизTHintWindow Найти похожие ветки
← →
servs (2003-08-06 12:36) [0]Кто использовал сабж, подскажите как сделать чтобы рамочка у него была такая же как у обычного виндового хинта, т.е тоненькая черная.
← →
Семен Сорокин (2003-08-06 12:44) [1]А разве она не такая?
← →
servs (2003-08-06 15:58) [2]Нет. По крайней мере у меня (Д7 + ХР) она трехнерная, и тенью.
← →
Семен Сорокин (2003-08-06 16:05) [3]ну не знаю поменяй так:
THintWindow.Canvas.Pen.Style = psSolid;
THintWindow.Canvas.Pen.Size = 1;
THintWindow.Canvas.Pen.Color = clBlack;
← →
Игорь Шевченко (2003-08-06 16:18) [4]
procedure THintWindow.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
begin
Style := WS_POPUP or WS_BORDER;
WindowClass.Style := WindowClass.Style or CS_SAVEBITS;
if NewStyleControls then ExStyle := WS_EX_TOOLWINDOW;
( ExStyle)
procedure THintWindow.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
begin
Style := WS_POPUP or WS_BORDER;
WindowClass.Style := WindowClass.Style or CS_SAVEBITS;
if NewStyleControls then ExStyle := WS_EX_TOOLWINDOW;
AddBiDiModeExStyle(ExStyle);
end;
end;
← →
servs (2003-08-06 17:39) [5]2 Семен Сорокин
Не катит
2 Игорь Шевченко
Я не понял, можно прокоментировать?
У меня эта функция имеет несколько другой вид. Там есть еще:
if CheckWin32Version(5, 1) then
WindowClass.Style := WindowClass.style or CS_DROPSHADOW;
Но тень мне не мешает на самом деле. Непонятно почему у Винды все границы черные, а у меня верхняя и левая - серые, нижняя и правая - черный.
← →
TButton (2003-08-06 18:01) [6]эээ... а чо ето за хрень? обычный ShowHint=true нас уже не устраивает? вы поди и не знаете как люди в свое время над многострочными хинтами бились....
← →
Игорь Шевченко (2003-08-06 18:14) [7]servs © (06.08.03 17:39)
Сделать наследник THintWindow, перекрыть ему метод CreateParams и убрать в перекрытом методе эту строчку :)
← →
servs (2003-08-06 18:22) [8]2 TButton
Я то же так умею. Только у нас ситуация:
Есть СОМ сервер, висит в трее. Когда клиент вызвал его метод, он должен показать хинт возле иконки своей, что бы уведомить юзера о произошедшем событии (он там для этого собственно и висит).
Ну что, куда будем писать ShowHint=true?
← →
servs (2003-08-06 18:43) [9]Игорь Шевченко © (06.08.03 18:14)
Сделал, но все равно ничего не изменилось.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.08.21;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c