Description | Hierarchy | Fields | Methods | Properties |
type TfrmExportImage = class(TfrmCustomGoPhast)
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. )
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); |
property SelectedItem: TDrawItem read FSelectedItem write SetSelectedItem; |
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; |
|
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); |
|
property SelectedItem: TDrawItem read FSelectedItem write SetSelectedItem; |
|