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 193 by alloc, Sat May 26 14:24:55 2007 UTC vs.
Revision 244 by alloc, Fri Aug 17 21:09:51 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, VirtualTrees, ComCtrls;
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 TOniImage;
36		actualimg: Byte;
#	Line 35 | Line 38 | type
38		public
39		end;
40
38	–	var
39	–	Form_Preview: TForm_Preview;
40	–
41		implementation
42		{$R *.dfm}
43	<	uses Imaging, ImagingComponents, ImagingTypes;
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 55 | 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 114 | Line 117 | begin
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 159 | 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 199 | 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)