Class TfrmImportBitmap

DescriptionHierarchyFieldsMethodsProperties

Unit

frmImportBitmapUnit

Declaration

type TfrmImportBitmap = class(TfrmCustomGoPhast)

Description

TfrmImportBitmap is used to help import or edit bitmaps in GoPhast.

See TfrmGoPhast.miImportBitmapClick, TfrmGoPhast.miEditBitmapsClick, and TfrmSelectImage.btnOKClick.

Hierarchy

Overview

Fields

Implicit btnCancel: TBitBtn;
Implicit btnHelp: TBitBtn;
Implicit btnImportWorldFile: TButton;
Implicit btnOK: TBitBtn;
Implicit btnSelectImage: TButton;
Implicit cbVisible: TCheckBox;
Implicit dgPoints: TRbwDataGrid;
Implicit edName: TEdit;
Implicit lblName: TLabel;
Implicit odWorldFiled: TOpenDialog;
Implicit OpenDialogBitmap: TOpenDialog;
Implicit pnlBottom: TPanel;
Implicit rgViewDirection: TRadioGroup;
Implicit Splitter1: TSplitter;
Implicit ZoomBox: TQRbwZoomBox2;
Private FBitMap: TBitMap;
Private FBitmapItem: TCompressedBitmapItem;

Methods

Implicit procedure btnImportWorldFileClick(Sender: TObject);
Implicit procedure btnOKClick(Sender: TObject);
Implicit procedure btnSelectImageClick(Sender: TObject);
Implicit procedure dgPointsExit(Sender: TObject);
Implicit procedure dgPointsSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: WideString);
Implicit procedure FormCreate(Sender: TObject); override;
Implicit procedure FormDestroy(Sender: TObject);
Implicit procedure pbPointsMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Implicit procedure pbPointsPaint(Sender: TObject);
Implicit procedure rgViewDirectionClick(Sender: TObject);
Private procedure EnableOKButton;
Private procedure ImportWorldFile(const FileName: string);
Private procedure LabelColumns;
Private procedure NumberRows;
Private procedure SetData;
Public procedure AddPoint(const PixelX, PixelY: integer; const RealX, RealY: double);
Public procedure GetData(ABitmapItem: TCompressedBitmapItem);

Description

Fields

Implicit btnCancel: TBitBtn;

btnCancel: TBitBtn; Clicking btnCancel closes TfrmImportBitmap without changing anything.

Implicit btnHelp: TBitBtn;

btnHelp: TBitBtn; Clicking btnHelp displays help on TfrmImportBitmap.

Implicit btnImportWorldFile: TButton;

btnImportWorldFile is used to import ESRI *.wld files. See http://support.esri.com/index.cfm?fa=knowledgebase.techarticles.articleShow&d=16106

The basic format is

pixel-x,pixel-y real-world-x,real-world-y

  • There is a space between each pair of coordinates.

  • There is a comma (with no space) separating the X and X coordinates of each pair.

  • There are two such points

Implicit btnOK: TBitBtn;

btnOK: TBitBtn; See btnOKClick.

Implicit btnSelectImage: TButton;

btnSelectImage: TButton; See btnSelectImageClick.

Implicit cbVisible: TCheckBox;

cbVisible: TCheckBox; cbVisible determines whether or not a bitmap will be visible or not.

Implicit dgPoints: TRbwDataGrid;

dgPoints: TRbwDataGrid; dgPoints holds the reference points used to determine where the bitmap will be displayed.

Implicit edName: TEdit;

edName: TEdit; edName holds the name for the bitmap.

Implicit lblName: TLabel;

lblName: TLabel; lblName displays "Name".

Implicit odWorldFiled: TOpenDialog;

odWorldFiled is used to select a .wld file. .

See also
btnImportWorldFile
btnImportWorldFile is used to import ESRI *.wld files.
Implicit OpenDialogBitmap: TOpenDialog;

OpenDialogBitmap: TOpenDialog; OpenDialogBitmap is used to select the bitmap to import.

Implicit pnlBottom: TPanel;

pnlBottom: TPanel; pnlBottom holds the buttons and other controls at the bottom of TfrmImportBitmap.

Implicit rgViewDirection: TRadioGroup;

rgViewDirection: TRadioGroup; rgViewDirection determines whether the bitmap is to be displayed on the top, front, or side view of the model.

Implicit Splitter1: TSplitter;

Splitter1: TSplitter; Splitter1 is used to resize the relative areas of dgPoints and ZoomBox.

Implicit ZoomBox: TQRbwZoomBox2;

ZoomBox: TQRbwZoomBox2; ZoomBox is used to show a preview of the bitmap along with the points used to determine where the bitmap should appear.

Private FBitMap: TBitMap;

FBitMap: TBitMap; FBitMap is the bitmap that is being imported or edited.

Private FBitmapItem: TCompressedBitmapItem;

FBitmapItem: TCompressedBitmapItem; FBitmapItem is used to store FBitMap in GoPhast.

Methods

Implicit procedure btnImportWorldFileClick(Sender: TObject);

btnImportWorldFileClick imports a .wld file. .

See also
btnImportWorldFile
btnImportWorldFile is used to import ESRI *.wld files.
Implicit procedure btnOKClick(Sender: TObject);

Clicking btnOKClick causes the bitmap that is being dealt with to either be imported into GoPhast or its properties to be edited.

Implicit procedure btnSelectImageClick(Sender: TObject);

btnSelectImageClick uses OpenDialogBitmap to select a bitmap which is then read into FBitMap.

Implicit procedure dgPointsExit(Sender: TObject);

dgPointsExit causes ZoomBox to be redrawn and enables or disables btnOK. See pbPointsPaint.

Implicit procedure dgPointsSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: WideString);

dgPointsSetEditText causes ZoomBox to be redrawn and enables or disables btnOK. See pbPointsPaint.

Implicit procedure FormCreate(Sender: TObject); override;

FormCreate initializes TfrmImportBitmap.

Implicit procedure FormDestroy(Sender: TObject);

FormDestroy destroys FBitMap.

Implicit procedure pbPointsMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

pbPointsMouseUp uses TfrmPixelPoint to get the real-world coordinates of the point where the user clicked on the bitmap.

Implicit procedure pbPointsPaint(Sender: TObject);

pbPointsPaint draws squares at the pixel in the bitmap where the user clicked.

Implicit procedure rgViewDirectionClick(Sender: TObject);

rgViewDirectionClick calls LabelColumns.

Private procedure EnableOKButton;

EnableOKButton enables or disables btnOK depending on whether or not an image has been selected and enough points have been specified.

Private procedure ImportWorldFile(const FileName: string);

ImportWorldFile imports a .wld file. .

See also
btnImportWorldFile
btnImportWorldFile is used to import ESRI *.wld files.
Private procedure LabelColumns;

LabelColumns labels the columns in dgPoints depending on the direction from which the bitmap will be viewed. See rgViewDirection.

Private procedure NumberRows;

NumberRows numbers the rows in dgPoints.

Private procedure SetData;

SetData stores FBitMap in a new or existing FBitmapItem along with the associated coordinates of pixels and real-world coordinates.

Public procedure AddPoint(const PixelX, PixelY: integer; const RealX, RealY: double);

AddPoint adds a point to dgPoints.

Public procedure GetData(ABitmapItem: TCompressedBitmapItem);

GetData is called when editing a bitmap to retrieve data from ABitmapItem. GetData is not called when importing a bitmap.

Generated by PasDoc 0.10.0 on 2006-10-31 09:56:36