-
Постов
72 -
Зарегистрирован
-
Посещение
-
Победитель дней
2
Сообщения, опубликованные Alisson R Oliveira
-
-
After assigning the SDK version to 33 (android:targetSdkVersion="33"), the application's camera usage actions stopped working, does anyone know how I can get around this?
Since I need SDK 33 to publish on Google Play -
Я использую компонент TFrameStand для создания фрейма и представления его на удержании. Все работает нормально, но для отправки изображения на апи в формате base64 мне нужно обработать его на основном tthread, из-за чего анимация вылетает. если я скрою элемент, которому принадлежит изображение, и не обработаю его в основном потоке, будут ли у меня проблемы? Это разрешено или, скорее, желательно?
-
How to do in Delphi 11? In delphi rio it works perfectly but in 11 it won't.
-
Hello, how do I make the statusbar of the app compiled in delphi 11 transparent?
In delphi rio I added the line
<item name="android:windowTranslucentStatus">true</item>
in style-v21.xml
however this file no longer exists in delphi 11. Thank you -
В 10/12/2021 в 02:38, haword сказал:
Não sei se entendi bem ou não o que queria perguntar, pois está mal traduzido) Quando uso um tradutor, geralmente traduzo primeiro para o inglês, depois a tradução resultante de volta para o russo, se nada estiver claro, eu refaço para que depois da tradução para o russo fique mais claro. De qualquer forma.
Se você precisar de uma consulta sql com parâmetros, precisará organizar um loop pelos parâmetros e salvar os dados em uma string.
para i: = 0 para qpg.FieldCount - 1
comece
paramstring: = paramstring + 'nome:' + qpg.Fields [i] .FieldName;
case qpg.Fields [i] .DataType de
ftInteger:
begin
paramstring: = paramstring + 'val int:' + InTToStr (qpg.FieldByName (qpg.Fields [i] .FieldName) .AsInteger);
fim;
ftFloat:
begin
paramstring: = paramstring + 'val flt:' + FloatToStr (qpg.FieldByName (qpg.Fields [i] .FieldName) .AsFloat);
fim;
ftCurrency:
begin
paramstring: = paramstring + 'val cur:' + FloatToStr (qpg.FieldByName (qpg.Fields [i] .FieldName) .AsCurrency);
fim;ftSmallint:
begin
paramstring: = paramstring + 'val smallint:' + IntToStr (qpg.FieldByName (qpg.Fields [i] .FieldName) .AsInteger);
fim;
ftGuid:
begin
paramstring: = paramstring + 'val guid:' + qms.ParamByName (qpg.Fields [i] .FieldName) .AsString;
fim;
ftString, ftMemo, ftWideMemo, ftWideString:
begin
paramstring: = paramstring + 'val str:' + qms.ParamByName (qpg.Fields [i] .FieldName) .AsString;
fim;
ftDate:
begin
paramstring: = paramstring + 'val date:' + DatetoStr (DateOf (qpg.FieldByName (qpg.Fields [i] .FieldName) .AsDateTime));
fim;
ftDateTime:
begin
paramstring: = paramstring + 'val datetime:' + DateTimeToStr (qpg.FieldByName (qpg.Fields [i] .FieldName) .AsDateTime);
fim;
ftTime:
begin
paramstring: = paramstring + 'val time:' + TimeToStr (TimeOF (qpg.FieldByName (qpg.Fields [i] .FieldName) .AsDateTime));
fim;
ftTimeStamp:
começar
paramstring: = paramstring + 'val timestamp:' + DateTimeToStr (qms.ParamByName (qpg.Fields [i] .FieldName) .AsDateTime);
fim;
fim;
fim;
talvez haja uma solução mais bonita, não sei.
Good afternoon, sorry for the translation.
so actually i would like to capture the sql script executed in the database.
I have several queries that have insert, delete and update instructions that are parameters. These parameters are fed and executed and I need to generate a log to save these script with the values instead of the parameters.
I hope I explained better. ThanksДобрый день, извините за перевод.
поэтому на самом деле я хотел бы захватить sql-скрипт, выполняемый в базе данных.
У меня есть несколько запросов с инструкциями по вставке, удалению и обновлению, которые являются параметрами. Эти параметры загружаются и выполняются, и мне нужно создать журнал, чтобы сохранить этот сценарий со значениями вместо параметров.
Надеюсь, я лучше объяснил. Спасибо -
Привет всем, мне нужно создать запись журнала для этого. Мне нужно захватить sql, выполняемый FDQuery, но я не могу получить текст с параметрами, помещенными в предложение sql.
мой код:function TModelArea_executante.Inserir: Boolean;
var
Qry: TFDQuery;
begin
Qry := TFDQuery.Create(nil);
try
Qry.Active := False;
Qry.Connection := dmConexao.conDados;
Qry.SQL.Clear;
Qry.SQL.Add('INSERT INTO area_executante ');
Qry.SQL.Add('(area_executante, descricao) ');
Qry.SQL.Add('VALUES');
Qry.SQL.Add('(:area_executante, :descricao) ');
//CodigoGerado := GeraCodigo;
Qry.ParamByName('area_executante').AsString := Area_executante;
Qry.ParamByName('descricao').AsString := Descricao;
try
Qry.ExecSQL;Result := True;
IncrementarCodigo;
except
on E: Exception do
begin
Result := False;
TCrux.Log('Erro ao tentar salvar Area_executante - ', E.Message);
end;
end;
finally
Qry.DisposeOf;
end;
end;если кто-нибудь знает, как я могу получить sql с параметрами, замененными на sql, я ценю помощь.
-
-
Спасибо, ребята, это то, что я искал.
Спасибо -
Расположить мышь на экране?
Добрый день, я создаю сетку данных с помощью TStringGrid, и в ней есть два столбца, которые будут отображать всплывающую информацию при нажатии. Чтобы отображать правильные всплывающие окна, мне нужно занять позицию мыши на экране в целом. Я не знаю, как это сделать в Windows через FMX.
Кто-нибудь может мне помочь? Благодарный -
Text warping when rendering TText with a font other than the default. Has anyone ever experienced this? If yes how did you solve it?
GratefulДеформация текста при рендеринге TText с шрифтом, отличным от шрифта по умолчанию. Кто-нибудь когда-нибудь испытывал такое? Если да, то как вы ее решили?
Благодарный -
2 часа назад, haword сказал:
Ao fechar o formulário, percorra os itens da lista e lembre-se de quais foram abertos. Então, ao abrir o formulário, defina os parâmetros de expansão nos itens de lista necessários novamente no loop.
Мне нужно, чтобы это выполнялось всякий раз, когда элемент разворачивается или сворачивается, система несколько раз перезагружает список при его запуске. Так что это не имело бы смысла, когда я его закрываю или открываю.
-
-
Доброе утро, спасибо за помощь и извините за русский язык, так как я использую переводчик Google.
Мне нужно обнаружить расширение элемента, чтобы иметь возможность сохранить в базе данных, поэтому каждый раз, когда пользователь открывает приложение, оно будет таким, каким он его оставил. Однако я не нашел ни одного события, которое бы это контролировало, я попробовал
TTreeView.OnChange TTreeView.OnClick TTreeView.OnMouseDown TTreeViewItem.OnClick TTreeViewItem.OnMouseDown
Ни один из них не срабатывает, просто разворачивая элемент без необходимости нажимать на него ...
Если кто может мне помочь. Благодарный -
How can I add a small image to the left of the header text for a particular column?
I need to indicate that a certain column is 'marked' so I need to highlight the title of the header. I would like to add an image and put the title in bold, but I can't get any examples so far.Grateful
-
Не могли бы вы привести более ясный пример?
-
функция ClientToScreen не компилируется в TFrame
-
Добрый день,
Ребята, я пробовал использовать компонент TPopup с TEdit, но он не получает ввод данных.
Мне нужно будет создать форму для имитации tpopup. Однако я не знаю, как получить аккорд расположения компонента относительно его расположения на холсте (где он был нарисован на шине устройства).
Может ли кто-нибудь помочь мне, как я могу это сделать?Весьма признателен
-
Спокойной ночи, снова переживаю эту тему. Как получить координаты объекта на экране?
-
В 03/04/2015 в 12:49, Brovin Yaroslav сказал:
- Link: http://yaroslavbrovin.ru/new-approach-of-development-of-firemonkey-control-control-model-presentation-part-2-tedit-with-autocomplete-ru/
- Autor: Yaroslav Brovin
Parte 2 do artigo sobre uma nova abordagem para o desenvolvimento de componentes visuais no FireMonkey. Contém a parte prática de criar sua própria apresentação. Como exemplo, a função de entrada é adicionada ao componente de conclusão de registro padrão TEdit .Доброе утро, очень хорошая ваша статья. Поздравляю.
Я реализовал эту функцию в проекте FMX в основном на Android (версия 7.0 выше), но есть некоторые детали, которые не являются «правильными», например: щелчок по элементу, который он не выбирает, и применение в TEdit, если я использую Enter, мне также не нужно вводить начало слова, а затем дать "пробел" есть ли какие-нибудь обновления для этой функции или что-то в этом роде?
благодаренGood morning, very good your article. Congratulations.
I was implementing this feature in a FMX project basically on android (version 7.0 above) but there are some details that are not 'correct' such as: clicking on the item it does not select and apply in TEdit if I use Enter I also do not have to type the beginning of the word and then give 'space' is there any update for this function or something?
thankful -
Добрый день, ребята, у меня есть TWebbrowser в форме, несущей некоторый контент. однако компонент не соблюдает порядок-z, когда я выполняю действие. Я пытаюсь создать экран веб-браузера, чтобы вставить TImage и скрыть веб-браузер после того, как действие завершится восстановлением в обычном режиме. но MakeScreenshot или CaptureBitmap не являются результатами на Android
Кто-нибудь знает, как я могу это сделать? благодарный
Good afternoon, guys I have a TWebbrowser in the form carrying some content. however the component does not respect the order-z when I do an action I am trying to create a webbrowser screen to put in a TImage and hide the webbrowser after the action finishes restoring to normal. but MakeScreenshot or CaptureBitmap are not results on android
does anyone know how i can do this? thankful
-
The problem that in TPagecontrol I can't seem to show part of the next slides as in the image above.
-
Thanks for the tip, but we would like to use native components of delphi. so we could migrate to the next versions without problems
-
Good afternoon can someone give a little help? I need to develop a "slideshow" that where the item shows occupies 70% of the screen the other 30% will be divided by 2 items that appeared 15% each ... when the user starts to drag to the desired side if he moves more than 30 % the desired item jumps to the middle if it is less than that it comes back and hides leaving the current item.
I believe that to do this I will need to do it in TScrollHorizontal but I'm a little lost, who knows how I can do it? thankfulДобрый день, может кто-нибудь немного помочь? Мне нужно разработать «слайд-шоу», где показы элементов занимают 70% экрана, остальные 30% будут разделены на 2 элемента, каждый из которых отображался по 15% ... когда пользователь начинает перетаскивать на нужную сторону, если он перемещается более чем на 30 % желаемый элемент переходит на середину, если он меньше, чем возвращается и прячется, оставляя текущий элемент.
Я считаю, что для этого мне нужно будет сделать это в TScrollHorizont, но я немного растерялся, кто знает, как я могу это сделать? благодарный -
I understand more I would really like not to depend on third party api and if possible to work offline. Do you know how I can do this?
Delphi 11.3 with SDK 33
в Публикация приложения в Google Play
Опубликовано
The ship's response time is very slow. and google is very bad at dev support