Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository

/[zencart-clone]/Unit1.pas

Diff of /Unit1.pas

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

revision 5 by yamat0jp, Tue Dec 29 08:41:54 2015 UTC revision 6 by yamat0jp, Tue Dec 29 10:58:29 2015 UTC
# Line 206  begin Line 206  begin
206        Close;        Close;
207      end;      end;
208    end;    end;
209      LoadImage;
210    if IWGrid1.Visible = true then    if IWGrid1.Visible = true then
   begin  
211      IWLabel6.Visible := Filter;      IWLabel6.Visible := Filter;
     LoadImage;  
   end  
   else  
     DM.FDTable2.Locate('SERIAL', UserSession.Serial, []);  
212  end;  end;
213    
214  procedure TIWForm1.IWButton1Click(Sender: TObject);  procedure TIWForm1.IWButton1Click(Sender: TObject);
# Line 349  begin Line 345  begin
345    ClearImage;    ClearImage;
346    png := TPngImage.Create;    png := TPngImage.Create;
347    try    try
348      i := DM.FDTable2.RecordCount div IWGrid1.ColumnCount;      if UserSession.Thumbnail = true then
349      if DM.FDTable2.RecordCount mod IWGrid1.ColumnCount > 0 then      begin
350        inc(i);        i := DM.FDTable2.RecordCount div IWGrid1.ColumnCount;
351      IWGrid1.RowCount := i;        if DM.FDTable2.RecordCount mod IWGrid1.ColumnCount > 0 then
352      if DM.FDTable2.Filtered = false then          inc(i);
353        DM.FDTable2.Last        IWGrid1.RowCount := i;
354      else        if DM.FDTable2.Filtered = false then
355        DM.FDTable2.FindLast;          DM.FDTable2.Last
356      for i := 0 to IWGrid1.RowCount - 1 do        else
357        for j := 0 to IWGrid1.ColumnCount - 1 do          DM.FDTable2.FindLast;
358        begin        for i := 0 to IWGrid1.RowCount - 1 do
359          if DM.FDTable2.Filtered = false then          for j := 0 to IWGrid1.ColumnCount - 1 do
360          begin          begin
361            if DM.FDTable2.Bof = true then            if DM.FDTable2.Filtered = false then
362              begin
363                if DM.FDTable2.Bof = true then
364                  goto label1;
365              end
366              else if DM.FDTable2.Found = false then
367              goto label1;              goto label1;
368          end            if DM.FDTable2.FieldByName('THUMBNAIL').AsBytes <> nil then
369          else if DM.FDTable2.Found = false then            begin
370            goto label1;              s := DM.FDTable2.CreateBlobStream
371          if DM.FDTable2.FieldByName('THUMBNAIL').AsBytes <> nil then                (DM.FDTable2.FieldByName('THUMBNAIL'), bmRead);
372          begin              try
373            s := DM.FDTable2.CreateBlobStream                png.LoadFromStream(s);
374              (DM.FDTable2.FieldByName('THUMBNAIL'), bmRead);              finally
375            try                s.Free;
376              png.LoadFromStream(s);              end;
377            finally              pic := TIWImage.Create(IWGrid1);
378              s.Free;              pic.Picture.Assign(png);
379                IWGrid1.Cell[i, j].Control := pic;
380            end;            end;
381              t := DM.FDTable2.FieldByName('NAME').AsString;
382              if Length(t) > 10 then
383                t := Copy(t, 1, 8) + '..';
384              IWGrid1.Cell[i, j].Tag :=
385                Pointer(DM.FDTable2.FieldByName('SERIAL').AsInteger);
386              IWGrid1.Cell[i, j].Text := t;
387              IWGrid1.Cell[i, j].Alignment := taCenter;
388              IWGrid1.Cell[i, j].Clickable := true;
389              if DM.FDTable2.Filtered = false then
390                DM.FDTable2.Prior
391              else
392                DM.FDTable2.FindPrior;
393          end;          end;
394          t := DM.FDTable2.FieldByName('NAME').AsString;      label1:
395          if Length(t) > 10 then      end
396            t := Copy(t, 1, 8) + '..';      else if (DM.FDTable2.Locate('SERIAL', UserSession.Serial, []) = true) and
397          pic := TIWImage.Create(IWGrid1);        (DM.FDTable2.FieldByName('THUMBNAIL').AsBytes <> nil) then
398          pic.Picture.Assign(png);      begin
399          IWGrid1.Cell[i, j].Control := pic;        s := DM.FDTable2.CreateBlobStream
400          IWGrid1.Cell[i, j].Tag :=          (DM.FDTable2.FieldByName('THUMBNAIL'), bmRead);
401            Pointer(DM.FDTable2.FieldByName('SERIAL').AsInteger);        try
402          IWGrid1.Cell[i, j].Text := t;          png.LoadFromStream(s);
403          IWGrid1.Cell[i, j].Alignment := taCenter;          IWFrame8.IWImage1.Picture.Assign(png);
404          IWGrid1.Cell[i, j].Clickable := true;        finally
405          if DM.FDTable2.Filtered = false then          s.Free;
           DM.FDTable2.Prior  
         else  
           DM.FDTable2.FindPrior;  
406        end;        end;
407    label1:      end
408        else
409          IWFrame8.IWImage1.Picture.Assign(nil);
410    finally    finally
411      png.Free;      png.Free;
412    end;    end;
Legend:
Removed from v.5  
changed lines
  Added in v.6
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help