4aiman/Tales-of-Zestiria-Fusion-Calc
1
0
Fork 0
Code Issues Pull requests Projects Releases 2 Packages Wiki Activity Actions

visualization

Browse source
This commit is contained in:
4aiman 2020-04-22 19:08:18 +03:00
commit 797d6307e1
7 changed files with 5743 additions and 867 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
README.md
View file

Binary file not shown.

87
ToZcalc.ctps
View file

@ -8,9 +8,9 @@
<Unit0>
<Filename Value="ToZcalc.ppr"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="1"/>
<CursorPos X="35" Y="14"/>
<UsageCount Value="34"/>
<EditorIndex Value="2"/>
<CursorPos Y="17"/>
<UsageCount Value="49"/>
<Loaded Value="True"/>
</Unit0>
<Unit1>
@ -20,34 +20,36 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<CursorPos X="23" Y="9"/>
<UsageCount Value="34"/>
<TopLine Value="307"/>
<CursorPos X="77" Y="327"/>
<UsageCount Value="49"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="C:\codetyphon\typhon\lcl\interfaces\win32\win32listsl.inc"/>
<FRMtype Value="0"/>
<EditorIndex Value="-1"/>
<EditorIndex Value="1"/>
<TopLine Value="132"/>
<CursorPos Y="153"/>
<UsageCount Value="12"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="main.frm"/>
<FRMtype Value="0"/>
<EditorIndex Value="3"/>
<TopLine Value="325"/>
<CursorPos X="56" Y="352"/>
<UsageCount Value="13"/>
<EditorIndex Value="4"/>
<TopLine Value="1752"/>
<CursorPos X="16" Y="1787"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="FRM"/>
</Unit3>
<Unit4>
<Filename Value="ToZcalc.ctpr"/>
<FRMtype Value="0"/>
<EditorIndex Value="2"/>
<UsageCount Value="13"/>
<EditorIndex Value="3"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="XML"/>
</Unit4>
@ -55,123 +57,122 @@
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="main.pas"/>
<Caret Line="226" Column="18" TopLine="186"/>
<Caret Line="285" Column="16" TopLine="265"/>
</Position1>
<Position2>
<Filename Value="main.pas"/>
<Caret Line="225" Column="18" TopLine="185"/>
<Caret Line="50" Column="28" TopLine="32"/>
</Position2>
<Position3>
<Filename Value="main.pas"/>
<Caret Line="226" Column="18" TopLine="186"/>
<Caret Line="345" Column="17" TopLine="325"/>
</Position3>
<Position4>
<Filename Value="main.pas"/>
<Caret Line="225" Column="18" TopLine="185"/>
<Caret Line="322" Column="71" TopLine="304"/>
</Position4>
<Position5>
<Filename Value="main.pas"/>
<Caret Line="226" Column="18" TopLine="186"/>
<Caret Line="201" Column="6" TopLine="190"/>
</Position5>
<Position6>
<Filename Value="main.pas"/>
<Caret Line="225" Column="18" TopLine="185"/>
<Caret Line="281" TopLine="256"/>
</Position6>
<Position7>
<Filename Value="main.pas"/>
<Caret Line="226" Column="18" TopLine="186"/>
<Caret Line="161" Column="58" TopLine="132"/>
</Position7>
<Position8>
<Filename Value="main.pas"/>
<Caret Line="225" Column="18" TopLine="185"/>
<Caret Line="277" Column="16" TopLine="265"/>
</Position8>
<Position9>
<Filename Value="main.pas"/>
<Caret Line="226" Column="18" TopLine="186"/>
<Caret Line="74" Column="32" TopLine="41"/>
</Position9>
<Position10>
<Filename Value="main.pas"/>
<Caret Line="225" Column="18" TopLine="185"/>
<Caret Line="224" Column="14" TopLine="198"/>
</Position10>
<Position11>
<Filename Value="main.pas"/>
<Caret Line="226" Column="18" TopLine="186"/>
<Caret Line="278" Column="34" TopLine="243"/>
</Position11>
<Position12>
<Filename Value="main.pas"/>
<Caret Line="225" Column="18" TopLine="185"/>
<Caret Line="314" Column="20" TopLine="296"/>
</Position12>
<Position13>
<Filename Value="main.pas"/>
<Caret Line="227" Column="18" TopLine="187"/>
<Caret Line="345" Column="32" TopLine="311"/>
</Position13>
<Position14>
<Filename Value="main.pas"/>
<Caret Line="226" Column="18" TopLine="186"/>
<Caret Line="350" Column="24" TopLine="316"/>
</Position14>
<Position15>
<Filename Value="main.pas"/>
<Caret Line="227" Column="18" TopLine="187"/>
<Caret Line="223" Column="9" TopLine="202"/>
</Position15>
<Position16>
<Filename Value="main.pas"/>
<Caret Line="226" Column="18" TopLine="186"/>
<Caret Line="277" Column="18" TopLine="243"/>
</Position16>
<Position17>
<Filename Value="main.pas"/>
<Caret Line="227" Column="18" TopLine="187"/>
<Caret Line="278" Column="26" TopLine="244"/>
</Position17>
<Position18>
<Filename Value="main.pas"/>
<Caret Line="226" Column="18" TopLine="186"/>
<Caret Line="293" Column="15" TopLine="259"/>
</Position18>
<Position19>
<Filename Value="main.pas"/>
<Caret Line="227" Column="18" TopLine="187"/>
<Caret Line="318" Column="23" TopLine="287"/>
</Position19>
<Position20>
<Filename Value="main.pas"/>
<Caret Line="226" Column="18" TopLine="186"/>
<Caret Line="345" Column="32" TopLine="311"/>
</Position20>
<Position21>
<Filename Value="main.pas"/>
<Caret Line="153" Column="27" TopLine="122"/>
</Position21>
<Position22>
<Filename Value="main.pas"/>
<Caret Line="233" TopLine="192"/>
<Caret Line="224" Column="9" TopLine="190"/>
</Position22>
<Position23>
<Filename Value="main.pas"/>
<Caret Line="153" Column="18" TopLine="133"/>
<Caret Line="321" Column="25" TopLine="287"/>
</Position23>
<Position24>
<Filename Value="main.pas"/>
<Caret Line="56" TopLine="21"/>
<Caret Line="345" Column="24" TopLine="311"/>
</Position24>
<Position25>
<Filename Value="main.pas"/>
<Caret Line="153" Column="13" TopLine="132"/>
<Caret Line="308" Column="93" TopLine="128"/>
</Position25>
<Position26>
<Filename Value="main.pas"/>
<Caret Line="152" Column="44" TopLine="145"/>
<Caret Line="293" Column="26" TopLine="284"/>
</Position26>
<Position27>
<Filename Value="main.pas"/>
<Caret Line="237" TopLine="216"/>
<Caret Line="302" Column="26" TopLine="293"/>
</Position27>
<Position28>
<Filename Value="main.pas"/>
<Caret Line="222" Column="37" TopLine="195"/>
<Caret Line="282" Column="7" TopLine="281"/>
</Position28>
<Position29>
<Filename Value="main.pas"/>
<Caret Line="225" Column="42" TopLine="210"/>
<Caret Line="286" Column="58" TopLine="276"/>
</Position29>
<Position30>
<Filename Value="main.pas"/>
<Caret Line="211" Column="43" TopLine="180"/>
<Caret Line="284" Column="58" TopLine="270"/>
</Position30>
</JumpHistory>
<RunParams>

BIN
ToZcalc.res
View file

Binary file not shown.

6340
main.frm
View file

File diff suppressed because it is too large Load diff

183
main.pas
View file

@ -6,13 +6,14 @@ interface
uses
Windows, Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
ActnList, LResources, ExtCtrls;
ActnList, LResources, ExtCtrls, Grids, ComCtrls, Types;
type
{ TForm1 }
TForm1 = class(TForm)
Bevel1: TBevel;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
@ -26,12 +27,31 @@ type
Edit3: TEdit;
Edit4: TEdit;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
ImageList1: TImageList;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
hintl: TLabel;
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox1DrawItem(Control: TWinControl; Index: Integer;
ARect: TRect; State: TOwnerDrawState);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Image6MouseLeave(Sender: TObject);
procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer
);
procedure Image6MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image6Paint(Sender: TObject);
procedure Image7Paint(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure UpdateForm();
private
function NewElement(edit:TEdit): string;
@ -53,6 +73,10 @@ var i:array[0..1, 0..3] of integer; s1, s2, s3:string;
c: array [0..7] of TCombobox;
d: array [0..3] of TEdit;
s: array [0..3] of string;
m: array [0..3] of TImage;
g: array [0..49] of integer;
g2: array [0..49] of integer;
re: array [0..3] of integer;
const
@ -89,7 +113,7 @@ type
end;
{ TForm1 }
function Tform1.NewElement(edit:TEdit): string;
function TForm1.NewElement(edit: TEdit): string;
var t, r:integer; id1,id2,col1,col2,row1,row2,id3,col3,row3, type_:integer; item1, item2, item3:string;
begin//
with edit do begin
@ -147,8 +171,14 @@ begin//
end;
item3 := ComboBox1.Items[id3];
text := item3;
s[r-1] := item3;
re[r-1] := id3-1;
text := ' '+item3;
s[r-1] :=item3;
m[r-1].Parent:=edit;
m[r-1].Canvas.Clear;
Imagelist1.Draw(m[r-1].Canvas, 2, 2, id3);
end;
end;
@ -166,10 +196,19 @@ begin //
i[tag div 4, id] := ItemIndex;
NewElement(d[id]);
end;
UpdateForm();
end;
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
ARect: TRect; State: TOwnerDrawState);
begin//
with Control as TComboBox do
if index > 0 then begin
Canvas.FillRect(Arect);
Imagelist1.Draw(Canvas, aRect.Left+2, aRect.Top+2, Index );
Canvas.TextOut(ARect.Left+30, ARect.Top+2, Items[Index]);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
@ -179,10 +218,16 @@ begin
i[0,_] := 0;
i[1,_] := 0;
p[_] := 0;
re[_]:=0;
end;
s1:='';
s2:='';
for _ := 0 to 49 do begin
g[_]:=0;
g2[_]:=0;
end;
with sender as TForm1 do begin
c[0]:=Combobox1;
c[1]:=Combobox2;
@ -197,8 +242,20 @@ begin
d[1]:=Edit2;
d[2]:=Edit3;
d[3]:=Edit4;
end;
m[0]:=Image2;
m[1]:=Image3;
m[2]:=Image4;
m[3]:=Image5;
m[0].Canvas.Clear;
m[1].Canvas.Clear;
m[2].Canvas.Clear;
m[3].Canvas.Clear;
end;
Image6.Canvas.Clear;
Image7.Canvas.Clear;
end;
procedure TForm1.FormShow(Sender: TObject);
@ -216,5 +273,117 @@ begin
end;
procedure TForm1.Image6MouseLeave(Sender: TObject);
begin
hintl.Visible:=false;
end;
procedure TForm1.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
hintl.Caption:=c[0].items[(x div 40)*5+(y div 40)+1];
hintl.Left:=(sender as TControl).Left + X+20;
hintl.Top:=(sender as TControl).Top +Y+1;
hintl.Visible:=true;
end;
procedure TForm1.Image6MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var idx, j, n:integer;
begin
idx:= (x div 40)*5+(y div 40);
if button = mbLeft then g[idx] := g[idx] + 1;
if button = mbRight then g[idx] := g[idx] - 1;
if g[idx] <0 then g[idx]:=0;
UpdateForm();
end;
procedure TForm1.Image6Paint(Sender: TObject);
var index:integer;
begin
with (sender as TImage) do begin
Canvas.Brush.Color:=$00202125;
Canvas.Clear;
Canvas.Pen.Color:=clCream;
Canvas.Font.Color:=clCream;
Canvas.Font.Size:=10;
for index:=1 to 50 do begin
if g[index-1] = 0 then
begin
if (index<41) then
imagelist1.StretchDraw(canvas, (((index-1) div 5)+1)+50, Rect(40*(((index-1) div 5)), 40*(((index-1) mod 5)), 40*(((index-1) div 5))+38, 40*(((index-1) mod 5))+38));
if (index>40) and (index < 46) then
imagelist1.StretchDraw(canvas, (((index-1) div 5)+1+(index-1) mod 5)+50, Rect(40*(((index-1) div 5)), 40*(((index-1) mod 5)), 40*(((index-1) div 5))+38, 40*(((index-1) mod 5))+38));
if (index > 45) then
imagelist1.StretchDraw(canvas, (((index-1) div 5)+5)+50, Rect(40*(((index-1) div 5)), 40*(((index-1) mod 5)), 40*(((index-1) div 5))+38, 40*(((index-1) mod 5))+38));
end
else begin
imagelist1.StretchDraw(canvas, index, Rect(40*(((index-1) div 5)), 40*(((index-1) mod 5)), 40*(((index-1) div 5))+38, 40*(((index-1) mod 5))+38));
canvas.textout(40*(((index-1) div 5))+30, 40*(((index-1) mod 5))+22, inttostr(g[index-1]));
end;
//canvas.textout(40*(((index-1) div 5)), 40*(((index-1) mod 5)),c[0].Items[index-1]);
end;
end;
end;
procedure TForm1.Image7Paint(Sender: TObject);
var index:integer;
begin
image7.Canvas.Brush.Color:=$00202125;
Image7.Canvas.Clear;
Image7.Canvas.Pen.Color:=clCream;
Image7.Canvas.Font.Color:=clCream;
for index:=1 to 50 do begin
if g2[index-1] = 0 then begin
if (index<41) then
imagelist1.StretchDraw(image7.canvas, (((index-1) div 5)+1)+50, Rect(40*(((index-1) div 5)), 40*(((index-1) mod 5)), 40*(((index-1) div 5))+38, 40*(((index-1) mod 5))+38));
if (index>40) and (index < 46) then
imagelist1.StretchDraw(image7.canvas, (((index-1) div 5)+1+(index-1) mod 5)+50, Rect(40*(((index-1) div 5)), 40*(((index-1) mod 5)), 40*(((index-1) div 5))+38, 40*(((index-1) mod 5))+38));
if (index > 45) then
imagelist1.StretchDraw(image7.canvas, (((index-1) div 5)+5)+50, Rect(40*(((index-1) div 5)), 40*(((index-1) mod 5)), 40*(((index-1) div 5))+38, 40*(((index-1) mod 5))+38));
end
else begin
imagelist1.StretchDraw(image7.canvas, index, Rect(40*(((index-1) div 5)), 40*(((index-1) mod 5)), 40*(((index-1) div 5))+38, 40*(((index-1) mod 5))+38));
image7.canvas.textout(40*(((index-1) div 5))+30, 40*(((index-1) mod 5))+22, inttostr(g2[index-1]));
end;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
image6.Invalidate;
image7.Invalidate;
end;
procedure TForm1.UpdateForm();
var j,n:integer;
begin//
for j:=0 to 49 do g2[j] := g[j];
// showmessage('f');
for n:=0 to 3 do begin
if (c[n].itemindex>0) and (c[n+4].itemindex>0) then begin
for j:=0 to 49 do begin
if (g[j]>0) and (c[n].itemindex-1 = j) then begin
g2[j]:=g2[j]-1;
if g2[j]<0 then g2[j]:=0;
g2[re[n]]:=g2[re[n]]+1;
end;
end;
end
end;
Image6.Invalidate;
Image7.Invalidate;
end;
end.

BIN
readme.jpg Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 116 KiB

BIN
readme.png
View file

Binary file not shown.
Side by side

Before

Width:  |  Height:  |  Size: 33 KiB