�@ �g�b�v�y�[�W��

�e����̉ߋ����O

�EC/C++
�EDelphi
�EVisual Basic���S��
�@(VB2-VB6��.NET���p)
�EVisual Basic(VB2-VB6)
�EVisual Basic .NET
�EVisual C++

�֘A�T�C�g

�Epapy's softwarelibrary

totonica 2006/08/14(��) 23:03:34

�F�l����΂�́Btotonica�Ɛ\���܂��B
�ߋ����O�ɂ�����悤�Șb�肪�����ċ��k�ł����A
DHGL1.2��BigBitmap�N���X��Stretch�֐���p����
��ʂ̉摜�̊g��k����s���Ă���̂ł����A
������Free���Ă�ɂ������炸�A
1�‰摜��������邲�ƂɃ�������������ꂸ�g�p�ʂ��ǂ�ǂ񑝉����Ă����A
����ɗe�ʕs���Ɋׂ��Ă��܂��܂��B
�i�v���O������I������Ƌ󂫗e�ʂ����ɖ߂�܂��j
�ǂ�����΂��̓s�x����������������悤�ɂȂ�̂ł��傤���B
�ǂȂ����������������B
�J���‹���XP Pro SP2�{Del7 Pro�A
���̉摜��2950�~2094�̃r�b�g�}�b�v�ł��B

�ȉ��̏����͌��ؗp�̕��ŁA
�{�^���N���b�N���邱�Ƃ�100�~100�̏k���摜�����̂ł��B
���x��{�^�������������
�������g�p�ʂ��ǂ�ǂ�オ���Ă����Ă��܂��܂��B
�i��͂�v���O�����̏I���ŋ󂫗e�ʂ����ɖ߂�܂��j

procedure TForm1.Button1Click(Sender: TObject);
var
  BMP: TBigBitmap;
begin
  Inc(Index);//Integer�^�̃O���[�o���ϐ�
  BMP:= TBigBitmap.Create;
  try
    begin
      BMP.LoadFromFile(ExtractFilePath(Application.ExeName)+'test.bmp');//2950�~2094�̌��摜�r�b�g�}�b�v�̓ǂݍ���
      BMP:= Stretch(BMP,100,100);//���摜��100�~100�ɏk��
      BMP.SaveToFile(ExtractFilePath(Application.ExeName)+IntToStr(Index)+'.bmp');
    end;
  finally
    BMP.Free;
  end;
end;

���݂� 2006/08/15(��) 00:14:25

>      BMP:= Stretch(BMP,100,100);//���摜��100�~100�ɏk��

�v�������������R��Ă��܂����E�E�E

totonica 2006/08/15(��) 00:50:05

���݂Â��񂲎w�E���肪�Ƃ��������܂��B
�S������Ă��̒ʂ�ł���orz
�����Ă����������Đ\���󂠂�܂���ł����B

Created by board of various Programming Library.