Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Проблема масштабирования TRect  (Прочитано 6947 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Serg76
Гость
« : 18-05-2007 11:29 » new

по событию OnResize пытался увеличить размеры объкта TRect и столкнулся с интересной проблемой Здесь была моя ладья...
упрощенный пример кода
Код:
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  TRect R=Rect(0,0,Image1->Width,Image1->Height);
  Image1->Canvas->Brush->Color=clOlive;
  Image1->Canvas->FillRect(R);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Image1->Width+=50;
  Image1->Height+=50;

  TRect R=Rect(0,0,Image1->Width,Image1->Height);
  Image1->Canvas->Brush->Color=clLime;
  Image1->Canvas->FillRect(R);
}

вроде бы квадрат должен расти с размерами Image ан не.
в обратную сторону всё работает Быть такого не может

как решить проблему? Здесь была моя ладья...
Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 18-05-2007 15:55 » 

Serg76, а ты после увеличения размеров Image проверь эти поля отладчиком. Они точно изменились? Может там autosize стоит...
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Serg76
Гость
« Ответ #2 : 21-05-2007 07:13 » 

RXL, autosize не стоит
Записан
Serg76
Гость
« Ответ #3 : 01-06-2007 09:42 » 

 Улыбаюсь Нашел решение на другом форуме

Код:
  Image1->Width+=50;
  Image1->Height+=50;

  Image1->Picture->Bitmap->Height+=50;
  Image1->Picture->Bitmap->Width+=50;

  TRect R=Rect(0,0,Image1->Width,Image1->Height);
  Image1->Canvas->Brush->Color=clLime;
  Image1->Canvas->FillRect(R);
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines