Diff of /Unit4.pas

OSDN > Find Software > zencart-clone

 Browse Subversion Repository



/[zencart-clone]/Unit4.pas




Diff of /Unit4.pas



 Parent Directory

|  Revision Log



|  Patch














revision 15 by yamat0jp,
Fri Aug  5 10:33:26 2016 UTC




revision 17 by yamat0jp,
Wed Aug 24 12:31:07 2016 UTC






#

Line 8 
 uses


Line 8 
 uses












8
   IWTemplateProcessorHTML, Vcl.Controls, IWVCLBaseControl, IWBaseControl,
   IWTemplateProcessorHTML, Vcl.Controls, IWVCLBaseControl, IWBaseControl,

















9
   IWBaseHTMLControl, IWControl, IWCompGrids, IWCompButton, Variants,
   IWBaseHTMLControl, IWControl, IWCompGrids, IWCompButton, Variants,

















10
   IWCompLabel,
   IWCompLabel,















11


   IWDBStdCtrls, PngImage, IWCompExtCtrls, Data.DB;


   IWDBStdCtrls, IWCompExtCtrls, Data.DB, Jpeg;















12
 
 

















13
 type
 type

















14
   TCartForm = class(TIWAppForm)
   TCartForm = class(TIWAppForm)











#

Line 48 
 var


Line 48 
 var












48
   i, j, k: Integer;
   i, j, k: Integer;

















49
   s: TStream;
   s: TStream;

















50
   pic: TIWImage;
   pic: TIWImage;















51


   png: TPngImage;


   jpg: TJpegImage;















52
 begin
 begin

















53
   for i := 0 to IWGrid1.RowCount - 1 do
   for i := 0 to IWGrid1.RowCount - 1 do

















54
     IWGrid1.Cell[i, 0].Control.Free;
     IWGrid1.Cell[i, 0].Control.Free;











#

Line 62 
 begin


Line 62 
 begin












62
     First;
     First;

















63
     i := 0;
     i := 0;

















64
     k := 0;
     k := 0;















65


     png := TPngImage.Create;


     jpg := TJpegImage.Create;















66
     try
     try

















67
       while Eof = false do
       while Eof = false do

















68
       begin
       begin











#

Line 70 
 begin


Line 70 
 begin












70
         begin
         begin

















71
           s := CreateBlobStream(Fields.Fields[0], bmRead);
           s := CreateBlobStream(Fields.Fields[0], bmRead);

















72
           try
           try















73


             png.LoadFromStream(s);


             jpg.LoadFromStream(s);















74
           finally
           finally

















75
             s.Free;
             s.Free;

















76
           end;
           end;

















77
           pic := TIWImage.Create(IWGrid1);
           pic := TIWImage.Create(IWGrid1);















78


           pic.Picture.Assign(png);


           pic.Picture.Assign(jpg);















79
           IWGrid1.Cell[i, 0].Control := pic;
           IWGrid1.Cell[i, 0].Control := pic;

















80
         end;
         end;

















81
         IWGrid1.Cell[i, 1].Text := Fields.Fields[1].AsString;
         IWGrid1.Cell[i, 1].Text := Fields.Fields[1].AsString;











#

Line 89 
 begin


Line 89 
 begin












89
         inc(i);
         inc(i);

















90
       end;
       end;

















91
     finally
     finally















92


       png.Free;


       jpg.Free;















93
     end;
     end;

















94
   end;
   end;

















95
   IWLabel1.Text := Format('(合計)　%d + (消費税) %d = %d円',
   IWLabel1.Text := Format('(合計)　%d + (消費税) %d = %d円',





























Legend:



Removed from v.15
 


changed lines


 
Added in v.17













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[zencart-clone]/Unit4.pas
-revision 15 by yamat0jp,
Fri Aug  5 10:33:26 2016 UTC
+revision 17 by yamat0jp,
Wed Aug 24 12:31:07 2016 UTC
 Line 8 
 uses
    IWTemplateProcessorHTML, Vcl.Controls, IWVCLBaseControl, IWBaseControl,
    IWBaseHTMLControl, IWControl, IWCompGrids, IWCompButton, Variants,
    IWCompLabel,
-   IWDBStdCtrls, PngImage, IWCompExtCtrls, Data.DB;
+   IWDBStdCtrls, IWCompExtCtrls, Data.DB, Jpeg;
  type
    TCartForm = class(TIWAppForm)
 Line 48 
 var
    i, j, k: Integer;
    s: TStream;
    pic: TIWImage;
-   png: TPngImage;
+   jpg: TJpegImage;
  begin
    for i := 0 to IWGrid1.RowCount - 1 do
      IWGrid1.Cell[i, 0].Control.Free;
 Line 62 
 begin
      First;
      i := 0;
      k := 0;
-     png := TPngImage.Create;
+     jpg := TJpegImage.Create;
      try
        while Eof = false do
        begin
 Line 70 
 begin
          begin
            s := CreateBlobStream(Fields.Fields[0], bmRead);
            try
-             png.LoadFromStream(s);
+             jpg.LoadFromStream(s);
            finally
              s.Free;
            end;
            pic := TIWImage.Create(IWGrid1);
-           pic.Picture.Assign(png);
+           pic.Picture.Assign(jpg);
            IWGrid1.Cell[i, 0].Control := pic;
          end;
          IWGrid1.Cell[i, 1].Text := Fields.Fields[1].AsString;
 Line 89 
 begin
          inc(i);
        end;
      finally
-       png.Free;
+       jpg.Free;
      end;
    end;
    IWLabel1.Text := Format('(合計)　%d + (消費税) %d = %d円',
 Legend:



Removed from v.15
 


changed lines


 
Added in v.17
 Legend:



Removed from v.15
 


changed lines


 
Added in v.17
-Removed from v.15
+Added in v.17
-Back to OSDN">Back to OSDN
+ViewVC Help
 Powered by ViewVC 1.1.26

Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository