Minor changes

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

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

View File

@ -99,7 +99,7 @@ var
wr: TRect;
begin
wr.assign(0, 0, 60, 19);
inherited Init(wr, 'Generator');
inherited Init(wr, 'Mandelbrot generator');
Options := Options or ofCentered;
HelpCtx := $F000;
@ -107,7 +107,7 @@ begin
curY := 2;
with GenerateData do begin
path := './images';
path := '../generated_images';
width := '512';
height := '512';
power := '2';
@ -137,9 +137,9 @@ end;
procedure TMSApp.ShowAbout();
begin
MessageBox(
#3'Multibrot Set Generator GUI'#13 +
#3'Math images generator'#13 +
#3'Developed by Artem K.'#13 +
#3'MF BMSTU 2019',
#3'MF BMSTU 2019 - 2020',
nil,
mfInformation or mfOkButton
);
@ -200,7 +200,7 @@ begin
GetExtent(r);
r.b.y := r.a.y + 1;
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('~E~xit', 'Alt+X', kbAltX, cmQuit, hcExit,
nil)))))

View File

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

Binary file not shown.

Before

Width:  |  Height:  |  Size: 247 KiB