preview is not needed now.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1527 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
yangjixian
2011-03-10 00:27:45 +00:00
parent d88d35ab2b
commit 393dd345b9
3 changed files with 0 additions and 106 deletions

View File

@ -1,13 +0,0 @@
object PreviewForm: TPreviewForm
Left = 849
Height = 200
Top = 79
Width = 200
HorzScrollBar.Page = 199
VertScrollBar.Page = 199
BorderStyle = bsSizeToolWin
Caption = 'Preview'
FormStyle = fsStayOnTop
OnClose = FormClose
OnCreate = FormCreate
end

View File

@ -1,7 +0,0 @@
LazarusResources.Add('TPreviewForm','FORMDATA',[
'TPF0'#12'TPreviewForm'#11'PreviewForm'#4'Left'#3'Q'#3#6'Height'#3#200#0#3'To'
+'p'#2'O'#5'Width'#3#200#0#18'HorzScrollBar.Page'#3#199#0#18'VertScrollBar.Pa'
+'ge'#3#199#0#11'BorderStyle'#7#13'bsSizeToolWin'#7'Caption'#6#7'Preview'#9'F'
+'ormStyle'#7#11'fsStayOnTop'#7'OnClose'#7#9'FormClose'#8'OnCreate'#7#10'Form'
+'Create'#0#0
]);

View File

@ -1,86 +0,0 @@
{
***************************************************************************
* *
* This source is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This code is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
* General Public License for more details. *
* *
* A copy of the GNU General Public License is available on the World *
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
* obtain it by writing to the Free Software Foundation, *
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
* *
***************************************************************************
Author: Tom Gregorovic
Abstract:
Preview picture window.
}
unit Preview;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
PictureCtrls;
type
{ TPreviewForm }
TPreviewForm = class(TForm)
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
procedure Preview(Bitmap: TPictureBitmap);
end;
var
PreviewForm: TPreviewForm;
View: TPictureView;
implementation
uses Main, IconStrConsts;
{ TPreviewForm }
procedure TPreviewForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
MainForm.ViewShowPreview.Checked:=False;
end;
procedure TPreviewForm.FormCreate(Sender: TObject);
begin
View := TPictureView.Create(Self);
View.Options := View.Options - [poShowGrid, poShowMask];
View.Align := alClient;
View.Parent := Self;
Left := Screen.Width - Width - 10;
Caption:=liePreviewDialog;
end;
procedure TPreviewForm.Preview(Bitmap: TPictureBitmap);
begin
View.Picture := Bitmap;
end;
initialization
{$I preview.lrs}
end.