Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Как перенести информацию из одной формы в другую? https://www.cyberforum.ru/ delphi-beginners/ thread1738781.html
Имеется дерево оно находится на первой форме, нужно чтобы при нажатии на один из пунктов дерева и кнопку, появлялась информация в мемо во второй форме. Как перенести это действие? procedure...
Разбор JSON Delphi
Помогите разобрать объект через uLkJSON. Выводит пустые строки вместо имён. program jsontest; {$APPTYPE CONSOLE} uses SysUtils, windows, classes,
Delphi Меняет цвет формы! https://www.cyberforum.ru/ delphi-beginners/ thread1738751.html
Подскажите пожалуйста, код программы, где кнопка при нажатии из левого верхнего угла перемещается в правый верхний угол, при этом меняется цвет формы на красный, потом при нажатии из правого...
Delphi Диаграмма в Exel из БД Delphi Есть бд обьсните как вывести в Exel диаграму, код робочий но я не могу в нём разобраться. У меня есть 8 столбцов как их добавить в диаграмму не как не могу разобраться что к чему. procedure... https://www.cyberforum.ru/ delphi-beginners/ thread1738742.html
Вычисление бесконечных рядов Delphi
Доброго времени суток! Помогите выполнить последнюю лабу. Нужно написать программу для вычисления данного выражения. :) y=\sum_{n=1}^\infty \frac{(-1)^n}{x^nn!} для 0 < x < 1 с точностью e...
Delphi Код Хемминга Нашел на кибер форуме такой код: Delphi 7 unit lab3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,Controls, Forms, Dialogs, Grids, StdCtrls, Buttons; https://www.cyberforum.ru/ delphi-beginners/ thread1738720.html
Delphi Программа для вычисления касательных Сап всем. Не могу никак придумать, как сделать программу. Есть решение, каркас, но не знаю с чего начать:( прикреплю задание и проект. Пмогите кто чем может https://www.cyberforum.ru/ delphi-beginners/ thread1738640.html Delphi Убрать диагональные элементы матрицы
Вот написал что то но не так работает, нужно из матрицы 5 на 5 убрать все элементы по диагонали и вывести, что бы получилось так 2345,1345,1235 и т. д. readln(n); for i:=1 to n-1 do for j:=1...
Delphi Поиск в типизированном файле через edit (синтаксический анализатор) помогите пожалуйста. времени очень мало осталось, но не могу сделать поиск. задача состоит в том, что нужно через поле ввода едит найти фамилию или заработную плату в типизированом файле. тоесть,... https://www.cyberforum.ru/ delphi-beginners/ thread1738594.html Delphi Преобразовать строку S в строку длинной N Имеем строку S и число N. Преобразовать строку S в строку длинной N таким образом: если длина строки S больше, чем N, то откинуть первые символы, если длина строки S меньше, чем N, то в её начало... https://www.cyberforum.ru/ delphi-beginners/ thread1738592.html
Альбомная печать Delphi
Извиняюсь, что создал новую тему (остальные ни как не помогли), перепробовал все что можно, но никак не могу решить проблему: печатаю документы через делфи, документы в портретной ориентации...
Delphi Ошибка сохранения документа WORD https://www.cyberforum.ru/ delphi-beginners/ thread1738579.html
Всем привет! Работаю над созданием отчёта в WORD, и столкнулся с такой ошибкой: после добавления 5 параграфа в документ, вылетает ошибка при попытке сохранения документа и жалуется на строчку: "...
0 / 0 / 0
Регистрация: 20.12.2015
Сообщений: 23
0

Отрисовка - Delphi - Ответ 9158677

18.05.2016, 20:44. Показов 742. Ответов 1
Метки (Все метки)

Форумчани привет, есть код программы в коде текст пишется через канву на форме, НО при сворачивание формы и разворачивание, все что было написано на канве стирается, что делать???

Delphi
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure O_sobake(n:integer);
var a:integer;
begin
a:=20;
if n>0 then
while n>0  do
 begin;
 
Form1.Canvas.TextOut(10,a,'Как это было:');
a:=a+20;
 Form1.Canvas.TextOut(10,a,'У попа была собака - он ее любил.');
 a:=a+20;
 Form1.Canvas.TextOut(10,a,'Она съела кусок мяса - он ее убил.');
 a:=a+20;
 Form1.Canvas.TextOut(10,a,'Убил и закопал и на могиле написал:');
 a:=a+20;
 Form1.Canvas.TextOut(10,a,'');
 a:=a+10;
 
 
  Form1.Memo1.Lines.Add('');
  Form1.Memo1.Lines.Add('Как это было:');
  Form1.Memo1.Lines.Add('У попа была собака - он ее любил.');
  Form1.Memo1.Lines.Add('Она съела кусок мяса - он ее убил.');
  Form1.Memo1.Lines.Add('Убил и закопал и на могиле написал:');
  n:=n-1;
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var n,e:integer;
begin
val(edit1.Text,n,e);
if e<>0 then
begin
showmessage('Натуральное число должно быть введено правильно!');
exit;
end;
 
if n<1 then
begin
showmessage('Натуральное число должно быть не меньше 1!');
exit;
end;
 
n:=strtoint(Edit1.Text);
Memo1.ScrollBars:=ssVertical;
O_sobake(n);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
end.


Вернуться к обсуждению:
Отрисовка Delphi
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.05.2016, 20:44
Готовые ответы и решения:

Отрисовка подменю
Нужно графически нарисовать меню. Например в том же блокноте. То, что отловить нужную программу...

Отрисовка PageControl'a
Добрый день! Имеется PageControl с ownerdraw:=true; Динамически в нём создаются и удаляются...

отрисовка линии
пишу логический анализатор, функция читает состояние порта, и присваивает 150 раз в секунду...

Отрисовка StringGrid
procedure TForm16.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State:...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.05.2016, 20:44

Отрисовка RTF на канве
Добрый день. Хочу отричовать RTF текст на канве, в идеале мечтаю сотворить что-то вроде: function...

Отрисовка логических схем
Здравствуйте, не подскажете, как отрисовать схему логической функции с помощью канваса?

Отрисовка ячеек StringGrid
Приветствую! Столкнулся с проблемой при динамическом создании StringGrid-ov. Ячейки почему-то...

StringGrid, скрытие и отрисовка ячеек
Здраствуйте, хотел спросить совета у знающих людей. У меня есть StringGrid1 заполненный данными. ...

Отрисовка цветных ячеек в StringGrid
Делаю ИСС Кинотеатр и нужно сделать выбор места в зале. Делаю так создаю массив из 0 1 и 2. 0 -...

Кастомная отрисовка в компонентах DevExpress
Всем доброго времени суток. Вопрос по DevExpress (TcxTreeList - CustomDrawDataCell) Если...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.