ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Tools/Preview.pas

Comparing:
oup/rewrite/Tools/Preview.pas (file contents), Revision 97 by alloc, Mon Jan 22 23:05:45 2007 UTC vs.
oup/current/Tools/Preview.pas (file contents), 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	–	Data:      TByteData;
87	–	memstream: TMemoryStream;
88	–	OniImage:  TOniImage;
89	–
86		begin
87	<	OniImage := TOniImage.Create;
92	<	OniImage.Load(ConnectionID, fileid);
93	<	OniImage.GetAsBMP(Data);
94	<	OniImage.Free;
95	<
96	<	memstream := TMemoryStream.Create;
97	<	memstream.Write(Data[0], Length(Data));
98	<	memstream.Seek(0, soFromBeginning);
99	<	bitmaps[index].LoadFromStream(memstream);
100	<	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,
107	<	bitmaps[index].Canvas.Handle, 0, 0, WHITENESS);
108	<	BitBlt(img.Canvas.Handle, 0, 0, bitmaps[index].Width, bitmaps[index].Height,
109	<	bitmaps[index].Canvas.Handle, 0, 0, SRCCOPY);
110	<	img.Invalidate;
93	>	bitmaps[index].DrawOnCanvas(img.Canvas, 1);
94		end;
95
96
#	Line 126 | 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 142 | 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)