TPW 1.5 WINCRT unit - screen sizing 
Author Message
 TPW 1.5 WINCRT unit - screen sizing

How do I get the full screen text window?

Here is the WINCRT unit

WINCRT unit

const
    WindowOrg: TPoint =                       { CRT window origin }
    (X: 10; Y: 15);
    {(x: 10; Y: 15)}
  WindowSize: TPoint =                      { CRT window size }
    (X: cw_UseDefault; Y: cw_UseDefault);
  ScreenSize: TPoint = (X: 80; Y: 25);      { Screen buffer dimensions }
  Cursor: TPoint = (X: 0; Y: 0);            { Cursor location }
  Origin: TPoint = (X: 0; Y: 0);            { Client area origin }
  InactiveTitle: PChar = '(Inactive %s)';   { Inactive window title }
  AutoTracking: Boolean = True;             { Track cursor on Write? }
  CheckEOF: Boolean = False;                { Allow Ctrl-Z for EOF? }
  CheckBreak: Boolean = True;               { Allow Ctrl-C for break? }

I have this in my source code.

begin
  WindowOrg.X :=075;
  WindowOrg.Y :=080;
  WindowSize.X:=800;
  WindowSize.Y:=600;
  StrCopy(WindowTitle,  Main Menu');
  InitWinCrt; {Make the window open. }

End;

thanks



Wed, 18 Jun 1902 08:00:00 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. Question on WinCrt of TPW 1.5

2. Popdown menus in TPW 1.5 using wincrt

3. How control Cursor-Keys with TPW 1.5 in a WinCRT-Window

4. How control Cursor-Keys with TPW 1.5 in a WinCRT-Window

5. TPW 1.5 WinCRT question

6. Modified WinCrt of TPW 1.5

7. TPW 1.5 - WINDOW SIZE -1024 x 768 Question

8. Maximising The Output Screen in TPW 1.5

9. outputting direct to printer instead of screen - TPW 1.5

10. WinGraph unit for TPW 1.5 now really done

11. TPW 1.5 and the missing Graph unit

12. modem unit for TPW 1.5 ????

 

 
Powered by phpBB® Forum Software