You've already forked lazarus-ccr
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:
@ -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
|
@ -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
|
||||
]);
|
@ -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.
|
||||
|
||||
|
Reference in New Issue
Block a user