[georgettank]

Ah thanks a lots

I will look it

Best regards

[georgettank]

I have change the align property

Bu t it seems that it does not work

Previous Atached is the Demo

thank you very much

[georgettank]

Previous Attached is the Demo

But It has a problem,It does not work that

I can not dynamically remove(free) one Frame and add(create) the other Frame simultaneously

Thanks a lot

[georgettank]

I have change the align property

Bu t it seems that it does not work

Atached is the Demo

thanks

[georgettank]

Hi

Attached is the Demo

But It has a problem,It does not work that

I can not dynamically remove(free) one Frame and add(create) the other Frame simultaneously

last I wish you a Happy Labor Day

best regard

[georgettank]

Last

I wish you have a happy Labor Day

[georgettank]

Hi Neon

First thanks for your warmly reply very much

But how can you to fill the margin of frames when the controls on the right have been aligned to right

I think It is the best to scale the controls include frames

But there has no scale property in frame

I think It is hard to do this best

[georgettank]

The frame such as FrameAbout can not keep up with the moving of the Framebar

I just wanna all the frames in the mainform move toward left with the movement of the framebar

Is it possible ？？？？？

[georgettank]

Can anyone help me？？

Thank you very much

I have posted this problem in many forums , but no one can help me

Maybe this the last time

[georgettank]

Hi Neon

I have a Demo dowloaded from this forum

Can you change the code of the demo by using alignment property

Attached is the demo

I found it hard to kill the problem of margin in 1280×1025 size mode and not displayed fully in 800×600 size mode

Maybe you can help me

thanks

[georgettank]

Meanwhile the file ExceptionLog.dcu can not be found

I have kill it using “//”

where is it ???

[georgettank]

A other problem occured！

The frame such as FrameAbout can not keep up with the moving of the Framebar

I just wanna all the frames in the mainform move toward left with the movement of the framebar

Is it possible ？？？？？

[georgettank]

ah thanks a lot

I will test is right now

best regard

[georgettank]

thanks for your reply sir

ah ??Maybe you are right

But I do not think this will satisfy the Customer

because the margin and controls which have not been displayed fully will make Customer Not satisfied with

Is there any other suggestion?????

best regard

[georgettank]

hi i have posted it in the other topic

[georgettank]

I do not know weather you have got the meaning

Can you give me some advice

[georgettank]

Yes

You have got it

Also for the AlphaSkinDomo ,Here are some pictures of the Problem

One has too much margin there(1280*1024 mode)

Another ia not displayed fully(800*600 mode)

It does not work well when all the Controls are scaled when I maxmize the Window

[georgettank]

I have a suggestion ,compile the alphacontrols and rebuild them so you will get the bpl file , Install them in the bpl way not the dbk way

and last set the path to your project ,try it more ,and you will get it

[georgettank]

Yes,I want to scale all the frames and controls to fit various Screen

I have try the code belowed

but it sems doe not work

unit untFixForm;

interface

uses
Classes, SysUtils, Controls, Forms;

type
TFontedControl = class(TControl)
public
property Font;
end;

TFontMapping = record
SWidth : Integer;
SHeight: Integer;
FName: string;
FSize: Integer;
end;

procedure FixForm(AForm: TForm);
procedure SetFontMapping;

var
FontMapping : array of TFontMapping;

implementation

procedure SetFontMapping;
begin
SetLength(FontMapping, 3);

// 800 x 600
FontMapping[0].SWidth := 800;
FontMapping[0].SHeight := 600;
FontMapping[0].FName := 'Tahoma';
FontMapping[0].FSize := 7;

// 1024 x 768
FontMapping[1].SWidth := 1024;
FontMapping[1].SHeight := 768;
FontMapping[1].FName := 'Tahoma';
FontMapping[1].FSize := 9;

// 1280 x 1024
FontMapping[2].SWidth := 1280;
FontMapping[2].SHeight := 1024;
FontMapping[2].FName := 'Tahoma;
FontMapping[2].FSize := 11;

end;

procedure FixForm(AForm: TForm);
var
i, j : integer;
t : TControl;
begin
with AForm do
begin
for i := 0 to ComponentCount – 1 do
begin
try
t := TControl(Components);
t.left := Trunc(t.left * (Screen.width / 1024));
t.top := Trunc(t.Top * (Screen.Height / 768));
t.Width := Trunc(t.Width * (Screen.Width / 1024));
t.Height := Trunc(t.Height * (Screen.Height / 768));
except
end; { try }
end; { for i }

for i:= 0 to Length(FontMapping) – 1 do
begin
if (Screen.Width = FontMapping.SWidth) and (Screen.Height = FontMapping.SHeight) then
begin
for j := 0 to ComponentCount – 1 do
begin
try
TFontedControl(Components[j]).Font.Name := FontMapping.FName;
TFontedControl(Components[j]).FONT.Size := FontMapping.FSize;
except
end; { try }
end; { for j }
end; { if }
end; { for i }
end; { with }
end;

initialization
SetFontMapping;

end.

QUOTE (Support @ Apr 16 2009, 06:28 PM)

Sorry, I not quite understand you seems.
You want to have a scaled form with all controls?

[georgettank]

Thanks for your reply

That do good

best regard

QUOTE (Support @ Apr 16 2009, 06:30 PM)

Try this code, please

CODE

procedure TFrameButtons.sBitBtn3Click(Sender: TObject);
begin
  if Mainform.sFrameLookBar1.Items[0].Frame nil then TFrameBarControls(Mainform.sFrameLookBar1.Items[0].Frame).sBitBtn1.Enabled := True;
{
  if Assigned(OldFrame) then FreeAndNil(OldFrame);
  Frame := TFrameBarControls.Create(nil);
  TFrameBarControls(Frame).sBitBtn1.Enabled := True;
}
end;

PS. Other your messages will be deleted, please do not duplicate them.

[Author]

Posts