Код: Выделить всё
class function TCustomForm.GetControlClassDefaultSize: TSize;
begin
Result.CX := 320;
Result.CY := 240;
end;Ставим нужные размеры, пересобираем и будет вам счастье.
Код: Выделить всё
class function TCustomForm.GetControlClassDefaultSize: TSize;
begin
Result.CX := 320;
Result.CY := 240;
end;Сервис - Преобразовать модуль (проект, ...) Delphi в ...
Это в CodeTyphon.
В Лазарусе тоже есть подобное.
И забудьте уже про тип real.
serg_iv писал(а):я один ничего не понял?