Присобачить полосы прокрутки к компоненту TImage
Я, в принципе, догадываюсь, как это сделать топорно: кладёшь на форму компонент Image, кладёшь на него полосы прокрутки, две штуки, одну вертикальную, другую горизонтальную. Потом - самое интересное: написать обработчики событий OnScroll для обеих полос прокрутки, чтоб, значит, через свойство Position форма сама разбиралась, чего на компоненте должно быть нарисовано, и как его рисовать. Но, скажем, в компоненте RichEdit полосы прокрутки уже встроенные... Может быть, что-то похожее есть и у Image? Или эта проблема решается как-то по-другому? Или только так, как я написал?
можно так...
на форме TPanel на нее TImage и два TScrollBar
Image2->AutoSize = true
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
ScrollBar2->Max = Image2->Height - Panel1->Height;
ScrollBar1->Max = Image2->Width - Panel1->Width;
}
void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
{
Image2->Left = - ScrollBar1->Position;
}
void __fastcall TForm1::ScrollBar2Change(TObject *Sender)
{
Image2->Top = - ScrollBar2->Position;
}
на форме TPanel на нее TImage и два TScrollBar
Image2->AutoSize = true
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
ScrollBar2->Max = Image2->Height - Panel1->Height;
ScrollBar1->Max = Image2->Width - Panel1->Width;
}
void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
{
Image2->Left = - ScrollBar1->Position;
}
void __fastcall TForm1::ScrollBar2Change(TObject *Sender)
{
Image2->Top = - ScrollBar2->Position;
}
Просто засовываешь Image в ScrollBox и все дела ;-)