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/Api.pas

    r65 r66  
    77
    88type
     9  THandle = NativeInt;
     10
     11  { THandles }
     12
     13  THandles = class(TList<THandle>)
     14    NewHandle: THandle;
     15    function AddNew: THandle;
     16  end;
     17
    918  { TApi }
    1019
    … …  
    1322    procedure RunApp(Name: string); virtual; abstract;
    1423    procedure Sleep(Time: TDateTime); virtual; abstract;
     24    function CreateWindow: THandle; virtual; abstract;
     25    procedure SetWindowName(Handle: THandle; Name: string); virtual; abstract;
     26    procedure SetWindowRect(Handle: THandle; Rect: TRect); virtual; abstract;
     27    procedure SetWindowVisible(Handle: THandle; Visible: Boolean); virtual; abstract;
    1528  end;
    1629
    … …  
    3851
    3952implementation
     53
     54{ THandles }
     55
     56function THandles.AddNew: THandle;
     57begin
     58  Result := NewHandle;
     59  Inc(NewHandle);
     60  Add(Result);
     61end;
    4062
    4163{ TApp }
Note: See TracChangeset for help on using the changeset viewer.