Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.049 c
2-1149101351
MAXHo
2006-05-31 22:49
2006.06.18
Как сделать такую панельку на форме?


15-1148723193
Kolan
2006-05-27 13:46
2006.06.18
Как преобразовать 4 байта в тип Float


2-1149159277
koha
2006-06-01 14:54
2006.06.18
CreateProcess


1-1147371417
GanibalLector
2006-05-11 22:16
2006.06.18
TMethod


2-1148284846
SHAB
2006-05-22 12:00
2006.06.18
duplicatehanle() - getlast error()=6 ((