moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-11 05:38: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 begin
inherited Create; inherited Create;
MWindow := TMWindow.Create(Self); MWindow := TMWindow.Create();
MInput := TMInput.Create(Self); MInput := TMInput.Create(Self);
MFiles := TMFiles.Create; MFiles := TMFiles.Create;
end; end;

1
Units/MMLCore/files.pas
View File

@ -94,6 +94,7 @@ Begin
SetLength(FreeSpots, High(FreeSpots)); SetLength(FreeSpots, High(FreeSpots));
End Else End Else
Begin Begin
// Increase by * 2.
//WriteLn('No Free Spot. Increasing the size'); //WriteLn('No Free Spot. Increasing the size');
SetLength(MFiles, Length(MFiles) + 1); SetLength(MFiles, Length(MFiles) + 1);
//Writeln('Length of Files: ' + IntToStr(Length(Files))); //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(Window: THandle; NewType: TTargetWindowMode): integer; overload;
function SetTarget(ArrPtr: PRGB32; Size: TPoint): integer; overload; function SetTarget(ArrPtr: PRGB32; Size: TPoint): integer; overload;
constructor Create(Client: TObject); constructor Create;
destructor Destroy; override; destructor Destroy; override;
public public
// Reference to client.
Client: TObject;
// Target Window Mode. // Target Window Mode.
TargetMode: TTargetWindowMode; TargetMode: TTargetWindowMode;
@ -107,10 +104,9 @@ uses
GraphType // For TRawImage GraphType // For TRawImage
; ;
constructor TMWindow.Create(Client: TObject); constructor TMWindow.Create;
begin begin
inherited Create; inherited Create;
Self.Client := Client;
Self.ArrayPtr := nil; Self.ArrayPtr := nil;
Self.ArraySize := Classes.Point(-1, -1); Self.ArraySize := Classes.Point(-1, -1);
@ -349,7 +345,7 @@ begin
begin begin
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
GetWindowRect(Self.TargetHandle, Rect); GetWindowRect(Self.TargetHandle, Rect);
w:= Rect.Right - Rect.left; w:= Rect.Right - Rect.Left;
h:= Rect.Bottom - Rect.Top; h:= Rect.Bottom - Rect.Top;
{$ENDIF} {$ENDIF}
end; end;