ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / ErrorSoftVclComponents
9 сообщений из 59, страница 3 из 3
  3  все
ErrorSoftVclComponents
    #39748866
WizardEye
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WizardEye
Гость
errorsoft,

Проверил. Всё отлично установилось и работает!
Спасибо!
...
Рейтинг: 0 / 0
17.12.2018, 12:34
| Ответить | Цитировать | Написать  
ErrorSoftVclComponents
    #39751972
Уважаемый автор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Уважаемый автор
Участник
errorsoft,
Для FireMonkey бы версию... будет?
...
Рейтинг: 0 / 0
23.12.2018, 23:52
| Ответить | Цитировать | Написать  
ErrorSoftVclComponents
    #39753068
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
errorsoft
Гость
Уважаемый авторerrorsoft,
Для FireMonkey бы версию... будет?
А какие конкретно компоненты интересуют?
Ведь в FMX нет проблемы мерцания, и компонентов прямо из коробки много...
...
Рейтинг: 0 / 0
25.12.2018, 19:50
| Ответить | Цитировать | Написать  
ErrorSoftVclComponents
    #39804403
Prot_XT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Prot_XT
Участник
Что-то с Get-it не хочется ставиться, пошел на GitHub...
...
Рейтинг: 0 / 0
21.04.2019, 08:11
| Ответить | Цитировать | Написать  
ErrorSoftVclComponents
    #39804432
shonli95
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shonli95
Гость
Мерцают, и багаются. Что за.

 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
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.

...
Рейтинг: 0 / 0
21.04.2019, 11:44
| Ответить | Цитировать | Написать  
ErrorSoftVclComponents
    #39804606
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
errorsoft
Гость
Prot_XTЧто-то с Get-it не хочется ставиться, пошел на GitHub...
К сожалению GetIt иногда внутри ломается :/
При ручной установке проблем нет никаких
...
Рейтинг: 0 / 0
22.04.2019, 05:13
| Ответить | Цитировать | Написать  
ErrorSoftVclComponents
    #39804608
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
errorsoft
Гость
shonli95Мерцают, и багаются. Что за.

 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
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) минимальный проект с мерцанием - посмотрю.
...
Рейтинг: 0 / 0
22.04.2019, 05:16
| Ответить | Цитировать | Написать  
ErrorSoftVclComponents
    #39804705
Фотография Квейд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Квейд
Участник
shonli95Мерцают, и багаются. Что за.

 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
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 вызывать не предлагать?
...
Рейтинг: 0 / 0
22.04.2019, 10:33
| Ответить | Цитировать | Написать  
ErrorSoftVclComponents
    #39847265
Фотография Victor Cookin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victor Cookin
Участник
Prot_XT,

Да же фигня Delphi Rio.
Наверно на GetIt! надо бы пофиксить, а то не все ж будут сорцы сами ставить. Да и осадочек.
...
Рейтинг: 0 / 0
09.08.2019, 00:11
| Ответить | Цитировать | Написать  
9 сообщений из 59, страница 3 из 3
  3  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / ErrorSoftVclComponents
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&gotonew=1&tid=2039160]:
 0ms
get settings:
 9ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 185ms
get topic data:
 9ms
get first new msg:
 6ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 232ms
total:  499ms
созд. / загр.: 499ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]