ミ,,゚Д゚彡フサギコのフサフサDelphi談話室�C
■ このスレッドは過去ログ倉庫に格納されています
0691デフォルトの名無しさん
NGNGFormにTOpenPictureDialog貼って、TButton貼って、
TScrollBox貼ってAlignをalClientにして、その中にTImage貼って、usesにjpeg加えて、
たしか、こんな感じでOKだったように思う。
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
Image1.Width := Image1.Picture.Graphic.Width;
Image1.Height := Image1.Picture.Graphic.Height;
end;
end;
■ このスレッドは過去ログ倉庫に格納されています