KoroLion/FunctionImagingInPascal
1
1
Fork 0
Code Issues 9 Pull Requests Releases 1 Wiki Activity

Minor changes

Browse Source
This commit is contained in:
KoroLion 2020-04-27 20:52:58 +03:00
parent be818315f6
commit f2fb29308b
6 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.gitignore vendored Normal file
View File

@ -0,0 +1,4 @@
*.o
*.ppu
*.exe
*.out

5
build.bat Normal file
View File

@ -0,0 +1,5 @@
fpc main.pas
cd gui
fpc gui.pas
pause

1
generated_images/.gitignore vendored Normal file
View File

@ -0,0 +1 @@
*.bmp

10
gui/gui.pas
View File

@ -99,7 +99,7 @@ var
wr: TRect; wr: TRect;
begin begin
wr.assign(0, 0, 60, 19); wr.assign(0, 0, 60, 19);
inherited Init(wr, 'Generator'); inherited Init(wr, 'Mandelbrot generator');
Options := Options or ofCentered; Options := Options or ofCentered;
HelpCtx := $F000; HelpCtx := $F000;
@ -107,7 +107,7 @@ begin
curY := 2; curY := 2;
with GenerateData do begin with GenerateData do begin
path := './images'; path := '../generated_images';
width := '512'; width := '512';
height := '512'; height := '512';
power := '2'; power := '2';
@ -137,9 +137,9 @@ end;
procedure TMSApp.ShowAbout(); procedure TMSApp.ShowAbout();
begin begin
MessageBox( MessageBox(
#3'Multibrot Set Generator GUI'#13 + #3'Math images generator'#13 +
#3'Developed by Artem K.'#13 + #3'Developed by Artem K.'#13 +
#3'MF BMSTU 2019', #3'MF BMSTU 2019 - 2020',
nil, nil,
mfInformation or mfOkButton mfInformation or mfOkButton
); );
@ -200,7 +200,7 @@ begin
GetExtent(r); GetExtent(r);
r.b.y := r.a.y + 1; r.b.y := r.a.y + 1;
MenuBar := New(PMenuBar, Init(r, NewMenu( MenuBar := New(PMenuBar, Init(r, NewMenu(
NewItem('~N~ew', '', kbNoKey, cmNew, hcNew, NewItem('~M~andelbrot', '', kbNoKey, cmNew, hcNew,
NewItem('~A~bout', '', kbNoKey, cmAbout, hcNoContext, NewItem('~A~bout', '', kbNoKey, cmAbout, hcNoContext,
NewItem('~E~xit', 'Alt+X', kbAltX, cmQuit, hcExit, NewItem('~E~xit', 'Alt+X', kbAltX, cmQuit, hcExit,
nil))))) nil)))))

2
images/generated/.gitignore vendored
View File

@ -1,2 +0,0 @@
*
!.gitignore

BIN
images/k.bmp
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 247 KiB