paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-05 19:20:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

android: Fixes running a simple app with a window

Browse Source 
git-svn-id: trunk@31914 -
This commit is contained in:
sekelsenmat 2011-08-08 12:08:38 +00:00
parent b51ae032ac
commit c7b1f2e3d6
3 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/android/androidint.pas
View File

@ -28,6 +28,7 @@ interface
uses
// Android Bindings
android_all, androidapp, androidpipescomm,
// FPC
Classes, SysUtils, Math, Types, maps,
// LCL}

5
lcl/interfaces/android/androidobject.inc
View File

@ -156,9 +156,8 @@ end;
------------------------------------------------------------------------------}
procedure TAndroidWidgetSet.AppRun(const ALoop: TApplicationMainLoop);
begin
// use LCL loop
// if Assigned(ALoop) then
// ALoop;
vAndroidPipesComm.onCreateFinished();
vAndroidPipesComm.MessageLoop();
end;
{------------------------------------------------------------------------------

5
lcl/interfaces/android/androidwsfactory.pas
View File

@ -573,9 +573,8 @@ end;
function RegisterCustomForm: Boolean; alias : 'WSRegisterCustomForm';
begin
Result := False;
// RegisterWSComponent(TCustomForm, TGtk2WSCustomForm);
// Result := True;
RegisterWSComponent(TCustomForm, TAndroidWSCustomForm);
Result := True;
end;
function RegisterHintWindow: Boolean; alias : 'WSRegisterHintWindow';