ViewVC Help

View File | Revision Log | View Changeset | Root Listing

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

Comparing oup/current/Tools/Preview.pas (file contents):
Revision 111 by alloc, Wed Feb 21 03:28:48 2007 UTC vs.
Revision 220 by alloc, Mon Jun 18 13:41:12 2007 UTC

#	Line 1 | Line 1
1		unit Preview;
2	+
3		interface
4	+
5		uses
6		Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7	<	Dialogs, StdCtrls, Template, ExtCtrls, Math, StrUtils,
8	<	ConnectionManager, OniImgClass, Data, TypeDefs, Menus, Buttons;
7	>	Dialogs, _TemplateFileList, Menus, StdCtrls, ExtCtrls, Buttons,
8	>	TypeDefs, OniImgClass;
9
10		type
11	<	TForm_Preview = class(TForm_ToolTemplate)
12	<	lbl_notpossible: TLabel;
11	>	TForm_Preview = class(TForm_TemplateFileList)
12	>	img: TImage;
13		panel_buttons: TPanel;
14		btn_dec: TButton;
15		btn_startstop: TButton;
16		btn_inc: TButton;
15	–	img: TImage;
17		timer: TTimer;
18	+	lbl_notpossible: TLabel;
19		procedure FormCreate(Sender: TObject);
20		procedure NewFile(fileinfo: TFileInfo);
21
#	Line 28 | Line 30 | type
30		procedure DrawImage(index: Integer);
31		procedure SetBitmapCount(Count: Integer);
32		procedure LoadImage(fileid, index: Integer);
33	+	procedure Splitter1Moved(Sender: TObject);
34		private
35	<	bitmaps:   array of TBitmap;
35	>	bitmaps:   array of TOniImage;
36		actualimg: Byte;
37		_fileid:   Integer;
38		public
39		end;
40
38	–	var
39	–	Form_Preview: TForm_Preview;
40	–
41		implementation
42		{$R *.dfm}
43	+	uses
44	+	ConnectionManager, Math, _TemplateFile;
45
46
47		procedure TForm_Preview.FormCreate(Sender: TObject);
48		begin
49		inherited;
50		Self.OnNewFileSelected := NewFile;
51	+	SetBitmapCount(0);
52		end;
53
54
#	Line 54 | Line 57 | var
57		ext: String;
58		begin
59		_fileid := fileinfo.ID;
60	+	SetBitmapCount(0);
61		if _fileid >= 0 then
62		begin
63		lbl_notpossible.Visible := False;
#	Line 82 | Line 86 | end;
86
87
88		procedure TForm_Preview.LoadImage(fileid, index: Integer);
85	–	var
86	–	memstream: TMemoryStream;
87	–	OniImage:  TOniImage;
89		begin
90	<	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;
90	>	bitmaps[index].Load(ConnectionID, fileid);
91		end;
92
93
94		procedure TForm_Preview.DrawImage(index: Integer);
95		begin
96	<	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;
96	>	bitmaps[index].DrawOnCanvas(img.Canvas, 1);
97		end;
98
99
#	Line 121 | Line 112 | begin
112		i := Length(bitmaps);
113		SetLength(bitmaps, Count);
114		for i := i to High(bitmaps) do
115	<	bitmaps[i] := TBitmap.Create;
115	>	bitmaps[i] := TOniImage.Create;
116		end;
117		end;
118
119
120	+	procedure TForm_Preview.Splitter1Moved(Sender: TObject);
121	+	begin
122	+	inherited;
123	+	img.Picture.Assign(nil);
124	+	if Length(bitmaps) > 0 then
125	+	DrawImage(0);
126	+	end;
127	+
128		procedure TForm_Preview.PreviewImage;
129		begin
130		SetBitmapCount(1);
#	Line 171 | Line 170 | begin
170		Self.timer.Enabled   := not Self.timer.Enabled;
171		Self.btn_dec.Enabled := not Self.timer.Enabled;
172		Self.btn_inc.Enabled := not Self.timer.Enabled;
173	+	if self.timer.Enabled then
174	+	timerTimer(Self);
175		if Self.timer.Enabled then
176		Self.btn_startstop.Caption := 'Stop automatic'
177		else
#	Line 211 | Line 212 | end;
212
213		begin
214		AddToolListEntry('preview', 'Preview-Window', '');
215	<	end.
215	>	end.
216	>

Diff Legend

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