Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, уважаемые эксперты!
Вопрос такой. Как вывести число в PaintBox? Например мы пишем арифметическое выражение а ответ на него выводится в PaintBox в виде картинки? Естественно число может быть и дробным.
Если это не возможно то какие могут быть альтернативные варианты решения проблемы?
Заранее спасибо.

Вопрос задал: Калинкин Александр (статус: Посетитель) Вопрос отправлен: 7 апреля 2010, 04:29 Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: Егор

Здравствуйте, Калинкин Александр!
Число преобразуем в текст функцией FloatToStr, а выводим текст методом TextOut:

procedure TForm1.Button1Click(Sender: TObject);
var
  x : extended;
begin
  x := pi;
  PaintBox1.Canvas.TextOut(10, 10, FloatToStr(x));
end;

Ответ отправил: Егор (статус: 10-ый класс) Время отправки: 7 апреля 2010, 05:11 Оценка за ответ: 5 Комментарий к оценке: Большое спасибо!

Ответ #2. Отвечает эксперт: min@y™

2Егор: может лучше, всё-таки вот так?

var
  x: extended; // выводимое число - глобальная переменная
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  // обработчик события TPaintBox.OnPaint 
  PaintBox1.Canvas.TextOut(10, 10, FloatToStr(x));
end;

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 7 апреля 2010, 08:21

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.