Develop and Download Open Source Software

bitmaplisttool

Browse Subversion Repository

/[bitmaplisttool]/Unit1.pas

Diff of /Unit1.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by yamat0jp, Thu Jul 16 20:11:51 2015 UTC revision 4 by yamat0jp, Thu Jul 16 20:20:19 2015 UTC
# Line 77  begin Line 77  begin
77        bmp1 := TBitmap.Create;        bmp1 := TBitmap.Create;
78        bmp2 := TBitmap.Create;        bmp2 := TBitmap.Create;
79        try        try
80          LoadToBitmap(OpenPictureDialog1.FileName, bmp2);          LoadToBitmap(OpenPictureDialog1.Files[i], bmp2);
81          if CheckBox1.Checked = true then          if CheckBox1.Checked = true then
82          begin          begin
83            if bmp2.Width < bmp2.Height then            if bmp2.Width < bmp2.Height then
Legend:
Removed from v.3  
changed lines
  Added in v.4
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help