Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
Топик располагается на нескольких страницах: Ctrl  назад   1 2 [3]      все
 Re: ErrorSoftVclComponents  [new]
WizardEye
Member

Откуда:
Сообщений: 2
errorsoft,

Проверил. Всё отлично установилось и работает!
Спасибо!
17 дек 18, 12:34    [21765789]     Ответить | Цитировать Сообщить модератору
 Re: ErrorSoftVclComponents  [new]
Уважаемый автор
Member

Откуда: Питер
Сообщений: 312
errorsoft,
Для FireMonkey бы версию... будет?
23 дек 18, 23:52    [21771651]     Ответить | Цитировать Сообщить модератору
 Re: ErrorSoftVclComponents  [new]
errorsoft
Member

Откуда: Санкт-Петербург
Сообщений: 175
Уважаемый автор
errorsoft,
Для FireMonkey бы версию... будет?

А какие конкретно компоненты интересуют?
Ведь в FMX нет проблемы мерцания, и компонентов прямо из коробки много...
25 дек 18, 19:50    [21773306]     Ответить | Цитировать Сообщить модератору
 Re: ErrorSoftVclComponents  [new]
Prot_XT
Member

Откуда: KZ, Костанай
Сообщений: 219
Что-то с Get-it не хочется ставиться, пошел на GitHub...

К сообщению приложен файл. Размер - 15Kb
21 апр 19, 08:11    [21868056]     Ответить | Цитировать Сообщить модератору
 Re: ErrorSoftVclComponents  [new]
shonli95
Member

Откуда:
Сообщений: 85
Мерцают, и багаются. Что за.

+
unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ES.BaseControls, ES.Switch, ES.Images, DxGDIPlusClasses,
  Vcl.StdCtrls, ES.RegexControls, ES.Labels, ES.Indicators;

type
  TForm3 = class(TForm)
    EsImage1: TEsImage;
    EsSwitch1: TEsSwitch;
    EsActivityBar1: TEsActivityBar;
    procedure EsImage1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsImage1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsImage1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure EsSwitch1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsSwitch1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure EsSwitch1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsActivityBar1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsActivityBar1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure EsActivityBar1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

var
  SX: Integer = -1;
  SY: Integer = -1;

implementation

{$R *.dfm}

procedure Point1Set(X, Y: Integer);
begin
  SX := X;
  SY := Y;
end;

procedure Move(Sender: TObject; X, Y: Integer);
begin
  if SX >= 0 then
  begin
    TControl(Sender).Left := TControl(Sender).Left - (SX - X);
    TControl(Sender).Top := TControl(Sender).Top - (SY - Y);
  end;
end;

procedure TForm3.EsActivityBar1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(X, Y);
end;

procedure TForm3.EsActivityBar1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Move(Sender, X, Y);
end;

procedure TForm3.EsActivityBar1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(-1, -1);
end;

procedure TForm3.EsImage1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(X, Y);
end;

procedure TForm3.EsImage1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Move(Sender, X, Y);
end;

procedure TForm3.EsImage1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(-1, -1);
end;


procedure TForm3.EsSwitch1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(X, Y);
end;

procedure TForm3.EsSwitch1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Move(Sender, X, Y);
end;

procedure TForm3.EsSwitch1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(-1, -1);
end;

end.


К сообщению приложен файл. Размер - 7Kb
21 апр 19, 11:44    [21868118]     Ответить | Цитировать Сообщить модератору
 Re: ErrorSoftVclComponents  [new]
errorsoft
Member

Откуда: Санкт-Петербург
Сообщений: 175
Prot_XT
Что-то с Get-it не хочется ставиться, пошел на GitHub...

К сожалению GetIt иногда внутри ломается :/
При ручной установке проблем нет никаких
22 апр 19, 05:13    [21868441]     Ответить | Цитировать Сообщить модератору
 Re: ErrorSoftVclComponents  [new]
errorsoft
Member

Откуда: Санкт-Петербург
Сообщений: 175
shonli95
Мерцают, и багаются. Что за.

+
unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ES.BaseControls, ES.Switch, ES.Images, DxGDIPlusClasses,
  Vcl.StdCtrls, ES.RegexControls, ES.Labels, ES.Indicators;

type
  TForm3 = class(TForm)
    EsImage1: TEsImage;
    EsSwitch1: TEsSwitch;
    EsActivityBar1: TEsActivityBar;
    procedure EsImage1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsImage1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsImage1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure EsSwitch1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsSwitch1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure EsSwitch1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsActivityBar1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsActivityBar1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure EsActivityBar1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

var
  SX: Integer = -1;
  SY: Integer = -1;

implementation

{$R *.dfm}

procedure Point1Set(X, Y: Integer);
begin
  SX := X;
  SY := Y;
end;

procedure Move(Sender: TObject; X, Y: Integer);
begin
  if SX >= 0 then
  begin
    TControl(Sender).Left := TControl(Sender).Left - (SX - X);
    TControl(Sender).Top := TControl(Sender).Top - (SY - Y);
  end;
end;

procedure TForm3.EsActivityBar1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(X, Y);
end;

procedure TForm3.EsActivityBar1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Move(Sender, X, Y);
end;

procedure TForm3.EsActivityBar1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(-1, -1);
end;

procedure TForm3.EsImage1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(X, Y);
end;

procedure TForm3.EsImage1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Move(Sender, X, Y);
end;

procedure TForm3.EsImage1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(-1, -1);
end;


procedure TForm3.EsSwitch1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(X, Y);
end;

procedure TForm3.EsSwitch1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Move(Sender, X, Y);
end;

procedure TForm3.EsSwitch1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(-1, -1);
end;

end.


Не совсем понятно, что вы хотите сделать?
Перетаскивать компоненты мышкой?
Боюсь многие компоненты не выдержат такого :)
Пришлите на почту(errorsoft(at)mail.ru) минимальный проект с мерцанием - посмотрю.
22 апр 19, 05:16    [21868443]     Ответить | Цитировать Сообщить модератору
 Re: ErrorSoftVclComponents  [new]
Квейд
Member

Откуда: Kyiv, Ukraine
Сообщений: 5264
shonli95
Мерцают, и багаются. Что за.

+
unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ES.BaseControls, ES.Switch, ES.Images, DxGDIPlusClasses,
  Vcl.StdCtrls, ES.RegexControls, ES.Labels, ES.Indicators;

type
  TForm3 = class(TForm)
    EsImage1: TEsImage;
    EsSwitch1: TEsSwitch;
    EsActivityBar1: TEsActivityBar;
    procedure EsImage1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsImage1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsImage1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure EsSwitch1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsSwitch1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure EsSwitch1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsActivityBar1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsActivityBar1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure EsActivityBar1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

var
  SX: Integer = -1;
  SY: Integer = -1;

implementation

{$R *.dfm}

procedure Point1Set(X, Y: Integer);
begin
  SX := X;
  SY := Y;
end;

procedure Move(Sender: TObject; X, Y: Integer);
begin
  if SX >= 0 then
  begin
    TControl(Sender).Left := TControl(Sender).Left - (SX - X);
    TControl(Sender).Top := TControl(Sender).Top - (SY - Y);
  end;
end;

procedure TForm3.EsActivityBar1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(X, Y);
end;

procedure TForm3.EsActivityBar1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Move(Sender, X, Y);
end;

procedure TForm3.EsActivityBar1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(-1, -1);
end;

procedure TForm3.EsImage1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(X, Y);
end;

procedure TForm3.EsImage1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Move(Sender, X, Y);
end;

procedure TForm3.EsImage1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(-1, -1);
end;


procedure TForm3.EsSwitch1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(X, Y);
end;

procedure TForm3.EsSwitch1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Move(Sender, X, Y);
end;

procedure TForm3.EsSwitch1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(-1, -1);
end;

end.
UpdateWindow вызывать не предлагать?
22 апр 19, 10:33    [21868586]     Ответить | Цитировать Сообщить модератору
 Re: ErrorSoftVclComponents  [new]
Victor Cookin
Member

Откуда: Самара
Сообщений: 714
Prot_XT,

Да же фигня Delphi Rio.
Наверно на GetIt! надо бы пофиксить, а то не все ж будут сорцы сами ставить. Да и осадочек.
9 авг 19, 00:11    [21945242]     Ответить | Цитировать Сообщить модератору
Топик располагается на нескольких страницах: Ctrl  назад   1 2 [3]      все
Все форумы / Delphi Ответить