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

Вниз

OnPaint   Найти похожие ветки 

← →
webpauk   (2006-06-01 16:27) [0]

procedure TLabelEx.Paint;
begin
 with Canvas do
 begin
   if (fTimerEnabled) then
   begin
     Font.Color:=clRed;
     TextOut(Left, Top, Copy(Text, 1, fCurrentPosition));
   end
   else inherited;
 end;
end;

тупею а глазах. fTimerEnabled=True - ничего не рисуется вообще

---

← →
Kolan ©   (2006-06-01 16:30) [1]

> Left, Top

Где заданы?

---

← →
webpauk   (2006-06-01 16:31) [2]

unit LabelEx;

interface

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

type
 TLabelEx = class(TLabel)
 private
   fTimerEnabled: Boolean;
   fTimer: TTimer;
   fCurrentPosition: Integer;

   procedure SetTimerEnabled(const Value: Boolean);
   procedure TimerTimer(Sender: TObject);
 protected
   procedure Paint; override;
 public
   constructor Create(AOwner: TComponent); override;
   destructor Destroy; override;
 published
   property TimerEnabled: Boolean read fTimerEnabled write SetTimerEnabled;
 end;

---

← →
Джо ©   (2006-06-01 16:32) [3]

Вместо Left,Top 0,0 поставь...

---

← →
webpauk   (2006-06-01 16:32) [4]

> Kolan ©   (01.06.06 16:30) [1]

упс...
спасибо

---

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

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

Наверх

Память: 0.47 MB
Время: 0.232 c