{
SprEd - sprite editor Started 1/20/25
Edits up to 20x20 sprites. Can be made to go with
bigger sprites if the graph mode size is increased.
It is currently using 800x600
1/20/25
Started project
Got up to the width/depth dialog box, but without
the width bottons and with no functionality.
1/21/25
Finished width/depth dialog, fully functional
******************************
Section0 Initilization
******************************
Procedure InitProgram;
Procedure InitialGrid;
******************************
******************************
Section1 Grid maintenance
******************************
Procedure SetRectPositions(GridDepth,GridWidth:integer);
Procedure drawGrid(Depth,width:integer);
Procedure SetColorGrid;
Procedure drawColorGrid;
Procedure ClearGrid(depth,width:integer);
Procedure DrawSpriteGrid(s:lg_spriteclass);
*************************************
Section2 Push button Event management
*************************************
Procedure CheckGrid(Wx,Wy:longint);
Procedure GetColor(Wx,Wy:Longint);
Procedure SaveSprite; fixed file name for now
procedure LoadSprite; fixed file name for now
Procedure Export;
*********************************************
Section3 Graphics and function of pushbuttons
*********************************************
Procedure DrawButtonUp(Item:Integer);
Procedure DrawButtonDown(Item:Integer);
Procedure AddButton(x,y,xx,yy:integer;Id:Integer;Ts:string);
Procedure MenuButtons; (Initializes all of the menu buttons)
*********************************************
Section4 Graphics and function of checkboxes
*********************************************
Procedure DrawCheckBox(CheckBox:CheckBoxType);
Procedure AddDepthCheckBox(x,y,Id:integer;Ts:String;default:boolean);
Procedure AddWidthCheckBox(x,y,Id:integer;Ts:String;default:boolean);
Procedure ChangeSize; (Executes the Change size dialog with local event handler)
}