paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Adds the profiler initial stub

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2146 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat 2011-11-15 21:28:30 +00:00
parent aadb3b200b
commit f9df1c361b
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
applications/tappytux/tappydrawer.pas
View File

@ -63,6 +63,7 @@ type
class procedure DrawImageWithTransparentColor( class procedure DrawImageWithTransparentColor(
ADest: TLazIntfImage; const ADestX, ADestY: Integer; AColor: TFPColor; ADest: TLazIntfImage; const ADestX, ADestY: Integer; AColor: TFPColor;
AImage: TFPImageBitmap); AImage: TFPImageBitmap);
class function DateTimeToMilliseconds(aDateTime: TDateTime): Int64;
//function GetImage(ATile: TChessTile): TPortableNetworkGraphic; //function GetImage(ATile: TChessTile): TPortableNetworkGraphic;
procedure HandleMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure HandleMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure HandleMouseUp(Sender: TObject; Button: TMouseButton; procedure HandleMouseUp(Sender: TObject; Button: TMouseButton;
@ -207,7 +208,11 @@ var
X, Y: integer; X, Y: integer;
i: Integer; i: Integer;
lAnimation: TTappyTuxAnimation; lAnimation: TTappyTuxAnimation;
lStartTime, lTimeDiff: TDateTime;
begin begin
{$IFDEF TAPPY_PROFILER}
lStartTime := Now;
{$ENDIF}
lIntfImage := TLazIntfImage.Create(0, 0); lIntfImage := TLazIntfImage.Create(0, 0);
lTmpBmp := TBitmap.Create; lTmpBmp := TBitmap.Create;
try try
@ -242,6 +247,10 @@ begin
lTmpBmp.Free; lTmpBmp.Free;
lIntfImage.Free; lIntfImage.Free;
end; end;
{$IFDEF TAPPY_PROFILER}
lTimeDiff := Now - lStartTime;
// DebugLn(Format('[TwebLobbyServer.DataModuleRequest] END RequestClass=%s Performance: %7d ms', [Msg.ClassName, DateTimeToMilliseconds(lTimeDiff)]));
{$ENDIF}
end; end;
class procedure TTappyTuxDrawer.DrawImageWithTransparentColor(ADest: TLazIntfImage; class procedure TTappyTuxDrawer.DrawImageWithTransparentColor(ADest: TLazIntfImage;
@ -281,6 +290,17 @@ begin
end; end;
end; end;
class function TTappyTuxDrawer.DateTimeToMilliseconds(aDateTime: TDateTime
): Int64;
var
TimeStamp: TTimeStamp;
begin
{Call DateTimeToTimeStamp to convert DateTime to TimeStamp:}
TimeStamp:= DateTimeToTimeStamp (aDateTime);
{Multiply and add to complete the conversion:}
Result:= TimeStamp.Time;
end;
procedure TTappyTuxDrawer.HandleMouseMove(Sender: TObject; Shift: TShiftState; X, procedure TTappyTuxDrawer.HandleMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); Y: Integer);
begin begin