Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

масштабирование


Scott Storch ©   (2010-10-28 21:29:00) 

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


sniknik   (2010-10-29 12:38:00) [1]

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

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

нажал кнопку, изменил - вызвалось.


Leonid Troyanovsky   (2010-10-29 12:38:00) [2]


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

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

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

--
Regards, LVT.


oldman   (2010-10-29 11:55:00) [3]


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


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


Scott Storch   (2010-10-28 22:00:00) [4]

этот метод маштабирует все дочерние компоненты (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-28 21:47:00) [5]

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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо