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

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

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



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