diff --git a/applications/lazimageeditor/preview.lfm b/applications/lazimageeditor/preview.lfm deleted file mode 100644 index 9d27bb572..000000000 --- a/applications/lazimageeditor/preview.lfm +++ /dev/null @@ -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 diff --git a/applications/lazimageeditor/preview.lrs b/applications/lazimageeditor/preview.lrs deleted file mode 100644 index e09d315cc..000000000 --- a/applications/lazimageeditor/preview.lrs +++ /dev/null @@ -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 -]); diff --git a/applications/lazimageeditor/preview.pas b/applications/lazimageeditor/preview.pas deleted file mode 100644 index 59cce885b..000000000 --- a/applications/lazimageeditor/preview.pas +++ /dev/null @@ -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 . 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. - -