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

android: Adds forgotten inc files to lcl.lpk and fixes InputDialog crash

Browse Source 
git-svn-id: trunk@32038 -
This commit is contained in:
sekelsenmat 2011-08-23 11:06:35 +00:00
parent 7ee3c9d29b
commit f22b324a64
2 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/android/androidlclintf.inc
View File

@ -865,10 +865,10 @@ var
alert: TAlertDialog_Builder;
input: TEditText;
begin
if InputDialogFunction<>nil then
{ if InputDialogFunction<>nil then
Result := InputDialogFunction(InputCaption, InputPrompt, MaskInput, Value)
else
begin
begin}
Result := True;
alert := TAlertDialog_Builder.Create;
@ -894,7 +894,7 @@ begin
});*)
alert.show();
end;
// end;
end;
(*procedure TQtWidgetSet.SetEventHandlerFlags(AHandler: PEventHandler;

23
lcl/interfaces/lcl.lpk
View File

@ -109,7 +109,7 @@ end;"/>
<License Value="modified LGPL-2
"/>
<Version Major="1" Release="1"/>
<Files Count="345">
<Files Count="350">
<Item1>
<Filename Value="android/androidint.pas"/>
<AddToUsesPkgSection Value="False"/>
@ -1723,6 +1723,27 @@ end;"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="javalang"/>
</Item345>
<Item346>
<Filename Value="android/androidstringlists.pas"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="androidstringlists"/>
</Item346>
<Item347>
<Filename Value="android/androidwinapih.inc"/>
<Type Value="Include"/>
</Item347>
<Item348>
<Filename Value="android/androidwinapi.inc"/>
<Type Value="Include"/>
</Item348>
<Item349>
<Filename Value="android/androidlclintfh.inc"/>
<Type Value="Include"/>
</Item349>
<Item350>
<Filename Value="android/androidlclintf.inc"/>
<Type Value="Include"/>
</Item350>
</Files>
<LazDoc Paths="../../docs/xml/lcl"/>
<i18n>