Ignore:
Timestamp:
Oct 10, 2024, 11:05:35 PM (11 days ago)
Author:
chronos
Message:
  • Added: Api calls to show windows.
Location:
branches/Independent
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/Independent

    • Property svn:ignore

      •  

        old new  
        33Independent.lps
        44Independent.res
         5heaptrclog.trc

  • branches/Independent/Apps.pas

    r65 r66  
    3030
    3131procedure TAppTest.Run(Context: TAppContext);
     32var
     33  Handle: THandle;
    3234begin
    3335  with Context.Api do begin
    … …  
    3537    Sleep(OneSecond);
    3638    RunApp('Code');
     39    Handle := CreateWindow;
     40    SetWindowName(Handle, 'New window');
     41    SetWindowRect(Handle, Bounds(100, 100, 400, 200));
     42    SetWindowVisible(Handle, True);
     43
     44    Handle := CreateWindow;
     45    SetWindowName(Handle, 'Second window');
     46    SetWindowRect(Handle, Bounds(350, 150, 500, 300));
     47    SetWindowVisible(Handle, True);
    3748  end;
    3849end;
Note: See TracChangeset for help on using the changeset viewer.