diff options
author | whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-03-29 16:54:52 +0000 |
---|---|---|
committer | whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-03-29 16:54:52 +0000 |
commit | e0e16a3b1d28cf51fecf669d42465cf2a65728f3 (patch) | |
tree | ad80058b83e11b1bf42210d8e49922b44745ca98 /Game/Code/Screens/UScreenOpen.pas | |
parent | 8d591b8344e0cb87e1a987961b3790fa26d323a6 (diff) | |
download | usdx-e0e16a3b1d28cf51fecf669d42465cf2a65728f3.tar.gz usdx-e0e16a3b1d28cf51fecf669d42465cf2a65728f3.tar.xz usdx-e0e16a3b1d28cf51fecf669d42465cf2a65728f3.zip |
Added SBGW to TSelectSlide: Defining the Width of the Selections BG
Added W to TText + Pagebreaks. If Width is given the Text breaks at the given width. Breaks are not generated perfect yet, needs some tuning.
Changed all affected Screens to fit the new TText Component
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@49 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/Screens/UScreenOpen.pas')
-rw-r--r-- | Game/Code/Screens/UScreenOpen.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Game/Code/Screens/UScreenOpen.pas b/Game/Code/Screens/UScreenOpen.pas index 723f299f..264f57a9 100644 --- a/Game/Code/Screens/UScreenOpen.pas +++ b/Game/Code/Screens/UScreenOpen.pas @@ -43,9 +43,9 @@ begin case PressedKey of
8: // del
begin
- if Interaction = 0 then
- if Length(Text[TextN].Text) >= 1 then begin
- Delete(Text[TextN].Text, Length(Text[TextN].Text), 1);
+ if Interaction = 0 then
+ begin
+ Text[TextN].DeleteLastL;
FileName := Text[TextN].Text;
end;
end;
|