| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подсказки в виде облаков. [D1, D2, D3, D4, D5, D6, Win95/98, WinME, NT4, Win2k, WinXP]

Exploited ©   (2002-06-16 18:12:00) 

Усем привет! Кто-нибудь, где-нибудь видел компонент или исходник, который создает подсказки в виде облаков. Ребята, поделитесь ссылкой на такое чудо.

---

Exploited   (2002-06-21 14:44:00) [1]

2Игорь Шевченко

Спасибо! Почта прибыла.

---

greenrul   (2002-06-21 14:32:00) [2]

2Exploited:

Лично я не стал инсталлировать чужие компоненты, а просто создал форму..

---

Exploited   (2002-06-21 14:29:00) [3]

2Игорь Шевченко

Ну где же, где же?

---

Exploited   (2002-06-21 13:30:00) [4]

Гуд! Вот адрес: i87@nrcu.gov.ua

---

Игорь Шевченко   (2002-06-21 13:01:00) [5]

Exploited (21.06.02 12:42)

Выдрано из работающего примера. Могу целиком по почте послать

---

Exploited   (2002-06-21 12:42:00) [6]

>Игорь Шевченко © (17.06.02 10:39)

Добавил я в проект этот код, а он что-то не шурупит. Или это я...
Ошибок нет, но подсказки как были стандартными, так и остались.

---

Игорь Шевченко   (2002-06-17 10:39:00) [7]

У Пачеко и Тейксейры есть пример RoundHint, с незначительными модификациями:

unit HSRoundHint;

interface
uses Windows, Classes, Controls, Forms, Messages, Graphics;

type
THSHintWindow = class (THintWindow)
private
FRegion : THandle;
procedure FreeCurrentRegion;
public
destructor Destroy; override;
procedure ActivateHint (Rect : TRect; const AHint : String); override;
procedure Paint; override;
procedure CreateParams (var Params : TCreateParams); override;
end;

implementation

{ THSHintWindow }

procedure THSHintWindow.ActivateHint(Rect: TRect; const AHint: String);
begin
with Rect do
Inc(Right, Canvas.TextWidth ("W"));
BoundsRect := Rect;
FreeCurrentRegion();
with BoundsRect do
FRegion := CreateRoundRectRgn (0, 0, Width, Height, 6, 6);
if FRegion <> 0 then
SetWindowRgn (Handle, FRegion, true);
inherited;
end;

procedure THSHintWindow.CreateParams(var Params: TCreateParams);
begin
inherited;
with Params do
Style := Style AND NOT WS_BORDER;
end;

destructor THSHintWindow.Destroy;
begin
FreeCurrentRegion;
inherited;
end;

procedure THSHintWindow.FreeCurrentRegion;
begin
if FRegion <> 0 then begin
SetWindowRgn (Handle, 0, true);
DeleteObject (FRegion);
FRegion := 0;
end;
end;

procedure THSHintWindow.Paint;
var R : TRect;
begin
R := ClientRect;
Canvas.Pen.Color := clBtnFace;
Canvas.Brush.Style := bsClear;
Canvas.RoundRect(R.Left, R.Top, R.Right-1, R.Bottom-5, 6, 6);
Canvas.Font.Color := clInfoText;
DrawText (Canvas.Handle, PChar(Caption), Length (Caption), R,
DT_NOPREFIX OR DT_WORDBREAK OR DT_CENTER OR DT_VCENTER);
end;

initialization
Application.ShowHint := false;
HintWindowClass := THSHintWindow;
Application.ShowHint := true;
end.


---

Exploited   (2002-06-17 09:51:00) [8]

>ну сделай наследника THIntWindow и рисуй как угодно

Ребята, я начинающий, по-этому "сделай наследника" мне ничего не говорит. Может, есть где-то в сети текстовуха об этом? Ссылочка лишней не будет.

---

MBo   (2002-06-17 09:35:00) [9]

ну сделай наследника THIntWindow и рисуй как угодно

---

Гас   (2002-06-17 09:34:00) [10]

>> Gass ©
>Я сам вам такую радость да ещё по такой цене напишу....

Мне это бесплатно досталось.. раньше они для xUSSR на шару раздавали.

---

Exploited   (2002-06-17 09:19:00) [11]

>оно?
Нет!

>Я сам вам такую радость да ещё по такой цене напишу....
Спасибо, обойдусь!

---

Poirot   (2002-06-17 01:48:00) [12]

> Gass ©

Я сам вам такую радость да ещё по такой цене напишу....

---

Gass   (2002-06-17 00:02:00) [13]

оно?
http://sstyle2002.narod.ru/sshots/s3.htm

---

~Rand~   (2002-06-16 19:12:00) [14]

Удалено модератором

---

Exploited   (2002-06-16 18:45:00) [15]

Да... веселый парень ~Rand~, молодец.

---

~Rand~   (2002-06-16 18:31:00) [16]

Удалено модератором

---

Exploited   (2002-06-16 18:26:00) [17]

Нет, совершенно нет!
Я видел такое чудо в одной программке. Сейчас пытался найти ёе снова, дабы связаться с автором да потолковать, но не могу до сайта достучатся. Там действительно подсказки как облака, очень красивый эффект.

---

MBo   (2002-06-16 18:22:00) [18]

оно?
http://www.delphikingdom.com/treasury/hsdialogs.htm

---

Exploited   (2002-06-16 18:18:00) [19]

Можно поточнее, а то у них сайт такой путаный (возможно только для меня)?

---

MBo   (2002-06-16 18:14:00) [20]

delphikingdom.com

---

Наверх