Action Properties Dialog
Posted: Tue Jan 17, 2023 8:58 pm
Hi Sergey,
I'm using RVAControlPanel OnCreateForm to change the opening position of the dialogs. Works well to reposition:
However, I found that with properties dialogs the OK and Cancel buttons aren't positioned correctly:
And should look like this:
I added some code to account for this:
Thought you'd like to be aware of that.
Stan
I'm using RVAControlPanel OnCreateForm to change the opening position of the dialogs. Works well to reposition:
Code: Select all
procedure TForm1.RVAControlPanel1CreateForm(Form: TForm);
begin
Form.Position := poScreenCenter;
end;- incorrect.png (12.1 KiB) Viewed 10655 times
And should look like this:
- correct.png (12.61 KiB) Viewed 10655 times
I added some code to account for this:
Code: Select all
procedure TForm1.RVAControlPanel1CreateForm(Form: TForm);
var
i: integer;
begin
Form.Position := poScreenCenter;
for i := 0 to Form.ComponentCount-1 do
begin
if Form.Components[i].ClassType = TButton then
begin
if (TButton(Form.Components[i]).Caption = 'OK') or (TButton(Form.Components[i]).Caption = 'Cancel') then
begin
TButton(Form.Components[i]).Top := Form.ClientHeight - TButton(Form.Components[i]).Height - 8;
end;
end;
end;
end;Stan