diff options
author | mogguh <mogguh@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-26 18:40:52 +0000 |
---|---|---|
committer | mogguh <mogguh@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-26 18:40:52 +0000 |
commit | cc7e1080786e9742dccbe3d68823aaab409d7d62 (patch) | |
tree | ec63e336c996ec5a4ae4558f5e1cb611d1e8e321 /Game/Code/Menu/UMenuSelect.pas | |
parent | 6dd6d039157b77d6a820e9dede33f36a24573fca (diff) | |
download | usdx-cc7e1080786e9742dccbe3d68823aaab409d7d62.tar.gz usdx-cc7e1080786e9742dccbe3d68823aaab409d7d62.tar.xz usdx-cc7e1080786e9742dccbe3d68823aaab409d7d62.zip |
Removed: Select, outdated/unused (+SelectSlide does the job)
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1292 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r-- | Game/Code/Menu/UMenuSelect.pas | 201 |
1 files changed, 0 insertions, 201 deletions
diff --git a/Game/Code/Menu/UMenuSelect.pas b/Game/Code/Menu/UMenuSelect.pas deleted file mode 100644 index a93c4ed0..00000000 --- a/Game/Code/Menu/UMenuSelect.pas +++ /dev/null @@ -1,201 +0,0 @@ -unit UMenuSelect; - -interface - -{$I switches.inc} - -uses TextGL, UTexture, gl, UMenuText; - -type - PSelect = ^TSelect; - TSelect = class - private - SelectBool: boolean; - public - // objects - Text: TText; // Main Text - TextOpt: array of TText; // Options Text - Texture: TTexture; // Select Texture - TextureSBG: TTexture; // Background Selections Texture - TextureS: array of TTexture; // Selections Texture - SelectOptInt: integer; - PData: ^integer; - - // for selection and deselection - // main static - ColR: real; - ColG: real; - ColB: real; - Int: real; - DColR: real; - DColG: real; - DColB: real; - DInt: real; - - // main text - TColR: real; - TColG: real; - TColB: real; - TInt: real; - TDColR: real; - TDColG: real; - TDColB: real; - TDInt: real; - - // selection background static - SBGColR: real; - SBGColG: real; - SBGColB: real; - SBGInt: real; - SBGDColR: real; - SBGDColG: real; - SBGDColB: real; - SBGDInt: real; - - // selection statics - SColR: real; - SColG: real; - SColB: real; - SInt: real; - SDColR: real; - SDColG: real; - SDColB: real; - SDInt: real; - - // selection text - STColR: real; - STColG: real; - STColB: real; - STInt: real; - STDColR: real; - STDColG: real; - STDColB: real; - STDInt: real; - - // position and size - property X: real read Texture.x write Texture.x; - property Y: real read Texture.y write Texture.y; - property W: real read Texture.w write Texture.w; - property H: real read Texture.h write Texture.h; -// property X2: real read Texture2.x write Texture2.x; -// property Y2: real read Texture2.y write Texture2.y; -// property W2: real read Texture2.w write Texture2.w; -// property H2: real read Texture2.h write Texture2.h; - - // procedures - procedure SetSelect(Value: boolean); - property Selected: Boolean read SelectBool write SetSelect; - procedure SetSelectOpt(Value: integer); - property SelectedOption: integer read SelectOptInt write SetSelectOpt; - procedure Draw(ButtonAlpha: real); - constructor Create; - end; - -implementation -uses UDrawTexture; - -// ------------ Select -constructor TSelect.Create; -begin - inherited Create; - Text := TText.Create; -end; - -procedure TSelect.SetSelect(Value: boolean); -{var - SO: integer;} -begin // default 1, 0.4 - SelectBool := Value; - if Value then begin - Texture.ColR := ColR; - Texture.ColG := ColG; - Texture.ColB := ColB; - Texture.Int := Int; - - Text.ColR := TColR; - Text.ColG := TColG; - Text.ColB := TColB; - Text.Int := TInt; - - TextureSBG.ColR := SBGColR; - TextureSBG.ColG := SBGColG; - TextureSBG.ColB := SBGColB; - TextureSBG.Int := SBGInt; - -{ for SO := 0 to High(TextOpt) do begin - if SelectOptInt = SO then begin - TextOpt[SO].ColR := STColR; - TextOpt[SO].ColG := STColG; - TextOpt[SO].ColB := STColB; - TextOpt[SO].Int := STInt; - end else begin - TextOpt[SO].ColR := STDColR; - TextOpt[SO].ColG := STDColG; - TextOpt[SO].ColB := STDColB; - TextOpt[SO].Int := STDInt; - end; - end;} - - end else begin - Texture.ColR := DColR; - Texture.ColG := DColG; - Texture.ColB := DColB; - Texture.Int := DInt; - - Text.ColR := TDColR; - Text.ColG := TDColG; - Text.ColB := TDColB; - Text.Int := TDInt; - - TextureSBG.ColR := SBGDColR; - TextureSBG.ColG := SBGDColG; - TextureSBG.ColB := SBGDColB; - TextureSBG.Int := SBGDInt; - -{ for SO := 0 to High(TextOpt) do begin - TextOpt[SO].ColR := STDColR; - TextOpt[SO].ColG := STDColG; - TextOpt[SO].ColB := STDColB; - TextOpt[SO].Int := STDInt; - end;} - end; -end; - -procedure TSelect.SetSelectOpt(Value: integer); -var - SO: integer; -begin - SelectOptInt := Value; - PData^ := Value; -// SetSelect(true); // reset all colors - - for SO := 0 to High(TextOpt) do begin - if SelectOptInt = SO then begin - TextOpt[SO].ColR := STColR; - TextOpt[SO].ColG := STColG; - TextOpt[SO].ColB := STColB; - TextOpt[SO].Int := STInt; - end else begin - TextOpt[SO].ColR := STDColR; - TextOpt[SO].ColG := STDColG; - TextOpt[SO].ColB := STDColB; - TextOpt[SO].Int := STDInt; - end; - end; -end; - -procedure TSelect.Draw(ButtonAlpha: real); -var - SO: integer; -begin - DrawTexture(Texture); - DrawTexture(TextureSBG); - - Text.Draw; - - for SO := 0 to High(TextOpt) do begin - TextOpt[SO].Draw; - end; -end; - -end. |