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

Вниз

Срочно!!!! Как осуществить подсветку текста? Срочно!!!!   Найти похожие ветки 

 
Серж са   (2002-07-26 13:13) [0]

Как осуществить подсветку текста: какую компоненту выбрать, и пример.

Заранее спасибо.


 
lenin ©   (2002-07-26 13:24) [1]

В принципе можно использовать обычный TLabel, используя два события: OnMouseMove и OnMouseLeave.
Пример:
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label1.Font.Color:=clBlue;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
label1.Font.Color:=clBlack;
end;


 
Skier ©   (2002-07-26 13:29) [2]

>lenin
А где ты нашёл MouseLeave у TLabel ???


 
lenin ©   (2002-07-26 13:34) [3]

А что, ее у тебя разве нет?
Можно использовать компонент TmyaSuperLabel. Я его где то в инете нарыл, где точно не помню.


 
Explorer ©   (2002-07-26 13:37) [4]

У RXLabel, MouseLeave есть точно


 
Skier ©   (2002-07-26 13:53) [5]

>Серж са

примерно так :


unit ExLabel;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TExLabel = class(TLabel)
private
FFontColor: TColor;
FHighlightColor: TColor;
procedure CMMouseEnter(var Message: TMessage); message
CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message
CM_MOUSELEAVE;
procedure SetHighlightColor(const Value: TColor);
protected
public
constructor Create(AOwner : TComponent); override;
destructor Destroy; override;
published
property HighlightColor : TColor read FHighlightColor write
SetHighlightColor default clBlue;
end; //TExLabel

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("ExLabel", [TExLabel]);
end;

{ TExLabel }

procedure TExLabel.CMMouseEnter(var Message: TMessage);
begin
inherited;
Font.Color := FHighlightColor;
end;

procedure TExLabel.CMMouseLeave(var Message: TMessage);
begin
inherited;
Font.Color := FFontColor;
end;

constructor TExLabel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FFontColor := Font.Color;
FHighlightColor := clBlue;
end;

destructor TExLabel.Destroy;
begin
inherited Destroy;
end;

procedure TExLabel.SetHighlightColor(const Value: TColor);
begin
FHighlightColor := Value;
end;

end.



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

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

Наверх




Память: 0.48 MB
Время: 0.015 c
1-24014
eruc
2002-07-28 19:50
2002.08.08
---|Ветка была без названия|---


1-24044
ValeX
2002-07-23 16:22
2002.08.08
Надо определить: Установлен ли компонент?


1-24112
V.Turecky
2002-07-26 19:11
2002.08.08
Запуск программ своими силами...


6-24160
начинающий програмер
2002-05-24 22:29
2002.08.08
Баннеры


1-24106
SPeller
2002-07-25 12:56
2002.08.08
PChar