slav_z
Пользователи-
Постов
233 -
Зарегистрирован
-
Посещение
-
Победитель дней
33
Весь контент slav_z
-
блин, рассмотрите мою кандидатуру....
-
для начала попробуйте настроить подключение через мастер подключения в designtime... когда получится... откройте форму как текст (fmx) и посмотрите что там и как указано для подключения... повторите то же самое в runtime...
-
очень может быть что и так... жмите F9... ошибка? не беда... что за ошибка?
-
+ uses FireDAC.Phys.ODBC, FireDAC.Phys.ODBCDef... скорее всего...
-
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;
-
минимальный код: 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
-
спасибо, ща попробую разобраться...
-
спасибо.. но перед решением "в лоб"... хотелось бы узнать как поступают другие программы... написанные не на delphi....
-
для консольного приложения линукс можно указать версию (и прочее), но это не попадает в готовый файл... никто не знает? что можно сделать? чтобы программа смогла узнать свою версию.... (мои знания по линуксу - минимальные... гуглил - фигня какая то)
-
там не будет тормозов.... я на Java не пишу, но на Java очень много готового кода в интернете...
-
Formatter.zip 10.3.3
-
вроде правильно... только ошибки в английских словах исправьте (Catolog)... если тормоза есть - это уже fmx (еще очень далеко до совершенства)..... тут или смириться или искать собственные пути отображения списков...
-
загружаются стили в элементы списков (по-умолчанию они загружаются когда надо в первый раз нарисовать элемент...) попробуйте использовать BeginUpdate перед созданием и EndUpdate после... (вообще всегда используйте эти методы при создании списков на экране)
-
если кто не знает или лень искать, то пароль на хранилище ключей debug.keystore: android