[Gregory.P]

'Support' wrote:

Hello!

System colors are depended from skin colors if this property is True. BtnFace color is changed also and equal to the main skin color usually.

I can add a special “pcGrid” color to the SkinManager.palette for using in such cases.

Or you can use this code now for calculating a color:

Code:

uses sGraphUtils;
…
Canvas.Pen.color := BlendColors(sSkinManager.Palette[pcEditText], sSkinManager1.Palette[pcEditBG], 38);

But, if you have a constant white background there, then you can just make this color unchangeable, like $D0D0D0, I think.

thank you

[Gregory.P]

'Support' wrote:

Thank you, good sites.

https://themeforest.net/category/site-templates/admin-templates

https://wrapbootstrap.com/themes

https://speckyboy.com/free-bootstrap-admin-themes/

https://w3layouts.com/admin-templates/

[Gregory.P]

'Support' wrote:

How can I repeat it? Maybe you can give me this project?

[attachment=8125:Project1.zip]

[Gregory.P]

Problem download the new version 11.24

[Gregory.P]

'Support' wrote:

Hello!

This form is Modal? Can you give me a Dfm file for this form? Or maybe you have a ready test-app already?

Yes Form Show Modal

It does not make all the time

[Gregory.P]

Form Show no scrollbox

[attachment=8105:Sans titre.png]

[Gregory.P]

'TAZ' wrote:

Using a status bar as a container for other controls has always been a problematic iffy when the form is sizable. You have to add code in the form's resize event to control something like what you are doing.

I use a TsPanel and set its SkinSection to STATUSBAR. Works perfectly and you cannot tell the difference.

Just a thought.

thank you TAZ :a3:

[Gregory.P]

:a3:

[attachment=8079:Sans titre.png]

[Gregory.P]

'Support' wrote:

Thank you, I will fix it in the nearest release.

thank you :a3:

[Gregory.P]

[attachment=8066:Sans titre.png]

[attachment=8067:Hint.zip]

[Gregory.P]

'Support' wrote:

Do you have sources of the AlphaControls package? I can send some patched files in this case.

Package AlphaControls v11.22 Stable released ?

[Gregory.P]

'Support' wrote:

Thank you for the demo. This is a standard behaviour, OnClick event is not fired in standard TCombobox too.

Ok DropDown event = OnClick event :a3:

Code:

procedure TForm1.sComboBox1DropDown(Sender: TObject);
begin

sComboBox1.Clear;

with sComboBox1.Items do
begin
Add('1');
Add('2');
Add('3');
end;

sComboBox1.ItemIndex := 0;
end;

[Gregory.P]

'Support' wrote:

I will try to fix it in the nearest release. But animation of form showing must be deactivated in this case.

Problem solved –> TApplicationEvents Activate Form

Code:

procedure TForm1.ApplicationEvents1Activate(Sender: TObject);
begin
Form2 := TForm2.Create(Application);

if Form2.ShowModal = mrCancel then
Application.Terminate;
end;

Animation Form no Problem :a3:

[attachment=8065:Code.zip]

[Gregory.P]

Release & Debug *.exe

[attachment=8064:Win32.zip]

[Gregory.P]

'NuLLCoDe' wrote:

BorderStyle = bsNone but still alpha controls shows border.

Yes indeed 😐

[Gregory.P]

Form BorderStyle = bsNone;

[Gregory.P]

'Stertor' wrote:

Странно, что Alphaskins VCL не включает в себя столь нужный компонент.

Такая штука есть в джедайке, но не оскинивается.

TsComboBox : OnClick

Code:

procedure GetDriveLetters(AList: TStrings);
var
vDrivesSize: Cardinal;
vDrives: array[0..128] of Char;
vDrive: PChar;
begin
AList.BeginUpdate;

try

AList.Clear;
vDrivesSize := GetLogicalDriveStrings(SizeOf(vDrives), vDrives);

if vDrivesSize = 0 then Exit;

vDrive := vDrives;
while vDrive^ #0 do
begin
AList.Add(StrPas(vDrive));
Inc(vDrive, SizeOf(vDrive));
end;

finally
AList.EndUpdate;
end;

end;

:a3:

[Gregory.P]

thank you AlphaControls v11.22 Stable released :a3:

[Gregory.P]

'Support' wrote:

I'll try to improve it.

thank you

[Gregory.P]

thank you

[Author]

Posts