Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Регистрация на сайте занимает 40 секунд, а пользу приносит годами.

Дополнительные функции

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

Статистика за сегодня:

Вопросы: 0
Ответы: 0
Мини-форумы: 0

Онлайн на сайте: 131 (3404)
Онлайн в IRC: 2 (17)
Последние новости:
8 июля 2023
Последний вопрос:
9 августа 2022, 09:39
Последний ответ:
29 марта 2018, 23:32

Лучшие эксперты

Подробнее »

Вопрос # 1 680

Раздел: Delphi » Работа с компонентами и библиотеками

/ вопрос открыт /

Приветствую, уважаемые эксперты!
Есть следующий код.
Так вот в случае когда меняется размер кнопки есть одна проблемка.В кнопку загружен bmp.Возможно ли доделать код так,что бы менялся размер картинки вместе с размером кнопки.

Приложение:

var
XStart : integer;
YStart : integer;
XLast : integer;
YLast : integer;
......
procedure TForm1.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState;X, Y: Integer);
var
What : word;
begin
What:=0;
if ssLeft in Shift then begin
end;
case What of
XStart:=X;
YStart:=Y;
end;
SpeedButton1.Left:=SpeedButton1.Left+(X-XStart);
SpeedButton1.Top :=SpeedButton1.Top +(Y-YStart);
end;
SpeedButton1.Width :=SpeedButton1.Width +(X-XLast);
SpeedButton1.Height:=SpeedButton1.Height+(Y-YLast);
end;
end;
XLast:=X; YLast:=Y;
end;