Комментарии 11
И традиционный комментарий: что по поводу Express Edition?
+1
вот для теста решил написать простенькую программу, это тектовый редактор. И тут сразу столкнулся с вопросом: как реализовать opendialog & savedialog?
+2
TOpenFileDialog и TSaveFileDialog на форму и по клику на кнопки написать код.
0
Я так и делал, но на Андроиде эти кнопки не вызывают опен дилог, они вообще не работают
+1
Нет. Эти компоненты нельзя использовать в мобильных приложениях. О чем красноречиво свидетельствует тултип в панели компонентов.
0
if ModalResult= mrOk then begin if DataSet.State in [dsInsert, dsEdit] then
procedure TDM.DataModuleCreate(Sender: TObject); begin DM.ConnectToDB; end;
Отформатируйте код пожалуйста, невозможно серьезно воспринимать так.
0
Захожу в Deployment Manager, добавляю файл ICON_1.ico в assets\
пытаюсь запустить приложение на телефоне с Андроид 4.2.3 в результате оно просто не запускается, как только отключаю в Deployment Manager мою добавленную строку то все запускается — это фича или баг?
Расскажите как мне загрузить нужные мне иконки? В винде есть TImageList, но в Андроид его нет, я хотел грузить иконки из ico файлов, например так:
function LoadImageFromResource(ResName: String): TBitmap;
var
BitMap: TBitmap;
begin
Bitmap := TBitmap.Create;
try
if FileExists(TPath.Combine(TPath.GetDocumentsPath, ResName+'.ico')) then
Bitmap.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath, ResName+'.ico'))
else
ShowMessage('Файл ' + TPath.Combine(TPath.GetDocumentsPath, ResName+'.ico') + ' не найден.');
Result := Bitmap;
finally
Bitmap.Free;
end;
end;
Опять же загвоздка, TPath.GetDocumentsPath указывает на /data/data/ru.моеприложение/files
пытаюсь запустить приложение на телефоне с Андроид 4.2.3 в результате оно просто не запускается, как только отключаю в Deployment Manager мою добавленную строку то все запускается — это фича или баг?
Расскажите как мне загрузить нужные мне иконки? В винде есть TImageList, но в Андроид его нет, я хотел грузить иконки из ico файлов, например так:
function LoadImageFromResource(ResName: String): TBitmap;
var
BitMap: TBitmap;
begin
Bitmap := TBitmap.Create;
try
if FileExists(TPath.Combine(TPath.GetDocumentsPath, ResName+'.ico')) then
Bitmap.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath, ResName+'.ico'))
else
ShowMessage('Файл ' + TPath.Combine(TPath.GetDocumentsPath, ResName+'.ico') + ' не найден.');
Result := Bitmap;
finally
Bitmap.Free;
end;
end;
Опять же загвоздка, TPath.GetDocumentsPath указывает на /data/data/ru.моеприложение/files
0
Попробовал подключить файл ресурсов с ресурсами иконок
{$IFDEF ANDROID}
{$R PROTO.res}
{$ENDIF}
написал функцию
function LoadImageFromResource(ResName: String): TBitmap;
var
InStream: TResourceStream;
Img: TBitmap;
begin
Img := TBitmap.Create;
InStream := TResourceStream.Create(HInstance, ResName, 'ICON');
try
Img.LoadFromStream(InStream);
Result := Img;
finally
InStream.Free;
Img.Free;
end;
end;
Но при попытке прочитать ресурс мне говорят что его нет. Что делать? Никаких примеров как загружать и использовать иконки или картинки в приложении под андроид я не нашел, засада какая то.
{$IFDEF ANDROID}
{$R PROTO.res}
{$ENDIF}
написал функцию
function LoadImageFromResource(ResName: String): TBitmap;
var
InStream: TResourceStream;
Img: TBitmap;
begin
Img := TBitmap.Create;
InStream := TResourceStream.Create(HInstance, ResName, 'ICON');
try
Img.LoadFromStream(InStream);
Result := Img;
finally
InStream.Free;
Img.Free;
end;
end;
Но при попытке прочитать ресурс мне говорят что его нет. Что делать? Никаких примеров как загружать и использовать иконки или картинки в приложении под андроид я не нашел, засада какая то.
0
Зарегистрируйтесь на Хабре, чтобы оставить комментарий
Разработка кроссплатформенных мобильных приложений в Delphi #3