Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Компоненты и классы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 16.07.2011, 19:42
stil stil вне форума
Новичок
 
Регистрация: 24.11.2010
Сообщения: 91
Репутация: 41
По умолчанию Отрисовка на Canvas

Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
unit GraphicControl1;
interface
uses
  Windows, Messages, SysUtils, Classes, Controls,Graphics;
type
  TGraphicControl1 = class(TGraphicControl)
  private
    FNum: integer;
    procedure SetNum(Value: integer);
  protected
  public
    procedure Paint;override;
    property Num: integer read FNum write SetNum;
  published
  end;
...
 
procedure TNode.SetNum(Value: integer);
begin
  if FNum<>Value then begin
    FNum:=Value;
    Canvas.Pen.Color:=clRed;
    Canvas.Font.Size:=14;
    Canvas.TextOut(10,10,IntToStr(FNum));
  end;
end;
Код:
1
2
3
4
5
n:=TGraphicControl1.Create(Form1);
n.Parent:=Form1;
n.Left:=x;
n.Top:=y;
n.Num:=1;
вот так вот не хочет работать. число не отрисовается
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:34.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025