|
이미지 확대축소를만들려고 해서여 아래 첨부파일사진을 보시면
메인메뉴를 만들고 이미지파일을 추가시킨뒤
void __fastcall TForm1::ZoomIn1Click(TObject *Sender)
{
VertScrollBar->Range = Height*2;
VertScrollBar->Visible = true;
HorzScrollBar->Range = Width*2;
HorzScrollBar->Visible = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ZoomOut1Click(TObject *Sender)
{
VertScrollBar->Range = Height*0.8;
VertScrollBar->Visible = true;
HorzScrollBar->Range = Width*0.8;
HorzScrollBar->Visible = true;
}
이걸 코딩해보았습니다
책에선 이상하게 이거만해도 사진확대라고 써잇더군요
그런데 제가봐서는 스크롤바 생성만보이는데 사진이미지확대를 어떻게하는지모르겠습니다 좀알려주세요!
|