Subversion Repositories oidplus

Rev

Rev 735 | Rev 740 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 735 Rev 738
Line 21... Line 21...
21 
  SINGLE_LINE_BOX_PADDING_INNER = 10;
 21 
  SINGLE_LINE_BOX_PADDING_INNER = 10;
22 
 
 22 
 
23 
procedure DrawThinBorder(x, y, width, height: integer);
 23 
procedure DrawThinBorder(x, y, width, height: integer);
24 
procedure DrawDoubleBorder(x, y, width, height: integer);
 24 
procedure DrawDoubleBorder(x, y, width, height: integer);
25 
procedure DrawTextBar(str: string; line: integer);
 25 
procedure DrawTextBar(str: string; line: integer);
26 
procedure DrawTitleBar(str: string);
 26 
procedure DrawTitleBar(center, left, right: string);
27 
procedure DrawStatusBar(str: string);
 27 
procedure DrawStatusBar(str: string);
28 
function DrawSelectionList(X, Y, ListWidth, ListHeight: integer;
 28 
function DrawSelectionList(X, Y, ListWidth, ListHeight: integer;
29 
                           items: PStringList; allowESC: boolean;
 29 
                           items: PStringList; allowESC: boolean;
30 
                           Title: string; borderStrength: integer): integer;
 30 
                           Title: string; borderStrength: integer): integer;
31 
procedure ClearSection(x, y, width, height: integer);
 31 
procedure ClearSection(x, y, width, height: integer);
Line 185... Line 185...
185 
 
 185 
 
186 
  TextBackground(Black);
 186 
  TextBackground(Black);
187 
  TextColor(White);
 187 
  TextColor(White);
188 
end;
 188 
end;
189 
 
 189 
 
190 
procedure DrawTitleBar(str: string);
 190 
procedure DrawTitleBar(center, left, right: string);
191 
begin
 191 
begin
192 
  DrawTextBar(str, 1);
 192 
  DrawTextBar(center, 1);
- 
 
 193 
 
- 
 
 194 
  (* Put left text into the title bar *)
- 
 
 195 
  GoToXY(1,1);
- 
 
 196 
  TextBackground(White);
- 
 
 197 
  TextColor(Black);
- 
 
 198 
  WriteLn(left);
- 
 
 199 
  TextBackground(Black);
- 
 
 200 
  TextColor(White);
- 
 
 201 
 
- 
 
 202 
  (* Put right text into the title bar *)
- 
 
 203 
  GotoXY(ScreenWidth-Length(right)+1,1);
- 
 
 204 
  TextBackground(White);
- 
 
 205 
  TextColor(Black);
- 
 
 206 
  WriteLn(right);
- 
 
 207 
  TextBackground(Black);
- 
 
 208 
  TextColor(White);
193 
end;
 209 
end;
194 
 
 210 
 
195 
procedure DrawStatusBar(str: string);
 211 
procedure DrawStatusBar(str: string);
196 
begin
 212 
begin
197 
  DrawTextBar(str, ScreenHeight);
 213 
  DrawTextBar(str, ScreenHeight);