Class TfrmExportImage

Description

Hierarchy

Fields

Methods

Properties

Unit

frmExportImageUnit

Declaration

type TfrmExportImage = class(TfrmCustomGoPhast)

Description

no description available, TfrmCustomGoPhast description follows

TfrmCustomGoPhast is the ancestor of all TForms in GoPhast.

TfrmCustomGoPhast handles setting the color and font. TfrmCustomGoPhast also tries to keep from appearing at a location where it can't be seen. )

Hierarchy

TForm
TfrmCustomGoPhast
TfrmExportImage

Overview

Fields

	`pnlControls: TPanel;`
	`pnlBottom: TPanel;`
	`btnHelp: TBitBtn;`
	`btnClose: TBitBtn;`
	`btnSaveSettings: TButton;`
	`lblSavedSettings: TLabel;`
	`comboSavedSettings: TComboBox;`
	`fdTextFont: TFontDialog;`
	`spdSaveImage: TSavePictureDialog;`
	`pdPrintImage: TPrintDialog;`
	`scrollBoxPreview: TScrollBox;`
	`imagePreview: TImage;`
	`timerDrawImageDelay: TTimer;`
	`btnRefresh: TBitBtn;`
	`btnManageSettings: TButton;`
	`pmChangeStates: TPopupMenu;`
	`miCheckSelected: TMenuItem;`
	`UncheckSelected1: TMenuItem;`
	`JvNetscapeSplitter2: TJvNetscapeSplitter;`
	`btnSaveImage1: TJvBitBtn;`
	`JvBitBtn1: TJvBitBtn;`
	`CatPanelGroup: TCategoryPanelGroup;`
	`cpView: TCategoryPanel;`
	`cpText: TCategoryPanel;`
	`cpAnimation: TCategoryPanel;`
	`Panel3: TPanel;`
	`lblSelectedView: TLabel;`
	`lblImageHeight: TLabel;`
	`lblImageWidth: TLabel;`
	`comboView: TComboBox;`
	`seImageHeight: TJvSpinEdit;`
	`seImageWidth: TJvSpinEdit;`
	`cbShowColoredGridLines: TCheckBox;`
	`cbColorLegend: TCheckBox;`
	`cbContourLegend: TCheckBox;`
	`cbHorizontalScale: TCheckBox;`
	`cbVerticalScale: TCheckBox;`
	`pnlText: TPanel;`
	`lblTitle: TLabel;`
	`sbText: TSpeedButton;`
	`sbSelect: TSpeedButton;`
	`memoTitle: TMemo;`
	`btnTitleFont: TButton;`
	`btnFont: TButton;`
	`pnlAnimation: TPanel;`
	`JvNetscapeSplitter1: TJvNetscapeSplitter;`
	`Panel1: TPanel;`
	`rgDisplayChoice: TRadioGroup;`
	`btnPreview: TButton;`
	`btnStop: TButton;`
	`btnSaveMultipleImages: TBitBtn;`
	`rdgDataSets: TRbwDataGrid4;`
	`vstDataSets: TVirtualStringTree;`
	`FShouldDraw: Boolean;`
	`FTextItems: TList;`
	`FDoubleClicked: Boolean;`
	`FDefaultFont: TFont;`
	`FSelectingItem: Boolean;`
	`FSelectedItem: TDrawItem;`
	`FChangingFont: Boolean;`
	`FInPlaceEdit: TRbwInplaceEdit;`
	`FStartX: Integer;`
	`FStartY: Integer;`
	`FPriorX: Integer;`
	`FPriorY: Integer;`
	`FModelImage: TBitMap32;`
	`FChangeTime: TDateTime;`
	`FShouldChange: Boolean;`
	`FQuerySaveSettings: boolean;`
	`FCanDraw: Boolean;`
	`FDataSetDummyObjects: TList;`
	`FShouldStop: Boolean;`
	`FRightOffset: Integer;`
	`FRunning: Boolean;`

Methods

	`procedure FormCreate(Sender: TObject); override;`
	`procedure seImageHeightChange(Sender: TObject);`
	`procedure seImageWidthChange(Sender: TObject);`
	`procedure btnTitleFontClick(Sender: TObject);`
	`procedure memoTitleChange(Sender: TObject);`
	`procedure FormDestroy(Sender: TObject); override;`
	`procedure imagePreviewDblClick(Sender: TObject);`
	`procedure btnFontClick(Sender: TObject);`
	`procedure imagePreviewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);`
	`procedure imagePreviewMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);`
	`procedure cbColorLegendClick(Sender: TObject);`
	`procedure cbContourLegendClick(Sender: TObject);`
	`procedure cbShowColoredGridLinesClick(Sender: TObject);`
	`procedure comboViewChange(Sender: TObject);`
	`procedure cbHorizontalScaleClick(Sender: TObject);`
	`procedure cbVerticalScaleClick(Sender: TObject);`
	`procedure btnSaveImageClick(Sender: TObject);`
	`procedure timerDrawImageDelayTimer(Sender: TObject);`
	`procedure btnSaveSettingsClick(Sender: TObject);`
	`procedure comboSavedSettingsCloseUp(Sender: TObject);`
	`procedure comboSavedSettingsChange(Sender: TObject);`
	`procedure FormClose(Sender: TObject; var Action: TCloseAction);`
	`procedure btnRefreshClick(Sender: TObject);`
	`procedure btnManageSettingsClick(Sender: TObject);`
	`procedure comboSavedSettingsDropDown(Sender: TObject);`
	`procedure spdSaveImageTypeChange(Sender: TObject);`
	`procedure vstDataSetsGetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);`
	`procedure vstDataSetsInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);`
	`procedure vstDataSetsChecked(Sender: TBaseVirtualTree; Node: PVirtualNode);`
	`procedure miCheckSelectedClick(Sender: TObject);`
	`procedure UncheckSelected1Click(Sender: TObject);`
	`procedure btnPreviewClick(Sender: TObject);`
	`procedure btnStopClick(Sender: TObject);`
	`procedure btnSaveMultipleImagesClick(Sender: TObject);`
	`procedure btnCloseClick(Sender: TObject);`
	`procedure JvBitBtn1Click(Sender: TObject);`
	`procedure vstDataSetsGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);`
	`procedure cpAnimationExpand(Sender: TObject);`
	`procedure cpViewExpand(Sender: TObject);`
	`procedure cpTextExpand(Sender: TObject);`
	`procedure GetData;`
	`procedure DrawImageAfterDelay;`
	`procedure DrawTitle(DrawingRect: TRect; ACanvas: TCanvas; out TitleRect: TRect);`
	`procedure DrawTextItems(ACanvas: TCanvas);`
	`procedure DefaultFontChanged(Sender: TObject);`
	`procedure SetSelectedItem(const Value: TDrawItem);`
	`procedure DrawContourLegend(ACanvas: TCanvas; var LegendY: Integer; out ContourRect: TRect);`
	`function CanColorDataSet(DataArray: TDataArray): boolean;`
	`procedure GetDataSets;`
	`procedure SelectItemToDrag(X: Integer; Y: Integer);`
	`function DragItem(X, Y: Integer): Boolean;`
	`function FinishEditingExistingItem: Boolean;`
	`procedure AddItem;`
	`procedure ItemChanged(Sender: TObject);`
	`function CreateInplaceEditForExistingItem(X, Y: Integer): Boolean;`
	`procedure ResizeInplaceEdit(Sender: TObject);`
	`procedure CreateInplaceEditForNewItem(X: Integer; Y: Integer);`
	`procedure DrawColorLegend(ACanvas: TCanvas; var LegendY: Integer; out ColorRect: TRect);`
	`procedure DrawModel(DrawingRect: TRect; ACanvas: TCanvas);`
	`procedure DrawHorizontalScale(var ACanvas: TCanvas; var DrawingRect: TRect);`
	`procedure DrawVerticalScale(var ACanvas: TCanvas; var DrawingRect: TRect);`
	`procedure DrawBackgroundImages(BitMap32: TBitmap32);`
	`procedure DrawOnCanvas(CanvasWidth, CanvasHeight: Integer; ACanvas: TCanvas);`
	`procedure DrawBackground(ACanvas: TCanvas; CanvasHeight, CanvasWidth: Integer);`
	`procedure DrawOutsideItems(CanvasHeight, CanvasWidth: Integer; var DrawingRect: TRect; ACanvas: TCanvas);`
	`procedure DrawImage;`
	`procedure SaveContourSettings( ContourDisplaySettings: TContourDisplaySettings);`
	`procedure SaveColorDisplaySettings( ColorDisplaySettings: TColorDisplaySettings);`
	`procedure SaveSettings;`
	`procedure ApplySettings;`
	`procedure ApplyContourDisplaySettings( ContourDisplaySettings: TContourDisplaySettings);`
	`procedure ApplyColorDisplaySettings( ColorDisplaySettings: TColorDisplaySettings);`
	`procedure UpdateModelColors;`
	`procedure ExpandText(Sender: TObject; var TextToDraw: string);`
	`procedure SaveImage(FilterIndex: Integer; FileName: string);`
	`procedure SetStateOfMultipleNodes(BaseNode: PVirtualNode; NewState: TCheckState);`
	`procedure CollapseOtherPanels(Sender: TObject);`
	`procedure ApplyMacro(CommentLines: TStringList; CommentSearchKey: string; TextSearchKey: string; var TextToDraw: string);`

Properties

property SelectedItem: TDrawItem read FSelectedItem write SetSelectedItem;

Description

Fields

	`pnlControls: TPanel;`

	`pnlBottom: TPanel;`

	`btnHelp: TBitBtn;`

	`btnClose: TBitBtn;`

	`btnSaveSettings: TButton;`

	`lblSavedSettings: TLabel;`

	`comboSavedSettings: TComboBox;`

	`fdTextFont: TFontDialog;`

	`spdSaveImage: TSavePictureDialog;`

	`pdPrintImage: TPrintDialog;`

	`scrollBoxPreview: TScrollBox;`

	`imagePreview: TImage;`

	`timerDrawImageDelay: TTimer;`

	`btnRefresh: TBitBtn;`

	`btnManageSettings: TButton;`

	`pmChangeStates: TPopupMenu;`

	`miCheckSelected: TMenuItem;`

	`UncheckSelected1: TMenuItem;`

	`JvNetscapeSplitter2: TJvNetscapeSplitter;`

	`btnSaveImage1: TJvBitBtn;`

	`JvBitBtn1: TJvBitBtn;`

	`CatPanelGroup: TCategoryPanelGroup;`

	`cpView: TCategoryPanel;`

	`cpText: TCategoryPanel;`

	`cpAnimation: TCategoryPanel;`

	`Panel3: TPanel;`

	`lblSelectedView: TLabel;`

	`lblImageHeight: TLabel;`

	`lblImageWidth: TLabel;`

	`comboView: TComboBox;`

	`seImageHeight: TJvSpinEdit;`

	`seImageWidth: TJvSpinEdit;`

	`cbShowColoredGridLines: TCheckBox;`

	`cbColorLegend: TCheckBox;`

	`cbContourLegend: TCheckBox;`

	`cbHorizontalScale: TCheckBox;`

	`cbVerticalScale: TCheckBox;`

	`pnlText: TPanel;`

	`lblTitle: TLabel;`

	`sbText: TSpeedButton;`

	`sbSelect: TSpeedButton;`

	`memoTitle: TMemo;`

	`btnTitleFont: TButton;`

	`btnFont: TButton;`

	`pnlAnimation: TPanel;`

	`JvNetscapeSplitter1: TJvNetscapeSplitter;`

	`Panel1: TPanel;`

	`rgDisplayChoice: TRadioGroup;`

	`btnPreview: TButton;`

	`btnStop: TButton;`

	`btnSaveMultipleImages: TBitBtn;`

	`rdgDataSets: TRbwDataGrid4;`

	`vstDataSets: TVirtualStringTree;`

	`FShouldDraw: Boolean;`

	`FTextItems: TList;`

	`FDoubleClicked: Boolean;`

	`FDefaultFont: TFont;`

	`FSelectingItem: Boolean;`

	`FSelectedItem: TDrawItem;`

	`FChangingFont: Boolean;`

	`FInPlaceEdit: TRbwInplaceEdit;`

	`FStartX: Integer;`

	`FStartY: Integer;`

	`FPriorX: Integer;`

	`FPriorY: Integer;`

	`FModelImage: TBitMap32;`

	`FChangeTime: TDateTime;`

	`FShouldChange: Boolean;`

	`FQuerySaveSettings: boolean;`

	`FCanDraw: Boolean;`

	`FDataSetDummyObjects: TList;`

	`FShouldStop: Boolean;`

	`FRightOffset: Integer;`

	`FRunning: Boolean;`

Methods

	`procedure FormCreate(Sender: TObject); override;`

	`procedure seImageHeightChange(Sender: TObject);`

	`procedure seImageWidthChange(Sender: TObject);`

	`procedure btnTitleFontClick(Sender: TObject);`

	`procedure memoTitleChange(Sender: TObject);`

	`procedure FormDestroy(Sender: TObject); override;`

	`procedure imagePreviewDblClick(Sender: TObject);`

	`procedure btnFontClick(Sender: TObject);`

	`procedure imagePreviewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);`

	`procedure imagePreviewMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);`

	`procedure cbColorLegendClick(Sender: TObject);`

	`procedure cbContourLegendClick(Sender: TObject);`

	`procedure cbShowColoredGridLinesClick(Sender: TObject);`

	`procedure comboViewChange(Sender: TObject);`

	`procedure cbHorizontalScaleClick(Sender: TObject);`

	`procedure cbVerticalScaleClick(Sender: TObject);`

	`procedure btnSaveImageClick(Sender: TObject);`

	`procedure timerDrawImageDelayTimer(Sender: TObject);`

	`procedure btnSaveSettingsClick(Sender: TObject);`

	`procedure comboSavedSettingsCloseUp(Sender: TObject);`

	`procedure comboSavedSettingsChange(Sender: TObject);`

	`procedure FormClose(Sender: TObject; var Action: TCloseAction);`

	`procedure btnRefreshClick(Sender: TObject);`

	`procedure btnManageSettingsClick(Sender: TObject);`

	`procedure comboSavedSettingsDropDown(Sender: TObject);`

	`procedure spdSaveImageTypeChange(Sender: TObject);`

	`procedure vstDataSetsGetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);`

	`procedure vstDataSetsInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);`

	`procedure vstDataSetsChecked(Sender: TBaseVirtualTree; Node: PVirtualNode);`

	`procedure miCheckSelectedClick(Sender: TObject);`

	`procedure UncheckSelected1Click(Sender: TObject);`

	`procedure btnPreviewClick(Sender: TObject);`

	`procedure btnStopClick(Sender: TObject);`

	`procedure btnSaveMultipleImagesClick(Sender: TObject);`

	`procedure btnCloseClick(Sender: TObject);`

	`procedure JvBitBtn1Click(Sender: TObject);`

	`procedure vstDataSetsGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);`

	`procedure cpAnimationExpand(Sender: TObject);`

	`procedure cpViewExpand(Sender: TObject);`

	`procedure cpTextExpand(Sender: TObject);`

	`procedure GetData;`

	`procedure DrawImageAfterDelay;`

	`procedure DrawTitle(DrawingRect: TRect; ACanvas: TCanvas; out TitleRect: TRect);`

	`procedure DrawTextItems(ACanvas: TCanvas);`

	`procedure DefaultFontChanged(Sender: TObject);`

	`procedure SetSelectedItem(const Value: TDrawItem);`

	`procedure DrawContourLegend(ACanvas: TCanvas; var LegendY: Integer; out ContourRect: TRect);`

	`function CanColorDataSet(DataArray: TDataArray): boolean;`

	`procedure GetDataSets;`

	`procedure SelectItemToDrag(X: Integer; Y: Integer);`

	`function DragItem(X, Y: Integer): Boolean;`

	`function FinishEditingExistingItem: Boolean;`

	`procedure AddItem;`

	`procedure ItemChanged(Sender: TObject);`

	`function CreateInplaceEditForExistingItem(X, Y: Integer): Boolean;`

	`procedure ResizeInplaceEdit(Sender: TObject);`

	`procedure CreateInplaceEditForNewItem(X: Integer; Y: Integer);`

	`procedure DrawColorLegend(ACanvas: TCanvas; var LegendY: Integer; out ColorRect: TRect);`

	`procedure DrawModel(DrawingRect: TRect; ACanvas: TCanvas);`

	`procedure DrawHorizontalScale(var ACanvas: TCanvas; var DrawingRect: TRect);`

	`procedure DrawVerticalScale(var ACanvas: TCanvas; var DrawingRect: TRect);`

	`procedure DrawBackgroundImages(BitMap32: TBitmap32);`

	`procedure DrawOnCanvas(CanvasWidth, CanvasHeight: Integer; ACanvas: TCanvas);`

	`procedure DrawBackground(ACanvas: TCanvas; CanvasHeight, CanvasWidth: Integer);`

	`procedure DrawOutsideItems(CanvasHeight, CanvasWidth: Integer; var DrawingRect: TRect; ACanvas: TCanvas);`

	`procedure DrawImage;`

	`procedure SaveContourSettings( ContourDisplaySettings: TContourDisplaySettings);`

	`procedure SaveColorDisplaySettings( ColorDisplaySettings: TColorDisplaySettings);`

	`procedure SaveSettings;`

	`procedure ApplySettings;`

	`procedure ApplyContourDisplaySettings( ContourDisplaySettings: TContourDisplaySettings);`

	`procedure ApplyColorDisplaySettings( ColorDisplaySettings: TColorDisplaySettings);`

	`procedure UpdateModelColors;`

	`procedure ExpandText(Sender: TObject; var TextToDraw: string);`

	`procedure SaveImage(FilterIndex: Integer; FileName: string);`

	`procedure SetStateOfMultipleNodes(BaseNode: PVirtualNode; NewState: TCheckState);`

	`procedure CollapseOtherPanels(Sender: TObject);`

	`procedure ApplyMacro(CommentLines: TStringList; CommentSearchKey: string; TextSearchKey: string; var TextToDraw: string);`

Properties

	`property SelectedItem: TDrawItem read FSelectedItem write SetSelectedItem;`

Generated by PasDoc 0.12.1 on 2013-05-13 15:41:35