Текущий архив: 2011.01.23;
Скачать: CL | DM;

Вниз

масштабирование   Найти похожие ветки 

← →
Scott Storch   (2010-10-28 21:29) [0]

можно ли как-нибудь переопределить метод TCustomForm.ChangeScale.

---

← →
oldman ©   (2010-10-28 21:47) [1]

Кто на ком стоял? ©

Куда переопределить? Чего не устраивает-то?

---

← →
Scott Storch   (2010-10-28 22:00) [2]

этот метод маштабирует все дочерние компоненты (ScaleControls), мне нужно, чтобы в нем вызывался scale_icons_sizes для моего компонента.


Вот код:

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;

type

 TForm1 = class(TForm)
 private
   procedure ChangeScale(M, D: Integer); override;
 public

 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.ChangeScale(M, D: Integer);
begin
 inherited;
 scale_icons_sizes(M, D);
end;

end.


В инете пишут, что ChangeScale вызывается автоматически при изменении масштаба. Масштаб менял, процедура автоматически так и не откуда не вызывается.

---

← →
oldman ©   (2010-10-29 11:55) [3]

> В инете пишут, что ChangeScale вызывается автоматически
> при изменении масштаба.


Может таки это метод? А ты его собственной процедурой забахал и ждешь у моря погоды...

---

← →
sniknik ©   (2010-10-29 12:38) [4]

> Масштаб менял, процедура автоматически так и не откуда не вызывается.
может не так менял? может путаешь масштаб с изменением размеров?

у меня вот все замечательно вызывается
procedure TForm1.Button1Click(Sender: TObject);
begin
 ScaleBy(100, 50);
end;
нажал кнопку, изменил - вызвалось.

---

← →
Leonid Troyanovsky ©   (2010-10-29 12:38) [5]

> Scott Storch   (28.10.10 22:00) [2]

> при изменении масштаба. Масштаб менял,

У тебя ошибка в 17 строке.

--
Regards, LVT.

---

Страницы: 1 вся ветка

Текущий архив: 2011.01.23;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c