Форум: "Основная";
Текущий архив: 2002.07.04;
Скачать: [xml.tar.bz2];

Вниз

Подсказки в виде облаков.   Найти похожие ветки 

← →
Exploited   (2002-06-16 18:12) [0]

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

---

← →
MBo   (2002-06-16 18:14) [1]

delphikingdom.com

---

← →
Exploited   (2002-06-16 18:18) [2]

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

---

← →
MBo   (2002-06-16 18:22) [3]

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

---

← →
Exploited   (2002-06-16 18:26) [4]

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

---

← →
~Rand~   (2002-06-16 18:31) [5]

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

---

← →
Exploited   (2002-06-16 18:45) [6]

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

---

← →
~Rand~   (2002-06-16 19:12) [7]

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

---

← →
Gass   (2002-06-17 00:02) [8]

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

---

← →
Poirot   (2002-06-17 01:48) [9]

> Gass ©

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

---

← →
Exploited   (2002-06-17 09:19) [10]

>оно?
Нет!

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

---

← →
Гас   (2002-06-17 09:34) [11]

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

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

---

← →
MBo   (2002-06-17 09:35) [12]

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

---

← →
Exploited   (2002-06-17 09:51) [13]

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

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

---

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

У Пачеко и Тейксейры есть пример 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-21 12:42) [15]

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

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

---

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

Exploited (21.06.02 12:42)

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

---

← →
Exploited   (2002-06-21 13:30) [17]

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

---

← →
Exploited   (2002-06-21 14:29) [18]

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

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

---

← →
greenrul   (2002-06-21 14:32) [19]

2Exploited:

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

---

← →
Exploited   (2002-06-21 14:44) [20]

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

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.07.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.48 MB
Время: 0.005 c