JudgeG
1

Подскажите, как правильно объявить area

26.10.2014, 16:40. Показов 580. Ответов 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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids;
 
type
  TForm1 = class(TForm)
    DrawGrid1: TDrawGrid;
    Timer1: TTimer;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
var i , j , k: Integer ;
    area=j*i;
begin
DrawGrid1.Canvas.Brush.Color:=clBlack; {ìàêàåì êèñòü â ÷åðíóþ êðàñêó}
for i:=0 to 174 do
   for j:=0 to 104 do
       begin
        area:= DrawGrid1.CellRect(j,i); {âûäåëÿåì ÿ÷åéêó}
        DrawGrid1.Canvas.FillRect(area);{çàêðàøèâàåì íåáî}
        end;
        k:=-1;
        DrawGrid1.Canvas.Brush.Color:=clWhite;
                  for i:=0 to 174 do
        for j:=0 to 104 do
              begin
              inc(k);
              if frac(sqrt(k))=0 then   {óñëîâèå òîãî, ÷òî ÿ÷åéêà
                                                     ÿâëÿåòñÿ çâåçäî÷êîé}
                         begin
                               area:= DrawGrid1.CellRect(j,i);
                                                        {ïðèñâàèâàåòñÿ îáëàñòè area
                                                           ïîëîæåíèå òåêóùåé ÿ÷åéêè}
         drawGrid1.Canvas.FillRect(area);{çàêðàøèâàåì çâåçäî÷êó
                                                                        áåëûì öâåòîì}
         end;
         end;
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=false;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
close; 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=true; 
end;
 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.10.2014, 16:40
Ответы с готовыми решениями:

Подскажите как правильно создать запрос
Select * From Baza Where ID.. Как сделать чтобы находился максимальный ID? Или вернее изначально...

Подскажите как правильно написать команду Update
Нужно сделать команду Update, все получается кроме того, что не могу вставить дату. В Insert, там я...

Подскажите как правильно написать код для ComboBox
Доброго времени суток. Недавно начала изучать дельфи. Подскажите как правильно написать в следующим...

Как правильно объявить массив
Такой вопрос возник: у меня размерность массива зависит о значения spinedit1.value и вот как...

1
пофигист широкого профиля
4437 / 2927 / 828
Регистрация: 15.07.2013
Сообщений: 16,859
27.10.2014, 02:09 2
Объявить не сложно.
Delphi
1
var  area : TRect;
Но весь код модуля тут приведённый не заслуживает ничего, кроме корзины (мусорной).
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.10.2014, 02:09

Как правильно объявить класс TBrowserTab?
Доброго времени суток уважаемые форумчане, нужн ваша помощь по поводу того как исправить ошибку ...

Подскажите как правильно?
Создал простую программу для отправки писем, но вот беда мне необходимо чтобы вся программа была в...

Подскажите как сделать правильно
Доброго времени суток. Я только начинающий программист на Delphi и учусь писать службы виндовса....

Как правильно записать формулу подскажите,пожалуйста!
s(x) sm:=0; t:=1; for k:=1 to n do begin t:=t*ln(3)*x/k; sm:=sm+t;//Вычисляем сумму s(x)...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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