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