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

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

Срочно!!!! Как осуществить подсветку текста? Срочно!!!! [D6, Win95/98, WinXP]

Серж са ©   (2002-07-26 13:13:00) 

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

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

---

Skier   (2002-07-26 13:53:00) [1]

>Серж са

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


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.


---

Explorer   (2002-07-26 13:37:00) [2]

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

---

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

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

---

Skier   (2002-07-26 13:29:00) [4]

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

---

lenin   (2002-07-26 13:24:00) [5]

В принципе можно использовать обычный 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;

---

Наверх