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

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

OnPaint [D6, XP]

webpauk ©   (2006-06-01 16:27:00) 

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 - ничего не рисуется вообще

---

Джо   (2006-06-01 16:32:00) [1]

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

---

webpauk   (2006-06-01 16:32:00) [2]

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

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

---

webpauk   (2006-06-01 16:31:00) [3]

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;

---

Kolan   (2006-06-01 16:30:00) [4]

> Left, Top

Где заданы?

---

Наверх