Перейти к содержанию

slav_z

Пользователи
  • Активность

    105
  • Зарегистрирован

  • Посещение

  • Победитель дней

    13

slav_z стал победителем дня 10 августа

slav_z имел наиболее популярный контент!

1 Подписчик

Информация о slav_z

  • Звание
    Продвинутый пользователь

Посетители профиля

3 904 просмотров профиля
  1. ну как так то? условная компиляция! посмотрите в исходных кодах дельфи... там куча примеров... КУЧА!!!
  2. для начала попробуйте настроить подключение через мастер подключения в designtime... когда получится... откройте форму как текст (fmx) и посмотрите что там и как указано для подключения... повторите то же самое в runtime...
  3. очень может быть что и так... жмите F9... ошибка? не беда... что за ошибка?
  4. используйте другой перегруженный метод Post().. например так:
  5. вот ответ на ваш вопрос а с визуальными элементами всегда работайте только из основного потока, иначе, в лучшем случае, будет работать через раз (в вашем TMemo текст то будет отображаться, то нет...) а под андроид вообще будет (должна) ошибка вываливаться...
  6. + uses FireDAC.Phys.ODBC, FireDAC.Phys.ODBCDef... скорее всего...
  7. FDConnection1.Params.AddPair('ODBCAdvanced','123456'); я сам не пробовал... но вдруг получится..
  8. вот типизированные: function TForm2.bdconected(s2: string; s1: TFDQuery; s: TFDConnection): string;
  9. если бы были типизированные, то не пришлось бы делать это: if s is TFDConnection then begin TFDConnection(s).Params.DriverID:=
  10. зачем у вас тут нетипизированные параметры? сделайте два разных метода и не будет такой каши. function bdconected(s2:string;s1,s{,sd}: TObject): string;
  11. if Assigned(FHTTPClient) then FHTTPClient.Free; замените на просто FHTTPClient.Free
  12. минимальный код: 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
  13. https://fgx-native.com/ru/push-notifications.html это документация по fgx... но думаю без разницы... сам не пробовал...
  14. спасибо, ща попробую разобраться...
×
×
  • Создать...