|
Вопрос # 4 981/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Как вставит- текст в TShape.
узвените за ошибки, я поляк.
Приложение: Переключить в обычный режим-
- Type
- TMyShape=Class(TShape)
- Public
- Property Canvas;
- End;
-
- TMyShape(Shape).Canvas.TextOut(1,15,'test');
-
-
 |
Вопрос задал: Гардыэа (статус: Посетитель)
Вопрос отправлен: 29 января 2011, 19:17
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: DNK
Здравствуйте, Гардыэа!
type
TMyShape=Class(TShape)
protected
procedure Paint; override;
end;
procedure TMyShape.Paint;
begin
inherited;
Canvas.Font.Color := clBlack;
Canvas.TextOut(1,15,'test');
end;
Чтобы понимать что делаешь, набери в поисковике "Delphi создание визульный компонент".
 |
Ответ отправил: DNK (статус: Студент)
Время отправки: 6 февраля 2011, 17:28
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 30 января 2011, 17:50; участников в обсуждении: 3.
|
|
DNK (статус: Студент), 29 января 2011, 20:27 [#1]:
type
TMyShape=Class(TShape)
protected
procedure Paint; override;
end;
procedure TMyShape.Paint;
begin
inherited;
Canvas.Font.Color := clBlack;
Canvas.TextOut(1,15,'test');
end;
Чтобы понимать что делаешь, набери в поисковике "Delphi создание визульный компонент".
"Digital Networked Knight"
|
|
|
Гардыэа (статус: Посетитель), 30 января 2011, 00:51 [#2]:
по-прежнему не вижу текста
на Shape
type
TMyShape=Class(TShape)
protected
procedure Paint; override;
end;procedure TMyShape.Paint;
begin
inherited;
Canvas.Font.Color := clBlack;
Canvas.TextOut(1,15,'test');
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
var Shape : TShape;
begin
Shape := TShape.Create( Self );
Shape.Parent := Self;
Shape.Left := 150;
Shape.Top := 150;
Shape.Tag:=0;
shape.Shape:=stRoundRect;
shape.Height:=60;
shape.Width:=100;
nr:=nr+1;
shape.Name:='M'+inttostr(nr);
// TMyShape(Shape).Canvas.Font.Color:=clblack;
//TMyShape(Shape).Canvas.Font.Size:=10;
// TMyShape(Shape).Canvas.TextOut(5,5,'test');
// TLabel(Shape).Canvas.TextOut(0, 0, '67890');
TMyShape(Shape).Paint;
Shape.Cursor:= crhandPoint;
RegComponents(self, SizeCtrl);
SizeCtrl.Enabled := true;
shape.SendToBack;
где ошибка?
|
|
min@y™ (статус: Доктор наук), 30 января 2011, 10:04 [#3]:
Скажи, пан, зачем такие извращения? Зачем тебе текст на TShape? Может быть твою задачу можно решить как-то иначе и проще?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
DNK (статус: Студент), 30 января 2011, 17:50 [#4]:
Гардыэа: А сам шейп видишь?
Исправь: Shape := TMyShape.Create( Self );
Убрать:
TMyShape(Shape).Paint;
"Digital Networked Knight"
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
