Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.05;
Скачать: CL | DM;

Вниз

Многострочный хинт (с форматированием текста)   Найти похожие ветки 

 
}|{yk ©   (2003-12-19 10:59) [0]

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


 
KSergey ©   (2003-12-19 11:25) [1]

4th GUI Library v0.33 (64Kb)

Набор очень настраиваемых компонент. Библиотека содержит: (ну и переводик же у меня ;)
+TFourthShortcutBar - панель (кнопок) в стиле Outlook 2000;
+обновленный TFourthTabSet - существенно настраиваемый TTabSet;
+TFourthStandardButton - новый взгляд на стандартную кнопку;
+TFourthImage - TImage с добавочными картинками, с отображением, когда указатель мыши внутри объекта или за ним;
+TFourthHintPanel - для показа всплывающих подсказок.

С исходными текстами
Screenshot: http://www.delphipages.com/uploads/screenshots/4thGUILib.gif
[Screenshot выглядит весьма красиво]

Вероятно, версия давно уже более новая есть.


 
Serge   (2003-12-19 11:39) [2]

А вот еще примерчик с хинтом


Как поместить иконку в окошко подсказки
Следующий код помещает главную иконку приложения в окошки подсказок:

{--начало кода--}

unit HintX;

interface

uses
Windows, Messages, Controls;

type
TIconHintX = class(THintWindow)
protected
procedure Paint; override;
public
function CalcHintRect(MaxWidth: Integer; const AHint: string; AData: Pointer): TRect; override;
end;

implementation

uses Forms;

{ TIconHintX }

{-Вычисляем новый размер окошка подсказки для помещения в него иконки:-}
function TIconHintX.CalcHintRect(MaxWidth: Integer; const AHint: string;
AData: Pointer): TRect;
begin
Result := inherited CalcHintRect(MaxWidth, AHint, AData); Result.Right := (Length(AHint) * 5) + Application.Icon.Width;
Result.Bottom := (Application.Icon.Height) * 2;
end;

procedure TIconHintX.Paint;
const
MARGIN = 5;
begin
inherited;
Canvas.Draw(MARGIN, MARGIN * 5, Application.Icon);
SendMessage(Handle, WM_NCPAINT, 0, 0); //рисуем рамку окошка подсказки
end;

initialization
//связываем наш новый класс с классом окошка подсказки установленным поумолчанию:
HintWindowClass := TIconHintX;

end.
{--конец кода--}




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

Текущий архив: 2004.01.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
14-12036
Mike Kouzmine
2003-12-09 13:18
2004.01.05
Сегодня играет Локомотив.


14-12077
Undert
2003-12-15 15:00
2004.01.05
MySql_Запрос


1-11940
Cerber
2003-12-20 13:55
2004.01.05
Как из Memo перенести все данные в массив. Тоесть каждый символ в


14-12102
SEYD
2003-12-14 15:44
2004.01.05
Apache + delphi web applications


4-12211
}|{yk
2003-11-03 16:40
2004.01.05
Ресурсы