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

Вниз

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

← →
Серж са   (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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.006 c