Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Alesya_
0 / 0 / 0
Регистрация: 19.04.2015
Сообщений: 2
1

составить блок-схему

19.04.2015, 21:55. Просмотров 516. Ответов 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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus, ComCtrls, Buttons, StdCtrls, ExtDlgs;
 
type
    TToolType=(ttline, ttrect, ttellipse, ttroundrect, ttspray, ttpen);
    TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Panel1: TPanel;
    ScrollBox1: TScrollBox;
    StatusBar1: TStatusBar;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton5: TSpeedButton;
    OpenPictureDialog1: TOpenPictureDialog;
 
    ColorDialog1: TColorDialog;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    Label1: TLabel;
    Button1: TButton;
 
 
    procedure SpeedButton1Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
 
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
 
    procedure N2Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
 
 
   
  private
    { Private declarations }
  public
    { Public declarations }
    PenWide: Integer;
    Drawing: Boolean;
    mousepos1, mousepos2: TPoint;
    activeTool: TToolType;
    procedure DrawShape(TopLeft, BottomRight: TPoint; AMode: TPenMode);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
label1.Visible:=true;
speedbutton9.Visible:=false;
speedbutton8.Visible:=true;
activetool:= ttpen;
statusbar1.Panels[1].Text:='Инструмент рисования: Карандаш'
end;
 
procedure TForm1.N6Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.N3Click(Sender: TObject);
begin
if openpicturedialog1.Execute then
image1.Picture.LoadFromFile(openpicturedialog1.FileName);
end;
 
 
 
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Drawing:=true;
mousepos1:=point(x,y);
mousepos2:=mousepos1;
 
image1.Canvas.MoveTo(x,y);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Canvas.Brush.color:=clwhite;
Image1.Canvas.Rectangle(800,0,0,800);
 end;
 
procedure TForm1.DrawShape(TopLeft, BottomRight: TPoint; AMode: TPenMode);
var
i:integer;
begin
with Image1.Canvas do
 begin
 Pen.Mode := AMode;
 case activeTool of
 ttpen:
begin
 image1.Canvas.Pen.Width:=10;
 Image1.Canvas.LineTo(BottomRight.X, BottomRight.Y);
 end;
 ttLine:
 begin
 Image1.Canvas.MoveTo(TopLeft.X, TopLeft.Y);
 Image1.Canvas.LineTo(BottomRight.X, BottomRight.Y);
 end;
 ttRect:
 begin
 image1.Canvas.Brush.Style:=bsclear;
 Image1.Canvas.Rectangle(TopLeft.X, TopLeft.Y, BottomRight.X,BottomRight.Y);
 end;
 ttEllipse:
 begin
 image1.Canvas.Brush.Style:=bsclear;
 Image1.Canvas.Ellipse(Topleft.X, TopLeft.Y, BottomRight.X, BottomRight.Y);
 end;
 ttRoundRect:
 begin
  image1.Canvas.Brush.Style:=bsclear;
  Image1.Canvas.RoundRect(TopLeft.X, TopLeft.Y, BottomRight.X, BottomRight.Y, (TopLeft.X - BottomRight.X) div 2, (TopLeft.Y - BottomRight.Y) div 2);
  end;
  ttspray:                                                                                                   begin
  randomize;
  image1.Canvas.Pixels[topleft.x+random(image1.Canvas.Pen.Width), topleft.y+random(image1.Canvas.Pen.Width)]:=image1.Canvas.Pen.Color;
  image1.Canvas.Pixels[bottomright.x+random(image1.Canvas.Pen.Width), bottomright.y+random(image1.Canvas.Pen.Width)]:=image1.Canvas.Pen.Color;
          end;
        end;
    end;
 end;
 
 
 
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Drawing then
  begin
    DrawShape(mousepos1, Point(X, Y), pmCopy);
    Drawing := False;
     end;
end;
 
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if Drawing then
 begin
 DrawShape(mousepos1, mousepos2, pmNotXor);
 mousepos2 := Point(X, Y);
 DrawShape(mousepos1, mousepos2, pmNotXor);
  end;
  StatusBar1.Panels[0].Text := Format('X=%d, Y=%d', [X, Y]);
end;
 
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  label1.Visible:=true;
  speedbutton9.Visible:=false;
  speedbutton8.Visible:=true;
  activetool:= ttline;
  statusbar1.Panels[1].Text:='Инструмент рисования: Линия'
end;
 
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
label1.Visible:=true;
speedbutton9.Visible:=false;
speedbutton8.Visible:=true;
activetool:=ttellipse;
statusbar1.Panels[1].Text:='Инструмент рисования: Эллипс'
end;
 
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
label1.Visible:=true;
speedbutton9.Visible:=false;
speedbutton8.Visible:=true;
activetool:=ttrect;
statusbar1.Panels[1].Text:='Инструмент рисования: Прямоугольник'
end;
 
procedure TForm1.N2Click(Sender: TObject);
  var
  Bitmap: TBitmap;
begin
  Bitmap := nil;
  try
    Bitmap := TBitmap.Create;
    Bitmap.Width := 700;
    Bitmap.Height := 700;
    Image1.Picture.Graphic := Bitmap;
  finally
    Bitmap.Free;
  end;
end;
 
procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
if colordialog1.Execute then
 image1.Canvas.Pen.Color:=colordialog1.Color;
 speedbutton8.Glyph:=tbitmap.create;
 speedbutton8.Glyph.Width:=speedbutton8.Width;
 speedbutton8.Glyph.Height:=speedbutton8.Height;
 speedbutton8.Glyph.Canvas.Brush.Color:=colordialog1.Color;
 speedbutton8.Caption:='';
 speedbutton8.Glyph.Canvas.Rectangle(2,2,speedbutton8.Width-6,speedbutton8.Height-6);
end;
 
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.04.2015, 21:55
Ответы с готовыми решениями:

Составить блок-схему!
нарисуйте блок схему пожалуйста!!! буду очень признателен!

Составить блок схему
ПОМОГИТЕ ПОЖАЛУЙСТА СОСТАВИТЬ БЛОК СХЕМУ НА ЭТУ ПРОГРАММУ! Тема задания: Обучение по специальности...

Составить блок-схему
Здравствуйте, нужна помощь в составление блок-схемы данного алгоритма. procedure...

Составить блок-схему
Пусть последовательность чисел образована по следующему закону ak=k*ak-1+1/k; k=1,2,... Вводится...

Составить блок-схему алгоритма
Малыш может съесть 600 г варенья за 6 мин, а Карлсон – в два раза быстрее. За какое время они...

1
droider
Universal
Эксперт Pascal/Delphi
4538 / 2546 / 810
Регистрация: 04.10.2012
Сообщений: 9,273
19.04.2015, 21:56 2
Code Visual to FlowChart в помощь.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.04.2015, 21:56

Составить блок-схему по коду
ПОМОГИТЕ пожалуйста составить ЛЕГКУЮ блок схему по коду Программа строит матрицы из рандомных...

Составить блок-схему алгоритма
Для задач с номером вашего варианта составить блок-схему алгоритма обработки строк или столбцов...

Составить блок-схему по коду
Ребят нужна блок схема(алгоритм) {$APPTYPE CONSOLE} var A: array of Integer; N, M,...


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

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

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