moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-10 21:28:00 -05:00
Code Issues Releases Wiki Activity

Changes. :)

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@26 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-09-04 07:04:32 +00:00
parent ea1cac880f
commit 6d499620f6
3 changed files with 441 additions and 444 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Units/MMLCore/client.pas
View File

@ -26,7 +26,7 @@ constructor TClient.Create;
begin
inherited Create;
MWindow := TMWindow.Create(Self);
MWindow := TMWindow.Create();
MInput := TMInput.Create(Self);
MFiles := TMFiles.Create;
end;

1
Units/MMLCore/files.pas
View File

@ -94,6 +94,7 @@ Begin
SetLength(FreeSpots, High(FreeSpots));
End Else
Begin
// Increase by * 2.
//WriteLn('No Free Spot. Increasing the size');
SetLength(MFiles, Length(MFiles) + 1);
//Writeln('Length of Files: ' + IntToStr(Length(Files)));

10
Units/MMLCore/window.pas
View File

@ -35,12 +35,9 @@ type
function SetTarget(Window: THandle; NewType: TTargetWindowMode): integer; overload;
function SetTarget(ArrPtr: PRGB32; Size: TPoint): integer; overload;
constructor Create(Client: TObject);
constructor Create;
destructor Destroy; override;
public
// Reference to client.
Client: TObject;
// Target Window Mode.
TargetMode: TTargetWindowMode;
@ -107,10 +104,9 @@ uses
GraphType // For TRawImage
;
constructor TMWindow.Create(Client: TObject);
constructor TMWindow.Create;
begin
inherited Create;
Self.Client := Client;
Self.ArrayPtr := nil;
Self.ArraySize := Classes.Point(-1, -1);
@ -349,7 +345,7 @@ begin
begin
{$IFDEF MSWINDOWS}
GetWindowRect(Self.TargetHandle, Rect);
w:= Rect.Right - Rect.left;
w:= Rect.Right - Rect.Left;
h:= Rect.Bottom - Rect.Top;
{$ENDIF}
end;