slav_z

52 минут назад, Barbanel сказал:

Не соглашусь. Не обязательно третий мир, скорее как источник опытных кадров. У нас очень похожая ситуация:
находимся в Германии, ищем Delphi разработчика, желательно с опытом fmx. Компания небольшая, поэтому гугловских зарплат не предлагаем.
Из моего опыта, предлагаемая ЗП соответствует уровню миддл-разработчика. Важно понимать, что речь идет о начальной ЗП, которая пересматривается со временем.
Людей просто нет. Не то чтобы им ЗП мала, их (людей) нет. Присылают резюме всякие индусы да турки-арабы-хзкто, это не тот контингенс с которыми мы готовы работать.
В итоге плюнули, и везем людей из экс-ссср. На собеседовании тупых вопросов про люки не задавали. Выделили месяц-два для работы в удаленном режиме, чтобы посмотреть как человек справляется, какие вопросы задает, насколько вообще активен.

блин, рассмотрите мою кандидатуру....

повторил ваш код, у меня все работает (delphi 10.3.3):  Нужен пример неработающего кода. Попробуйте сделать минимальное приложение со своими классами и выложить сюда.

Parent назначен? покажите код...

ну как так то? условная компиляция! посмотрите в исходных кодах дельфи... там куча примеров...  КУЧА!!!

для начала попробуйте настроить подключение через мастер подключения в designtime...  когда получится...  откройте форму как текст (fmx) и посмотрите что там и как указано для подключения...  повторите то же самое в runtime...

очень может быть что и так... жмите F9... ошибка? не беда... что за ошибка?

используйте другой перегруженный метод Post()..  например так:

18 минут назад, Bob32 сказал:

у меня это код в обработчике onClick на одной из форм. это основной поток?

да

вот ответ на ваш вопрос

а с визуальными элементами всегда работайте только из основного потока, иначе, в лучшем случае, будет работать через раз (в вашем TMemo текст то будет отображаться, то нет...) а под андроид вообще будет (должна) ошибка вываливаться...

+ uses FireDAC.Phys.ODBC, FireDAC.Phys.ODBCDef...   скорее всего...

28 минут назад, Mari_rohan сказал:

firedac как задать свойство ODBCAdvanced не через визуальный редактор?

FDConnection1.Params.AddPair('ODBCAdvanced','123456');

я сам не пробовал... но вдруг получится..
 

вот типизированные:

function TForm2.bdconected(s2: string; s1: TFDQuery; s: TFDConnection): string;

если бы были типизированные, то не пришлось бы делать это:

if s is TFDConnection  then
begin
TFDConnection(s).Params.DriverID:=

зачем у вас тут нетипизированные параметры? сделайте два разных метода и не будет такой каши.

function bdconected(s2:string;s1,s{,sd}: TObject): string;

if Assigned(FHTTPClient) then FHTTPClient.Free;    замените на просто  FHTTPClient.Free

минимальный код:

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.UIConsts, System.Classes,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Objects, FMX.TextLayout;

type
  TForm1 = class(TForm)
    Text1: TText;
    procedure Text1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Single);
    procedure Text1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
    procedure Text1Painting(Sender: TObject; Canvas: TCanvas;
      const ARect: TRectF);
    procedure FormCreate(Sender: TObject);
  private
    Range: TTextRange;
    function TextLayout: TTextLayout;
  public
    function GetSelectedText: string;
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Text1.AutoCapture:=True;
end;

type
  TTextAccess = class(TText);

function TForm1.TextLayout: TTextLayout;
begin
  Result:=TTextAccess(Text1).Layout;
end;

function TForm1.GetSelectedText: string;
begin
  Result:=Text1.Text.Substring(Range.Pos,Range.Length);
end;

procedure TForm1.Text1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  Range.Pos:=TextLayout.PositionAtPoint(PointF(X,Y));
  Range.Length:=0;
  Text1.Repaint;
end;

procedure TForm1.Text1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Single);
begin
  if Text1.Pressed then
  begin
    Range.Length:=TextLayout.PositionAtPoint(PointF(X,Y))-Range.Pos;
    Text1.Repaint;
  end;
end;

procedure TForm1.Text1Painting(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin

  Canvas.Fill.Color:=claSilver;
  Canvas.Fill.Kind:=TBrushKind.Solid;

  for var R in TextLayout.RegionForRange(Range,False) do
    Canvas.FillRect(R,0,0,AllCorners,1);

end;

end.

textselected.zip

https://fgx-native.com/ru/push-notifications.html

это документация по fgx... но думаю без разницы... сам не пробовал...

3 часа назад, Евгений Корепов сказал:

https://unix.stackexchange.com/questions/58846/viewing-linux-library-executable-version-info

спасибо, ща попробую разобраться...

спасибо..  но перед решением "в лоб"...  хотелось бы узнать как поступают другие программы...  написанные не на delphi....

для консольного приложения линукс можно указать версию (и прочее), но это не попадает в готовый файл... никто не знает? что можно сделать? чтобы программа смогла узнать свою версию.... (мои знания по линуксу - минимальные... гуглил - фигня какая то)

2 часа назад, Sashar333 сказал:

Здравствуйте! А Вы можете написать тоже самое что и в ранее написанном Вами gek.zip, только на Java, для разбора в AndroidStudio? или тормоза там такие же могут возникнуть как и FMX, Вы не в курсе случайно?

там не будет тормозов....  я на Java не пишу, но на Java очень много готового кода в интернете...

Formatter.zip 10.3.3

В 28.05.2020 в 09:22, Sashar333 сказал:

тут правильно все сделано?

вроде правильно... только ошибки в английских словах исправьте (Catolog)...  если тормоза есть -  это уже fmx (еще очень далеко до совершенства).....  тут или смириться или искать собственные пути отображения списков...

7 часов назад, Sashar333 сказал:

Здравствуйте! Подскажите пожалуйста, почему при первом переключении с начальной вкладки TTabControl на вкладку с заполненным ListView(в FormCreate) приложение подвисает на пару секунд и можно как то сделать чтобы не повисало? Так же происходит и при переключении на другие вкладки, где просто TImage и Label. А когда везде побываешь то перестает зависать. 

загружаются стили в элементы списков (по-умолчанию они загружаются когда надо в первый раз нарисовать элемент...)  попробуйте использовать BeginUpdate перед созданием и EndUpdate после... (вообще всегда используйте эти методы при создании списков на экране)

если кто не знает или лень искать, то пароль на хранилище ключей debug.keystore: android