[Stephane Senecal]

I'm trying to figure out why a form in my app does not scale.

Can you tell my where the scaling occurs in AlphaSkins libraries?

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Support]

Hi

Please, look this article: http://www.alphaskins.com/showdoc.php?l=en&n=21

You can find some useful information about scaling in the package and maybe, your questions are answered there.

If you have questions still, I'm ready to answer them here.

[SzakiLaci]

'Stephane wrote:

I'm trying to figure out why a form in my app does not scale.

Can you tell my where the scaling occurs in AlphaSkins libraries?

Are you using it the default delphi-way? (OnShow event)

For me, this works:

Code:

type
Form1 = class(TForm)
…
private
already_scaled_once: Boolean;
end;
…
procedure TForm1.create(Sender: TObject);
begin
already_scaled_once := False;
end;

procedure TForm1.FormShow(Sender: TObject);
if not already_scaled_once then begin
already_scaled_once := True;
ScaleBy(200,100);
end;
end;

(In this case it works even if the Skin turned OFF.)

[Stephane Senecal]

It didn't help.

I wanted to know in what Unit-Function forms were scaled so I can debug it.

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Support]

Hello, Stephane

Do you need a one-time scaling for support of system DPI when program is loading?

Or, do you need a changing of DPI by user in real-time?

[Stephane Senecal]

One time loading at form creation.

Delphi 7 does not support real time dpi changing unfortunately.

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Support]

But AlphaControls can do it under Delphi 7

You saw an official demo? You tried to use the TsSkinManager.Options.ScaleMode property?

[Author]

Posts