ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/Tools/Preview.pas
(Generate patch)

Comparing oup/current/Tools/Preview.pas (file contents):
Revision 109 by alloc, Wed Feb 21 03:12:33 2007 UTC vs.
Revision 193 by alloc, Sat May 26 14:24:55 2007 UTC

# Line 29 | Line 29 | type
29      procedure SetBitmapCount(Count: Integer);
30      procedure LoadImage(fileid, index: Integer);
31    private
32 <    bitmaps:   array of TBitmap;
32 >    bitmaps:   array of TOniImage;
33      actualimg: Byte;
34      _fileid:   Integer;
35    public
# Line 40 | Line 40 | var
40  
41   implementation
42   {$R *.dfm}
43 + uses Imaging, ImagingComponents, ImagingTypes;
44  
45  
46   procedure TForm_Preview.FormCreate(Sender: TObject);
# Line 82 | Line 83 | end;
83  
84  
85   procedure TForm_Preview.LoadImage(fileid, index: Integer);
85 – var
86 –  memstream: TMemoryStream;
87 –  OniImage:  TOniImage;
86   begin
87 <  OniImage := TOniImage.Create;
90 <  OniImage.Load(ConnectionID, fileid);
91 <  memstream := TMemoryStream.Create;
92 <  OniImage.GetAsBMP(TStream(memstream));
93 <  OniImage.Free;
94 <  bitmaps[index].LoadFromStream(memstream);
95 <  memstream.Free;
87 >  bitmaps[index].Load(ConnectionID, fileid);
88   end;
89  
90  
91   procedure TForm_Preview.DrawImage(index: Integer);
92   begin
93 <  BitBlt(img.Canvas.Handle, 0, 0, img.Width, img.Height,
102 <    bitmaps[index].Canvas.Handle, 0, 0, WHITENESS);
103 <  BitBlt(img.Canvas.Handle, 0, 0, bitmaps[index].Width, bitmaps[index].Height,
104 <    bitmaps[index].Canvas.Handle, 0, 0, SRCCOPY);
105 <  img.Invalidate;
93 >  bitmaps[index].DrawOnCanvas(img.Canvas, 1);
94   end;
95  
96  
# Line 121 | Line 109 | begin
109      i := Length(bitmaps);
110      SetLength(bitmaps, Count);
111      for i := i to High(bitmaps) do
112 <      bitmaps[i] := TBitmap.Create;
112 >      bitmaps[i] := TOniImage.Create;
113    end;
114   end;
115  
# Line 137 | Line 125 | end;
125   procedure TForm_Preview.PreviewTXAN;
126   var
127    loop_speed: Word;
128 <  linkcount: LongWord;
129 <  link: LongWord;
128 >  linkcount: Integer;
129 >  link: Integer;
130    i:    Byte;
131   begin
132    ConManager.Connection[ConnectionID].LoadDatFilePart(_fileid, $14, SizeOf(loop_speed), @loop_speed);

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)