unit ads_DlgDBMemo;
{Copyright(c)2016 Advanced Delphi Systems
Richard Maley
Advanced Delphi Systems
12613 Maidens Bower Drive
Potomac, MD 20854 USA
phone 301-840-1554
dickmaley@advdelphisys.com
The code herein can be used or modified by anyone. Please retain references
to Richard Maley at Advanced Delphi Systems. If you make improvements to the
code please send your improvements to dickmaley@advdelphisys.com so that the
entire Delphi community can benefit. All comments are welcome.
}
(*
Description: ads_DlgDBMemo.pas.pas
This unit contains
*)
(*UnitIndex Master Index Implementation Section Download UnitsDescription: ads_DlgDBMemo.pas This unit contains the following routines.
DlgDBMemo_ads DlgDBMemoDetail_ads TDBMemo_ads.ActionAppearanceBorderExecute TDBMemo_ads.ActionAppearanceBringToFrontExecute TDBMemo_ads.ActionAppearanceFontExecute TDBMemo_ads.ActionAppearanceMovableExecute TDBMemo_ads.ActionAppearanceResizeExecute TDBMemo_ads.ActionAppearanceSendToBackExecute TDBMemo_ads.ActionMemoPlainTextExecute TDBMemo_ads.ActionMemoReadOnlyExecute TDBMemo_ads.ActionMemoWordWrapExecute TDBMemo_ads.ActionNavShowCancelExecute TDBMemo_ads.ActionNavShowDeleteExecute TDBMemo_ads.ActionNavShowEditExecute TDBMemo_ads.ActionNavShowFirstExecute TDBMemo_ads.ActionNavShowInsertExecute TDBMemo_ads.ActionNavShowLastExecute TDBMemo_ads.ActionNavShowNextExecute TDBMemo_ads.ActionNavShowPostExecute TDBMemo_ads.ActionNavShowPriorExecute TDBMemo_ads.ActionNavShowRefreshExecute TDBMemo_ads.btnCancelClick TDBMemo_ads.btnOKClick TDBMemo_ads.DBMemoMouseDown TDBMemo_ads.FormCreate TDBMemo_ads.FormResize TDBMemo_ads.GetOnMemoChange TDBMemo_ads.GetOnMemoClick TDBMemo_ads.GetOnMemoDblClick TDBMemo_ads.GetOnMemoDragDrop TDBMemo_ads.GetOnMemoDragOver TDBMemo_ads.GetOnMemoEndDock TDBMemo_ads.GetOnMemoEndDrag TDBMemo_ads.GetOnMemoEnter TDBMemo_ads.GetOnMemoExit TDBMemo_ads.GetOnMemoKeyDown TDBMemo_ads.GetOnMemoKeyPress TDBMemo_ads.GetOnMemoKeyUp TDBMemo_ads.GetOnMemoMouseDown TDBMemo_ads.GetOnMemoMouseMove TDBMemo_ads.GetOnMemoMouseUp TDBMemo_ads.GetOnMemoProtectChange TDBMemo_ads.GetOnMemoResizeRequest TDBMemo_ads.GetOnMemoSaveClipboard TDBMemo_ads.GetOnMemoSelectionChange TDBMemo_ads.GetOnMemoStartDock TDBMemo_ads.GetOnMemoStartDrag TDBMemo_ads.IsObject TDBMemo_ads.NavigatorShowExecute TDBMemo_ads.pnlBaseMouseDown TDBMemo_ads.pnlBaseMouseUp TDBMemo_ads.SaveToFile TDBMemo_ads.SetBorder TDBMemo_ads.SetDataField TDBMemo_ads.SetDataLabel TDBMemo_ads.SetDataSource TDBMemo_ads.SetDragMovable TDBMemo_ads.SetDragResizable TDBMemo_ads.SetFileName TDBMemo_ads.SetFontColor TDBMemo_ads.SetFontName TDBMemo_ads.SetFontSize TDBMemo_ads.SetMinHeight TDBMemo_ads.SetMinWidth TDBMemo_ads.SetModal TDBMemo_ads.SetNavButton TDBMemo_ads.SetOnMemoChange TDBMemo_ads.SetOnMemoClick TDBMemo_ads.SetOnMemoDblClick TDBMemo_ads.SetOnMemoDragDrop TDBMemo_ads.SetOnMemoDragOver TDBMemo_ads.SetOnMemoEndDock TDBMemo_ads.SetOnMemoEndDrag TDBMemo_ads.SetOnMemoEnter TDBMemo_ads.SetOnMemoExit TDBMemo_ads.SetOnMemoKeyDown TDBMemo_ads.SetOnMemoKeyPress TDBMemo_ads.SetOnMemoKeyUp TDBMemo_ads.SetOnMemoMouseDown TDBMemo_ads.SetOnMemoMouseMove TDBMemo_ads.SetOnMemoMouseUp TDBMemo_ads.SetOnMemoProtectChange TDBMemo_ads.SetOnMemoResizeRequest TDBMemo_ads.SetOnMemoSaveClipboard TDBMemo_ads.SetOnMemoSelectionChange TDBMemo_ads.SetOnMemoStartDock TDBMemo_ads.SetOnMemoStartDrag TDBMemo_ads.SetParentControl TDBMemo_ads.SetPlainText TDBMemo_ads.SetPopupEnabled TDBMemo_ads.SetReadOnly TDBMemo_ads.SetShowNavCancel TDBMemo_ads.SetShowNavDelete TDBMemo_ads.SetShowNavEdit TDBMemo_ads.SetShowNavFirst TDBMemo_ads.SetShowNavigator TDBMemo_ads.SetShowNavInsert TDBMemo_ads.SetShowNavLast TDBMemo_ads.SetShowNavNext TDBMemo_ads.SetShowNavPost TDBMemo_ads.SetShowNavPrior TDBMemo_ads.SetShowNavRefresh TDBMemo_ads.SetStayOnTop TDBMemo_ads.SetTitleOfWindow TDBMemo_ads.SetWordWrap
*)
interface
Uses DB, Graphics, Controls;
Function DlgDBMemo_ads (
DataField : String;
DataLabel : String;
DataSource : TDataSource;
MinHeight : Integer;
MinWidth : Integer;
PlainText : Boolean;
ReadOnly : Boolean;
TitleOfWindow : String;
WordWrap : Boolean
)
: Boolean;
{!~DlgDBMemoDetail_ads
}
Function DlgDBMemoDetail_ads (
Border : Boolean;
DataField : String;
DataLabel : String;
DataSource : TDataSource;
DragMovable : Boolean;
DragResizable : Boolean;
FileName : String;
FontColor : TColor;
FontName : TFontName;
FontSize : Integer;
MinHeight : Integer;
MinWidth : Integer;
Modal : Boolean;
ParentControl : TWinControl;
PlainText : Boolean;
PopupEnabled : Boolean;
ReadOnly : Boolean;
ShowNavCancel : Boolean;
ShowNavDelete : Boolean;
ShowNavEdit : Boolean;
ShowNavFirst : Boolean;
ShowNavigator : Boolean;
ShowNavInsert : Boolean;
ShowNavLast : Boolean;
ShowNavNext : Boolean;
ShowNavPost : Boolean;
ShowNavPrior : Boolean;
ShowNavRefresh : Boolean;
StayOnTop : Boolean;
TitleOfWindow : String;
WordWrap : Boolean
)
: Boolean;
implementation
Uses
ads_GraphicStrings,
Forms,
StdCtrls,
ComCtrls,
DBCtrls,
ExtCtrls,
Classes,
SysUtils,
ads_Exception,
Menus,
ActnList,
ImgList,
Windows,
Dialogs,
Buttons
;
Var
UnitName : String;
ProcName : String;
type
TDBMemo_ads = Class(TScrollingWinControl)
Public
Constructor Create(AOwner: TComponent); Override;
Destructor Destroy; Override;
Public
pnlBase : TPanel;
nav : TDBNavigator;
DBMemo : TDBRichEdit;
pnlTitle : TPanel;
mnu : TPopupMenu;
Navigator1 : TMenuItem;
ActionList : TActionList;
NavigatorShow : TAction;
ActionNavShowCancel : TAction;
ActionNavShowDelete : TAction;
ActionNavShowEdit : TAction;
ActionNavShowPost : TAction;
ActionNavShowRefresh : TAction;
ActionNavShowInsert : TAction;
ActionNavShowFirst : TAction;
ActionNavShowPrior : TAction;
ActionNavShowNext : TAction;
ActionNavShowLast : TAction;
ImageList : TImageList;
ActionMemoWordWrap : TAction;
Navigator2 : TMenuItem;
N1 : TMenuItem;
ShowCancel1 : TMenuItem;
ShowDelete1 : TMenuItem;
ShowEdit1 : TMenuItem;
ShowInsert1 : TMenuItem;
ShowPost1 : TMenuItem;
ShowRefresh1 : TMenuItem;
N2 : TMenuItem;
HideFirst1 : TMenuItem;
HidePrior1 : TMenuItem;
HideNext1 : TMenuItem;
HideLast1 : TMenuItem;
Memo1 : TMenuItem;
TurnWordwrapOff1 : TMenuItem;
ActionMemoPlainText : TAction;
ActionAppearanceBorder : TAction;
ActionAppearanceMovable : TAction;
ActionAppearanceResize : TAction;
ActionMemoReadOnly : TAction;
TurnPlainTextOn1 : TMenuItem;
TurnReadOnlyOn1 : TMenuItem;
ActionAppearanceFont : TAction;
FontDialog : TFontDialog;
Appearance1 : TMenuItem;
HideBorder1 : TMenuItem;
Font1 : TMenuItem;
TurnMovingOff1 : TMenuItem;
TurnResizingOff1 : TMenuItem;
ActionAppearanceSendToBack : TAction;
ActionAppearanceBringToFront : TAction;
BringToFront1 : TMenuItem;
SendToBack1 : TMenuItem;
pnlButtonsBase: TPanel;
pnlButtonsSlider: TPanel;
btnCancel: TBitBtn;
btnOK: TBitBtn;
procedure FormCreate (Sender: TObject);
procedure FormResize (Sender: TObject);
procedure pnlBaseMouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure pnlBaseMouseUp (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure NavigatorShowExecute (Sender: TObject);
procedure ActionNavShowCancelExecute (Sender: TObject);
procedure ActionNavShowDeleteExecute (Sender: TObject);
procedure ActionNavShowEditExecute (Sender: TObject);
procedure ActionNavShowPostExecute (Sender: TObject);
procedure ActionNavShowRefreshExecute (Sender: TObject);
procedure ActionNavShowInsertExecute (Sender: TObject);
procedure ActionNavShowFirstExecute (Sender: TObject);
procedure ActionNavShowPriorExecute (Sender: TObject);
procedure ActionNavShowNextExecute (Sender: TObject);
procedure ActionNavShowLastExecute (Sender: TObject);
procedure ActionMemoWordWrapExecute (Sender: TObject);
procedure ActionMemoPlainTextExecute (Sender: TObject);
procedure DBMemoMouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ActionMemoReadOnlyExecute (Sender: TObject);
procedure ActionAppearanceFontExecute (Sender: TObject);
procedure ActionAppearanceBorderExecute (Sender: TObject);
procedure ActionAppearanceMovableExecute (Sender: TObject);
procedure ActionAppearanceResizeExecute (Sender: TObject);
procedure ActionAppearanceBringToFrontExecute(Sender: TObject);
procedure ActionAppearanceSendToBackExecute (Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
private
{ Private declarations }
FBorder : Boolean;
FCursorWas : TCursor;
FDataField : String;
FDataLabel : String;
FDataSource : TDataSource;
FDragging : Boolean;
FDragMovable : Boolean;
FDragResizable : Boolean;
FDragResizing : Boolean;
FDragStartX : Integer;
FDragStartY : Integer;
FFileName : String;
FFontColor : TColor;
FFontName : TFontName;
FFontSize : Integer;
FMinHeight : Integer;
FMinWidth : Integer;
FModal : Boolean;
FParentControl : TWinControl;
FPlainText : Boolean;
FPopupEnabled : Boolean;
FReadOnly : Boolean;
FShowNavCancel : Boolean;
FShowNavDelete : Boolean;
FShowNavEdit : Boolean;
FShowNavFirst : Boolean;
FShowNavigator : Boolean;
FShowNavInsert : Boolean;
FShowNavLast : Boolean;
FShowNavNext : Boolean;
FShowNavPost : Boolean;
FShowNavPrior : Boolean;
FShowNavRefresh : Boolean;
FStayOnTop : Boolean;
FTitleOfWindow : String;
FWordWrap : Boolean;
Function IsObject (Obj : TObject; Cls : TClass): Boolean;
procedure SetBorder (const Value: Boolean);
procedure SetDataField (const Value: String);
procedure SetDataLabel (const Value: String);
procedure SetDataSource (const Value: TDataSource);
procedure SetDragMovable (const Value: Boolean);
procedure SetDragResizable (const Value: Boolean);
procedure SetFileName (const Value: String);
procedure SetFontColor (const Value: TColor);
procedure SetFontName (const Value: TFontName);
procedure SetFontSize (const Value: Integer);
procedure SetMinHeight (const Value: Integer);
procedure SetMinWidth (const Value: Integer);
procedure SetModal (const Value: Boolean);
procedure SetNavButton (nav : TDBNavigator;btn : TButtonSet;Included : Boolean);
procedure SetParentControl ( Value: TWinControl);
procedure SetPlainText (const Value: Boolean);
procedure SetPopupEnabled (const Value: Boolean);
procedure SetReadOnly (const Value: Boolean);
procedure SetShowNavCancel (const Value: Boolean);
procedure SetShowNavDelete (const Value: Boolean);
procedure SetShowNavEdit (const Value: Boolean);
procedure SetShowNavFirst (const Value: Boolean);
procedure SetShowNavigator (const Value: Boolean);
procedure SetShowNavInsert (const Value: Boolean);
procedure SetShowNavLast (const Value: Boolean);
procedure SetShowNavNext (const Value: Boolean);
procedure SetShowNavPost (const Value: Boolean);
procedure SetShowNavPrior (const Value: Boolean);
procedure SetShowNavRefresh (const Value: Boolean);
procedure SetStayOnTop (const Value: Boolean);
procedure SetTitleOfWindow (const Value: String);
procedure SetWordWrap (const Value: Boolean);
function GetOnMemoChange : TNotifyEvent;
function GetOnMemoClick : TNotifyEvent;
function GetOnMemoDblClick : TNotifyEvent;
function GetOnMemoDragDrop : TDragDropEvent;
function GetOnMemoDragOver : TDragOverEvent;
function GetOnMemoEndDock : TEndDragEvent;
function GetOnMemoEndDrag : TEndDragEvent;
function GetOnMemoEnter : TNotifyEvent;
function GetOnMemoExit : TNotifyEvent;
function GetOnMemoKeyDown : TKeyEvent;
function GetOnMemoKeyPress : TKeyPressEvent;
function GetOnMemoKeyUp : TKeyEvent;
function GetOnMemoMouseDown : TMouseEvent;
function GetOnMemoMouseMove : TMouseMoveEvent;
function GetOnMemoMouseUp : TMouseEvent;
function GetOnMemoProtectChange : TRichEditProtectChange;
function GetOnMemoResizeRequest : TRichEditResizeEvent;
function GetOnMemoSaveClipboard : TRichEditSaveClipboard;
function GetOnMemoSelectionChange : TNotifyEvent;
function GetOnMemoStartDock : TStartDockEvent;
function GetOnMemoStartDrag : TStartDragEvent;
procedure SetOnMemoChange (const Value: TNotifyEvent);
procedure SetOnMemoClick (const Value: TNotifyEvent);
procedure SetOnMemoDblClick (const Value: TNotifyEvent);
procedure SetOnMemoDragDrop (const Value: TDragDropEvent);
procedure SetOnMemoDragOver (const Value: TDragOverEvent);
procedure SetOnMemoEndDock (const Value: TEndDragEvent);
procedure SetOnMemoEndDrag (const Value: TEndDragEvent);
procedure SetOnMemoEnter (const Value: TNotifyEvent);
procedure SetOnMemoExit (const Value: TNotifyEvent);
procedure SetOnMemoKeyDown (const Value: TKeyEvent);
procedure SetOnMemoKeyPress (const Value: TKeyPressEvent);
procedure SetOnMemoKeyUp (const Value: TKeyEvent);
procedure SetOnMemoMouseDown (const Value: TMouseEvent);
procedure SetOnMemoMouseMove (const Value: TMouseMoveEvent);
procedure SetOnMemoMouseUp (const Value: TMouseEvent);
procedure SetOnMemoProtectChange (const Value: TRichEditProtectChange);
procedure SetOnMemoResizeRequest (const Value: TRichEditResizeEvent);
procedure SetOnMemoSaveClipboard (const Value: TRichEditSaveClipboard);
procedure SetOnMemoSelectionChange (const Value: TNotifyEvent);
procedure SetOnMemoStartDock (const Value: TStartDockEvent);
procedure SetOnMemoStartDrag (const Value: TStartDragEvent);
public
{ Public declarations }
procedure SaveToFile;
{ Published declarations }
property Border : Boolean read FBorder write SetBorder;
property DataField : String read FDataField write SetDataField;
property DataLabel : String read FDataLabel write SetDataLabel;
property DataSource : TDataSource read FDataSource write SetDataSource;
property DragMovable : Boolean read FDragMovable write SetDragMovable;
property DragResizable : Boolean read FDragResizable write SetDragResizable;
property FileName : String read FFileName write SetFileName;
property FontColor : TColor read FFontColor write SetFontColor;
property FontName : TFontName read FFontName write SetFontName;
property FontSize : Integer read FFontSize write SetFontSize;
property MinHeight : Integer read FMinHeight write SetMinHeight;
property MinWidth : Integer read FMinWidth write SetMinWidth;
property Modal : Boolean read FModal write SetModal;
property ParentControl : TWinControl read FParentControl write SetParentControl;
property PlainText : Boolean read FPlainText write SetPlainText;
property PopupEnabled : Boolean read FPopupEnabled write SetPopupEnabled;
property ReadOnly : Boolean read FReadOnly write SetReadOnly;
property ShowNavCancel : Boolean read FShowNavCancel write SetShowNavCancel;
property ShowNavDelete : Boolean read FShowNavDelete write SetShowNavDelete;
property ShowNavEdit : Boolean read FShowNavEdit write SetShowNavEdit;
property ShowNavFirst : Boolean read FShowNavFirst write SetShowNavFirst;
property ShowNavigator : Boolean read FShowNavigator write SetShowNavigator;
property ShowNavInsert : Boolean read FShowNavInsert write SetShowNavInsert;
property ShowNavLast : Boolean read FShowNavLast write SetShowNavLast;
property ShowNavNext : Boolean read FShowNavNext write SetShowNavNext;
property ShowNavPost : Boolean read FShowNavPost write SetShowNavPost;
property ShowNavPrior : Boolean read FShowNavPrior write SetShowNavPrior;
property ShowNavRefresh : Boolean read FShowNavRefresh write SetShowNavRefresh;
property StayOnTop : Boolean read FStayOnTop write SetStayOnTop;
property TitleOfWindow : String read FTitleOfWindow write SetTitleOfWindow;
property WordWrap : Boolean read FWordWrap write SetWordWrap;
property OnMemoChange : TNotifyEvent read GetOnMemoChange write SetOnMemoChange;
property OnMemoClick : TNotifyEvent read GetOnMemoClick write SetOnMemoClick;
property OnMemoDblClick : TNotifyEvent read GetOnMemoDblClick write SetOnMemoDblClick;
property OnMemoDragDrop : TDragDropEvent read GetOnMemoDragDrop write SetOnMemoDragDrop;
property OnMemoDragOver : TDragOverEvent read GetOnMemoDragOver write SetOnMemoDragOver;
property OnMemoEndDock : TEndDragEvent read GetOnMemoEndDock write SetOnMemoEndDock;
property OnMemoEndDrag : TEndDragEvent read GetOnMemoEndDrag write SetOnMemoEndDrag;
property OnMemoEnter : TNotifyEvent read GetOnMemoEnter write SetOnMemoEnter;
property OnMemoExit : TNotifyEvent read GetOnMemoExit write SetOnMemoExit;
property OnMemoKeyDown : TKeyEvent read GetOnMemoKeyDown write SetOnMemoKeyDown;
property OnMemoKeyPress : TKeyPressEvent read GetOnMemoKeyPress write SetOnMemoKeyPress;
property OnMemoKeyUp : TKeyEvent read GetOnMemoKeyUp write SetOnMemoKeyUp;
property OnMemoMouseDown : TMouseEvent read GetOnMemoMouseDown write SetOnMemoMouseDown;
property OnMemoMouseMove : TMouseMoveEvent read GetOnMemoMouseMove write SetOnMemoMouseMove;
property OnMemoMouseUp : TMouseEvent read GetOnMemoMouseUp write SetOnMemoMouseUp;
property OnMemoProtectChange : TRichEditProtectChange read GetOnMemoProtectChange write SetOnMemoProtectChange;
property OnMemoResizeRequest : TRichEditResizeEvent read GetOnMemoResizeRequest write SetOnMemoResizeRequest;
property OnMemoSaveClipboard : TRichEditSaveClipboard read GetOnMemoSaveClipboard write SetOnMemoSaveClipboard;
property OnMemoSelectionChange : TNotifyEvent read GetOnMemoSelectionChange write SetOnMemoSelectionChange;
property OnMemoStartDock : TStartDockEvent read GetOnMemoStartDock write SetOnMemoStartDock;
property OnMemoStartDrag : TStartDragEvent read GetOnMemoStartDrag write SetOnMemoStartDrag;
end;
{ TDBMemo_ads }
//Unit Description UnitIndex Master Indexprocedure TDBMemo_ads.SetDataField(const Value: String); begin ProcName := 'TDBMemo_ads.SetDataField'; Try FDataField := Value; DBMemo.DataField := FDataField; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetDataSource(const Value: TDataSource); begin ProcName := 'TDBMemo_ads.SetDataSource'; Try FDataSource := Value; DBMemo.DataSource := Value; nav.DataSource := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetFontColor(const Value: TColor); begin ProcName := 'TDBMemo_ads.SetFontColor'; Try FFontColor := Value; DBMemo.Font.Color := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetFontName(const Value: TFontName); begin ProcName := 'TDBMemo_ads.SetFontName'; Try FFontName := Value; DBMemo.Font.Name := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetFontSize(const Value: Integer); begin ProcName := 'TDBMemo_ads.SetFontSize'; Try FFontSize := Value; DBMemo.Font.Size := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetPlainText(const Value: Boolean); begin ProcName := 'TDBMemo_ads.SetPlainText'; Try FPlainText := Value; DBMemo.PlainText := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetReadOnly(const Value: Boolean); begin ProcName := 'TDBMemo_ads.SetReadOnly'; Try FReadOnly := Value; DBMemo.ReadOnly := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetShowNavCancel(const Value: Boolean); begin ProcName := 'TDBMemo_ads.SetShowNavCancel'; Try FShowNavCancel := Value; SetNavButton(nav,[nbCancel],Value); Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetShowNavDelete(const Value: Boolean); begin ProcName := 'TDBMemo_ads.SetShowNavDelete'; Try FShowNavDelete := Value; SetNavButton(nav,[nbDelete],Value); Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetShowNavEdit(const Value: Boolean); begin ProcName := 'TDBMemo_ads.SetShowNavEdit'; Try FShowNavEdit := Value; SetNavButton(nav,[nbEdit],Value); Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetShowNavFirst(const Value: Boolean); begin ProcName := 'TDBMemo_ads.SetShowNavFirst'; Try FShowNavFirst := Value; SetNavButton(nav,[nbFirst],Value); Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetShowNavigator(const Value: Boolean); begin ProcName := 'TDBMemo_ads.SetShowNavigator'; Try FShowNavigator := Value; nav.Visible := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetShowNavInsert(const Value: Boolean); begin ProcName := 'TDBMemo_ads.SetShowNavInsert'; Try FShowNavInsert := Value; SetNavButton(nav,[nbInsert],Value); Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetShowNavLast(const Value: Boolean); begin ProcName := 'TDBMemo_ads.SetShowNavLast'; Try FShowNavLast := Value; SetNavButton(nav,[nbLast],Value); Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetShowNavNext(const Value: Boolean); begin ProcName := 'TDBMemo_ads.SetShowNavNext'; Try FShowNavNext := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetShowNavPost(const Value: Boolean); begin ProcName := 'TDBMemo_ads.SetShowNavPost'; Try FShowNavPost := Value; SetNavButton(nav,[nbPost],Value); Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetShowNavPrior(const Value: Boolean); begin ProcName := 'TDBMemo_ads.SetShowNavPrior'; Try FShowNavPrior := Value; SetNavButton(nav,[nbPrior],Value); Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetShowNavRefresh(const Value: Boolean); begin ProcName := 'TDBMemo_ads.SetShowNavRefresh'; Try FShowNavRefresh := Value; SetNavButton(nav,[nbRefresh],Value); Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetWordWrap(const Value: Boolean); begin ProcName := 'TDBMemo_ads.SetWordWrap'; Try FWordWrap := Value; DBMemo.WordWrap := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.FormCreate(Sender: TObject); begin ProcName := 'TDBMemo_ads.FormCreate'; Try Border := True; DataField := ''; DataLabel := ''; DataSource := nil; DragMovable := True; DragResizable := True; FileName := ''; FontColor := clWindowText; FontName := 'MS Sans Serif'; FontSize := 8; MinHeight := 150; MinWidth := 200; Modal := True; PlainText := False; PopupEnabled := True; ReadOnly := False; ShowNavCancel := False; ShowNavDelete := False; ShowNavEdit := False; ShowNavFirst := True; ShowNavigator := False; ShowNavInsert := False; ShowNavLast := True; ShowNavNext := True; ShowNavPost := False; ShowNavPrior := True; ShowNavRefresh := False; StayOnTop := False; TitleOfWindow := 'Memo Dialog'; WordWrap := True; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetModal(const Value: Boolean);
begin
ProcName := 'TDBMemo_ads.SetModal'; Try
FModal := Value;
If FModal Then
Begin
ParentControl := nil;
TForm(Owner).BorderStyle := bsSizeable;
TForm(Owner).BorderIcons := [biSystemMenu];
End
Else
Begin
TForm(Owner).BorderStyle := bsNone;
TForm(Owner).BorderIcons := [];
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Indexprocedure TDBMemo_ads.SetMinHeight(const Value: Integer); begin ProcName := 'TDBMemo_ads.SetMinHeight'; Try FMinHeight := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetMinWidth(const Value: Integer); begin ProcName := 'TDBMemo_ads.SetMinWidth'; Try FMinWidth := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.FormResize(Sender: TObject); begin ProcName := 'TDBMemo_ads.FormResize'; Try If Width < MinWidth Then Width := MinWidth; If Height < MinHeight Then Height := MinHeight; pnlButtonsBase.Height := pnlButtonsBase.Height + 1; pnlButtonsBase.Height := pnlButtonsBase.Height - 1; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetNavButton(nav : TDBNavigator;btn : TButtonSet;Included : Boolean);
Var
btnsNow : TButtonSet;
btnsCur : TButtonSet;
btnsNew : TButtonSet;
navbtn : TNavigateBtn;
Begin
ProcName := 'TDBMemo_ads.SetNavButton'; Try
btnsNow := nav.VisibleButtons;
btnsCur := [];
navbtn := nbFirst;
If nbFirst in btn Then Begin navBtn := nbFirst; btnsCur := [nbFirst]; End;
If nbPrior in btn Then Begin navBtn := nbPrior; btnsCur := [nbPrior]; End;
If nbNext in btn Then Begin navBtn := nbNext; btnsCur := [nbNext]; End;
If nbLast in btn Then Begin navBtn := nbLast; btnsCur := [nbLast]; End;
If nbInsert in btn Then Begin navBtn := nbInsert; btnsCur := [nbInsert]; End;
If nbDelete in btn Then Begin navBtn := nbDelete; btnsCur := [nbDelete]; End;
If nbEdit in btn Then Begin navBtn := nbEdit; btnsCur := [nbEdit]; End;
If nbPost in btn Then Begin navBtn := nbPost; btnsCur := [nbPost]; End;
If nbCancel in btn Then Begin navBtn := nbCancel; btnsCur := [nbCancel]; End;
If nbRefresh in btn Then Begin navBtn := nbRefresh;btnsCur := [nbRefresh]; End;
btnsNew := [];
If Included Then
Begin
If Not (navBtn in btnsNow) Then
Begin
btnsNew := btnsNow + btnsCur;
End
Else
Begin
btnsNew := btnsNow;
End;
End
Else
Begin
If (navBtn in btnsNow) Then
Begin
btnsNew := btnsNow - btnsCur;
End
Else
Begin
btnsNew := btnsNow;
End;
End;
nav.VisibleButtons := btnsNew;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
End;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetTitleOfWindow(const Value: String);
begin
ProcName := 'TDBMemo_ads.SetTitleOfWindow'; Try
FTitleOfWindow := Value;
If IsObject(Self,TForm) Then
Begin
TForm(Self).Caption := Value;
End
Else
Begin
If Self.Owner <> nil Then
Begin
If IsObject(Owner,TForm) Then
TForm(Owner).Caption := Value;
End;
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetStayOnTop(const Value: Boolean);
begin
ProcName := 'TDBMemo_ads.SetStayOnTop'; Try
FStayOnTop := Value;
If IsObject(Self,TForm) Then
Begin
If Value Then
Begin
TForm(Self).FormStyle := fsStayOnTop;
End
Else
Begin
TForm(Self).FormStyle := fsNormal;
End;
End
Else
Begin
If Value Then
Begin
TForm(Owner).FormStyle := fsStayOnTop;
End
Else
Begin
TForm(Owner).FormStyle := fsNormal;
End;
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master IndexFunction TDBMemo_ads.IsObject(Obj : TObject; Cls : TClass): Boolean; Begin Result := False; ProcName := 'TDBMemo_ads.IsObject'; Try Result := (Obj is Cls); Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; End; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetFileName(const Value: String); begin ProcName := 'TDBMemo_ads.SetFileName'; Try FFileName := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SaveToFile;
begin
ProcName := 'TDBMemo_ads.SaveToFile'; Try
If FileName <> '' Then
Begin
DBMemo.Lines.SaveToFile(FileName);
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetDataLabel(const Value: String);
Var
sgTemp : String;
begin
ProcName := 'TDBMemo_ads.SetDataLabel'; Try
FDataLabel := Value;
sgTemp := Trim(Value);
If sgTemp = '' Then
Begin
pnlTitle.Height := 0;
pnlTitle.Caption := '';
End
Else
Begin
pnlTitle.Height := 20;
pnlTitle.Caption := Value;
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.pnlBaseMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ProcName := 'TDBMemo_ads.pnlBaseMouseDown'; Try
If DragMovable Or DragReSizable Then
Begin
If ssLeft in Shift Then
Begin
FDragResizing := (ssCtrl in Shift) And DragReSizable;
FDragStartX := X;
FDragStartY := Y;
FDragging := DragMovable Or FDragResizing;
FCursorWas := Screen.Cursor;
If (Y < 7) Or (Y > (TControl(Self).Height-10)) Then
Begin
If (Not FDragResizing) And FDragging Then
Begin
Screen.Cursor := crVSplit;
End
Else
Begin
If FDragResizing Then Screen.Cursor := crSizeNS;
End;
End
Else
Begin
If (Not FDragResizing) And FDragging Then
Begin
Screen.Cursor := crHSplit;
End
Else
Begin
If FDragResizing Then Screen.Cursor := crSizeWE;
End;
End;
End;
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.pnlBaseMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Var
inChange : Integer;
Control : TWinControl;
begin
ProcName := 'TDBMemo_ads.pnlBaseMouseUp'; Try
Control := nil;
If IsObject(Self,TForm) Then
Begin
Control := TWinControl(Self);
End
Else
Begin
If IsObject(Self,TScrollingWinControl) Then
Begin
Control := TWinControl(Self).Parent;
End;
End;
If DragMovable Or DragReSizable Then
Begin
If FDragging Then
Begin
If FDragResizing Then
Begin
If Screen.Cursor = crSizeWE Then
Begin
inChange := X-FDragStartX;
If FDragStartX < 10 Then
Begin
Control.Left := Control.Left+inChange;
Control.Width := Control.Width-inChange;
End
Else
Begin
Control.Left := Control.Left;
Control.Width := Control.Width+inChange;
End;
End
Else
Begin
inChange := Y-FDragStartY;
If FDragStartY < 10 Then
Begin
Control.Top := Control.Top+inChange;
Control.Height := Control.Height-inChange;
End
Else
Begin
Control.Top := Control.Top;
Control.Height := Control.Height+inChange;
End;
End;
Screen.Cursor := FCursorWas;
End
Else
Begin
Control.Top := Control.Top +(Y-FDragStartY);
Control.Left := Control.Left+(X-FDragStartX);
Screen.Cursor := FCursorWas;
End;
End;
End;
FDragging := False;
FDragResizing := False;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Indexprocedure TDBMemo_ads.SetDragMovable(const Value: Boolean); begin ProcName := 'TDBMemo_ads.SetDragMovable'; Try FDragMovable := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetDragResizable(const Value: Boolean); begin ProcName := 'TDBMemo_ads.SetDragResizable'; Try FDragResizable := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetBorder(const Value: Boolean);
begin
ProcName := 'TDBMemo_ads.SetBorder'; Try
FBorder := Value;
If Value Then
Begin
pnlBase.BorderStyle := bsSingle;
End
Else
Begin
pnlBase.BorderStyle := bsNone;
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Indexprocedure TDBMemo_ads.SetParentControl(Value: TWinControl); begin ProcName := 'TDBMemo_ads.SetParentControl'; Try If Modal Then Value := nil; FParentControl := Value; If TWinControl(Self).Parent <> Value Then TWinControl(Self).Parent := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.NavigatorShowExecute(Sender: TObject);
begin
ProcName := 'TDBMemo_ads.NavigatorShowExecute'; Try
ShowNavigator := Not ShowNavigator;
If ShowNavigator Then
Begin
TAction(Sender).Caption := 'Hide Navigator';
TAction(Sender).Hint := 'Hide the record navigator.';
End
Else
Begin
TAction(Sender).Caption := 'Show Navigator';
TAction(Sender).Hint := 'Show the record navigator.';
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.ActionNavShowCancelExecute(Sender: TObject);
Var
sgTemp : String;
begin
ProcName := 'TDBMemo_ads.ActionNavShowCancelExecute'; Try
sgTemp := 'Cancel';
ShowNavCancel := Not ShowNavCancel;
If ShowNavCancel Then
Begin
TAction(Sender).Caption := 'Hide '+sgTemp;
TAction(Sender).Hint := 'Hide the navigator '+sgTemp+' button';
End
Else
Begin
TAction(Sender).Caption := 'Show '+sgTemp;
TAction(Sender).Hint := 'Show the navigator '+sgTemp+' button';
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.ActionNavShowDeleteExecute(Sender: TObject);
Var
sgTemp : String;
begin
ProcName := 'TDBMemo_ads.ActionNavShowDeleteExecute'; Try
sgTemp := 'Delete';
ShowNavDelete := Not ShowNavDelete;
If ShowNavDelete Then
Begin
TAction(Sender).Caption := 'Hide '+sgTemp;
TAction(Sender).Hint := 'Hide the navigator '+sgTemp+' button';
End
Else
Begin
TAction(Sender).Caption := 'Show '+sgTemp;
TAction(Sender).Hint := 'Show the navigator '+sgTemp+' button';
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.ActionNavShowEditExecute(Sender: TObject);
Var
sgTemp : String;
begin
ProcName := 'TDBMemo_ads.ActionNavShowEditExecute'; Try
sgTemp := 'Edit';
ShowNavEdit := Not ShowNavEdit;
If ShowNavEdit Then
Begin
TAction(Sender).Caption := 'Hide '+sgTemp;
TAction(Sender).Hint := 'Hide the navigator '+sgTemp+' button';
End
Else
Begin
TAction(Sender).Caption := 'Show '+sgTemp;
TAction(Sender).Hint := 'Show the navigator '+sgTemp+' button';
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.ActionNavShowPostExecute(Sender: TObject);
Var
sgTemp : String;
begin
ProcName := 'TDBMemo_ads.ActionNavShowPostExecute'; Try
sgTemp := 'Post';
ShowNavPost := Not ShowNavPost;
If ShowNavPost Then
Begin
TAction(Sender).Caption := 'Hide '+sgTemp;
TAction(Sender).Hint := 'Hide the navigator '+sgTemp+' button';
End
Else
Begin
TAction(Sender).Caption := 'Show '+sgTemp;
TAction(Sender).Hint := 'Show the navigator '+sgTemp+' button';
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.ActionNavShowRefreshExecute(Sender: TObject);
Var
sgTemp : String;
begin
ProcName := 'TDBMemo_ads.ActionNavShowRefreshExecute'; Try
sgTemp := 'Refresh';
ShowNavRefresh := Not ShowNavRefresh;
If ShowNavRefresh Then
Begin
TAction(Sender).Caption := 'Hide '+sgTemp;
TAction(Sender).Hint := 'Hide the navigator '+sgTemp+' button';
End
Else
Begin
TAction(Sender).Caption := 'Show '+sgTemp;
TAction(Sender).Hint := 'Show the navigator '+sgTemp+' button';
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.ActionNavShowInsertExecute(Sender: TObject);
Var
sgTemp : String;
begin
ProcName := 'TDBMemo_ads.ActionNavShowInsertExecute'; Try
sgTemp := 'Insert';
ShowNavInsert := Not ShowNavInsert;
If ShowNavInsert Then
Begin
TAction(Sender).Caption := 'Hide '+sgTemp;
TAction(Sender).Hint := 'Hide the navigator '+sgTemp+' button';
End
Else
Begin
TAction(Sender).Caption := 'Show '+sgTemp;
TAction(Sender).Hint := 'Show the navigator '+sgTemp+' button';
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.ActionNavShowFirstExecute(Sender: TObject);
Var
sgTemp : String;
begin
ProcName := 'TDBMemo_ads.ActionNavShowFirstExecute'; Try
sgTemp := 'First';
ShowNavFirst := Not ShowNavFirst;
If ShowNavFirst Then
Begin
TAction(Sender).Caption := 'Hide '+sgTemp;
TAction(Sender).Hint := 'Hide the navigator '+sgTemp+' button';
End
Else
Begin
TAction(Sender).Caption := 'Show '+sgTemp;
TAction(Sender).Hint := 'Show the navigator '+sgTemp+' button';
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.ActionNavShowPriorExecute(Sender: TObject);
Var
sgTemp : String;
begin
ProcName := 'TDBMemo_ads.ActionNavShowPriorExecute'; Try
sgTemp := 'Prior';
ShowNavPrior := Not ShowNavPrior;
If ShowNavPrior Then
Begin
TAction(Sender).Caption := 'Hide '+sgTemp;
TAction(Sender).Hint := 'Hide the navigator '+sgTemp+' button';
End
Else
Begin
TAction(Sender).Caption := 'Show '+sgTemp;
TAction(Sender).Hint := 'Show the navigator '+sgTemp+' button';
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.ActionNavShowNextExecute(Sender: TObject);
Var
sgTemp : String;
begin
ProcName := 'TDBMemo_ads.ActionNavShowNextExecute'; Try
sgTemp := 'Next';
ShowNavNext := Not ShowNavNext;
If ShowNavNext Then
Begin
TAction(Sender).Caption := 'Hide '+sgTemp;
TAction(Sender).Hint := 'Hide the navigator '+sgTemp+' button';
End
Else
Begin
TAction(Sender).Caption := 'Show '+sgTemp;
TAction(Sender).Hint := 'Show the navigator '+sgTemp+' button';
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.ActionNavShowLastExecute(Sender: TObject);
Var
sgTemp : String;
begin
ProcName := 'TDBMemo_ads.ActionNavShowLastExecute'; Try
sgTemp := 'Last';
ShowNavLast := Not ShowNavLast;
If ShowNavLast Then
Begin
TAction(Sender).Caption := 'Hide '+sgTemp;
TAction(Sender).Hint := 'Hide the navigator '+sgTemp+' button';
End
Else
Begin
TAction(Sender).Caption := 'Show '+sgTemp;
TAction(Sender).Hint := 'Show the navigator '+sgTemp+' button';
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.ActionMemoWordWrapExecute(Sender: TObject);
Var
sgTemp : String;
begin
ProcName := 'TDBMemo_ads.ActionMemoWordWrapExecute'; Try
sgTemp := 'Wordwrap';
WordWrap := Not WordWrap;
If WordWrap Then
Begin
TAction(Sender).Caption := 'Turn '+sgTemp+' Off';
TAction(Sender).Hint := 'Turn '+sgTemp+' Off';
End
Else
Begin
TAction(Sender).Caption := 'Turn '+sgTemp+' On';
TAction(Sender).Hint := 'Turn '+sgTemp+' On';
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.ActionMemoPlainTextExecute(Sender: TObject);
Var
sgTemp : String;
begin
ProcName := 'TDBMemo_ads.ActionMemoPlainTextExecute'; Try
sgTemp := 'PlainText';
PlainText := Not PlainText;
If PlainText Then
Begin
TAction(Sender).Caption := 'Turn '+sgTemp+' Off';
TAction(Sender).Hint := 'Turn '+sgTemp+' Off';
End
Else
Begin
TAction(Sender).Caption := 'Turn '+sgTemp+' On';
TAction(Sender).Hint := 'Turn '+sgTemp+' On';
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.DBMemoMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Var
ControlXY : TPoint;
ScreenXY : TPoint;
begin
ProcName := 'TDBMemo_ads.DBMemoMouseDown'; Try
If ssRight in Shift Then
Begin
ControlXY.x := X;
ControlXY.y := Y;
ScreenXY := DBMemo.ClientToScreen(ControlXY);
If PopupEnabled Then mnu.Popup(ScreenXY.X,ScreenXY.Y);
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.ActionMemoReadOnlyExecute(Sender: TObject);
Var
sgTemp : String;
begin
ProcName := 'TDBMemo_ads.ActionMemoReadOnlyExecute'; Try
sgTemp := 'ReadOnly';
ReadOnly := Not ReadOnly;
If ReadOnly Then
Begin
TAction(Sender).Caption := 'Turn '+sgTemp+' Off';
TAction(Sender).Hint := 'Turn '+sgTemp+' Off';
End
Else
Begin
TAction(Sender).Caption := 'Turn '+sgTemp+' On';
TAction(Sender).Hint := 'Turn '+sgTemp+' On';
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.ActionAppearanceFontExecute(Sender: TObject);
begin
ProcName := 'TDBMemo_ads.ActionAppearanceFontExecute'; Try
FontDialog.Font := DBMemo.Font;
If FontDialog.Execute Then
Begin
DBMemo.Font := FontDialog.Font;
pnlTitle.Font := FontDialog.Font;
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.ActionAppearanceBorderExecute(Sender: TObject);
Var
sgTemp : String;
begin
ProcName := 'TDBMemo_ads.ActionAppearanceBorderExecute'; Try
sgTemp := 'Border';
Border := Not Border;
If Border Then
Begin
TAction(Sender).Caption := 'Turn '+sgTemp+' Off';
TAction(Sender).Hint := 'Turn '+sgTemp+' Off';
End
Else
Begin
TAction(Sender).Caption := 'Turn '+sgTemp+' On';
TAction(Sender).Hint := 'Turn '+sgTemp+' On';
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.ActionAppearanceMovableExecute(Sender: TObject);
Var
sgTemp : String;
begin
ProcName := 'TDBMemo_ads.ActionAppearanceBorderExecute'; Try
sgTemp := 'Moveability';
DragMovable := Not DragMovable;
If DragMovable Then
Begin
TAction(Sender).Caption := 'Turn '+sgTemp+' Off';
TAction(Sender).Hint := 'Turn '+sgTemp+' Off';
End
Else
Begin
TAction(Sender).Caption := 'Turn '+sgTemp+' On';
TAction(Sender).Hint := 'Turn '+sgTemp+' On';
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Index
procedure TDBMemo_ads.ActionAppearanceResizeExecute(Sender: TObject);
Var
sgTemp : String;
begin
ProcName := 'TDBMemo_ads.ActionAppearanceResizeExecute'; Try
sgTemp := 'Resize';
DragResizable := Not DragResizable;
If DragResizable Then
Begin
TAction(Sender).Caption := 'Turn '+sgTemp+' Off';
TAction(Sender).Hint := 'Turn '+sgTemp+' Off';
End
Else
Begin
TAction(Sender).Caption := 'Turn '+sgTemp+' On';
TAction(Sender).Hint := 'Turn '+sgTemp+' On';
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
end;
//Unit Description UnitIndex Master Indexprocedure TDBMemo_ads.ActionAppearanceBringToFrontExecute(Sender: TObject); begin ProcName := 'TDBMemo_ads.ActionAppearanceBringToFrontExecute'; Try TForm(Owner).BringToFront; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.ActionAppearanceSendToBackExecute(Sender: TObject); begin ProcName := 'TDBMemo_ads.ActionAppearanceBringToFrontExecute'; Try TForm(Owner).SendToBack; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetPopupEnabled(const Value: Boolean); begin ProcName := 'TDBMemo_ads.SetPopupEnabled'; Try FPopupEnabled := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
function TDBMemo_ads.GetOnMemoChange: TNotifyEvent; begin ProcName := 'TDBMemo_ads.GetOnMemoChange'; Try Result := DBMemo.OnChange; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
function TDBMemo_ads.GetOnMemoClick: TNotifyEvent; begin ProcName := 'TDBMemo_ads.GetOnMemoClick'; Try Result := DBMemo.OnClick; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
function TDBMemo_ads.GetOnMemoDblClick: TNotifyEvent; begin ProcName := 'TDBMemo_ads.GetOnMemoDblClick'; Try Result := DBMemo.OnDblClick; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
function TDBMemo_ads.GetOnMemoDragDrop: TDragDropEvent; begin ProcName := 'TDBMemo_ads.GetOnMemoDragDrop'; Try Result := DBMemo.OnDragDrop; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
function TDBMemo_ads.GetOnMemoDragOver: TDragOverEvent; begin ProcName := 'TDBMemo_ads.GetOnMemoDragOver'; Try Result := DBMemo.OnDragOver; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
function TDBMemo_ads.GetOnMemoEndDock: TEndDragEvent; begin ProcName := 'TDBMemo_ads.GetOnMemoEndDock'; Try Result := DBMemo.OnEndDock; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
function TDBMemo_ads.GetOnMemoEndDrag: TEndDragEvent; begin ProcName := 'TDBMemo_ads.GetOnMemoEndDrag'; Try Result := DBMemo.OnEndDrag; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
function TDBMemo_ads.GetOnMemoEnter: TNotifyEvent; begin ProcName := 'TDBMemo_ads.GetOnMemoEnter'; Try Result := DBMemo.OnEnter; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
function TDBMemo_ads.GetOnMemoExit: TNotifyEvent; begin ProcName := 'TDBMemo_ads.GetOnMemoExit'; Try Result := DBMemo.OnExit; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
function TDBMemo_ads.GetOnMemoKeyDown: TKeyEvent; begin ProcName := 'TDBMemo_ads.GetOnMemoKeyDown'; Try Result := DBMemo.OnKeyDown; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
function TDBMemo_ads.GetOnMemoKeyPress: TKeyPressEvent; begin ProcName := 'TDBMemo_ads.GetOnMemoKeyPress'; Try Result := DBMemo.OnKeyPress; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
function TDBMemo_ads.GetOnMemoKeyUp: TKeyEvent; begin ProcName := 'TDBMemo_ads.GetOnMemoKeyUp'; Try Result := DBMemo.OnKeyUp; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
function TDBMemo_ads.GetOnMemoMouseDown: TMouseEvent; begin ProcName := 'TDBMemo_ads.GetOnMemoMouseDown'; Try Result := DBMemo.OnMouseDown; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
function TDBMemo_ads.GetOnMemoMouseMove: TMouseMoveEvent; begin ProcName := 'TDBMemo_ads.GetOnMemoMouseMove'; Try Result := DBMemo.OnMouseMove; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
function TDBMemo_ads.GetOnMemoMouseUp: TMouseEvent; begin ProcName := 'TDBMemo_ads.GetOnMemoMouseUp'; Try Result := DBMemo.OnMouseUp; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
function TDBMemo_ads.GetOnMemoProtectChange: TRichEditProtectChange; begin ProcName := 'TDBMemo_ads.GetOnMemoProtectChange'; Try Result := DBMemo.OnProtectChange; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
function TDBMemo_ads.GetOnMemoResizeRequest: TRichEditResizeEvent; begin ProcName := 'TDBMemo_ads.GetOnMemoResizeRequest'; Try Result := DBMemo.OnResizeRequest; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
function TDBMemo_ads.GetOnMemoSaveClipboard: TRichEditSaveClipboard; begin ProcName := 'TDBMemo_ads.GetOnMemoSaveClipboard'; Try Result := DBMemo.OnSaveClipboard; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
function TDBMemo_ads.GetOnMemoSelectionChange: TNotifyEvent; begin ProcName := 'TDBMemo_ads.GetOnMemoSelectionChange'; Try Result := DBMemo.OnSelectionChange; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
function TDBMemo_ads.GetOnMemoStartDock: TStartDockEvent; begin ProcName := 'TDBMemo_ads.GetOnMemoStartDock'; Try Result := DBMemo.OnStartDock; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
function TDBMemo_ads.GetOnMemoStartDrag: TStartDragEvent; begin ProcName := 'TDBMemo_ads.GetOnMemoStartDrag'; Try Result := DBMemo.OnStartDrag; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetOnMemoChange(const Value: TNotifyEvent); begin ProcName := ' TDBMemo_ads.SetOnMemoChange(const Value:'; Try DBMemo.OnChange := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetOnMemoClick(const Value: TNotifyEvent); begin ProcName := ' TDBMemo_ads.SetOnMemoClick(const Value:'; Try DBMemo.OnClick := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetOnMemoDblClick(const Value: TNotifyEvent); begin ProcName := ' TDBMemo_ads.SetOnMemoDblClick(const Value:'; Try DBMemo.OnDblClick := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetOnMemoDragDrop(const Value: TDragDropEvent); begin ProcName := ' TDBMemo_ads.SetOnMemoDragDrop(const Value:'; Try DBMemo.OnDragDrop := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetOnMemoDragOver(const Value: TDragOverEvent); begin ProcName := ' TDBMemo_ads.SetOnMemoDragOver(const Value:'; Try DBMemo.OnDragOver := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetOnMemoEndDock(const Value: TEndDragEvent); begin ProcName := ' TDBMemo_ads.SetOnMemoEndDock(const Value:'; Try DBMemo.OnEndDock := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetOnMemoEndDrag(const Value: TEndDragEvent); begin ProcName := ' TDBMemo_ads.SetOnMemoEndDrag(const Value:'; Try DBMemo.OnEndDrag := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetOnMemoEnter(const Value: TNotifyEvent); begin ProcName := ' TDBMemo_ads.SetOnMemoEnter(const Value:'; Try DBMemo.OnEnter := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetOnMemoExit(const Value: TNotifyEvent); begin ProcName := ' TDBMemo_ads.SetOnMemoExit(const Value:'; Try DBMemo.OnExit := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetOnMemoKeyDown(const Value: TKeyEvent); begin ProcName := ' TDBMemo_ads.SetOnMemoKeyDown(const Value:'; Try DBMemo.OnKeyDown := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetOnMemoKeyPress(const Value: TKeyPressEvent); begin ProcName := ' TDBMemo_ads.SetOnMemoKeyPress(const Value:'; Try DBMemo.OnKeyPress := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetOnMemoKeyUp(const Value: TKeyEvent); begin ProcName := ' TDBMemo_ads.SetOnMemoKeyUp(const Value:'; Try DBMemo.OnKeyUp := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetOnMemoMouseDown(const Value: TMouseEvent); begin ProcName := ' TDBMemo_ads.SetOnMemoMouseDown(const Value:'; Try DBMemo.OnMouseDown := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetOnMemoMouseMove(const Value: TMouseMoveEvent); begin ProcName := ' TDBMemo_ads.SetOnMemoMouseMove(const Value:'; Try DBMemo.OnMouseMove := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetOnMemoMouseUp(const Value: TMouseEvent); begin ProcName := ' TDBMemo_ads.SetOnMemoMouseUp(const Value:'; Try DBMemo.OnMouseUp := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetOnMemoProtectChange(const Value: TRichEditProtectChange); begin ProcName := ' TDBMemo_ads.SetOnMemoProtectChange(const Value:'; Try DBMemo.OnProtectChange := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetOnMemoResizeRequest(const Value: TRichEditResizeEvent); begin ProcName := ' TDBMemo_ads.SetOnMemoResizeRequest(const Value:'; Try DBMemo.OnResizeRequest := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetOnMemoSaveClipboard(const Value: TRichEditSaveClipboard); begin ProcName := ' TDBMemo_ads.SetOnMemoSaveClipboard(const Value:'; Try DBMemo.OnSaveClipboard := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetOnMemoSelectionChange(const Value: TNotifyEvent); begin ProcName := ' TDBMemo_ads.SetOnMemoSelectionChange(const Value:'; Try DBMemo.OnSelectionChange := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetOnMemoStartDock(const Value: TStartDockEvent); begin ProcName := ' TDBMemo_ads.SetOnMemoStartDock(const Value:'; Try DBMemo.OnStartDock := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.SetOnMemoStartDrag(const Value: TStartDragEvent); begin ProcName := ' TDBMemo_ads.SetOnMemoStartDrag(const Value:'; Try DBMemo.OnStartDrag := Value; Except On E : Exception Do RaiseError(UnitName,ProcName,E); End; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.btnOKClick(Sender: TObject); begin If DBMemo.Modified Then DBMemo.DataSource.DataSet.Post; end; //Unit Description UnitIndex Master Index
procedure TDBMemo_ads.btnCancelClick(Sender: TObject);
begin
If DBMemo.Modified Then DBMemo.DataSource.DataSet.Cancel;
end;
Constructor TDBMemo_ads.Create(AOwner: TComponent);
Function IsControl(Obj: TObject): Boolean;
Begin
Result := (Obj is TControl);
End;
Begin
ProcName := 'TDBMemo_ads.Create'; Try
inherited;
Self.Parent := TWincontrol(AOwner);
pnlBase := TPanel.Create(AOwner);
With pnlBase Do
Begin
If IsControl(pnlBase) Then
Begin
Parent := Self;
End;
Left := 0;
Top := 0;
Width := 299;
Height := 316;
Cursor := crHandPoint;
Align := alClient;
BevelOuter := bvNone;
BorderWidth := 5;
BorderStyle := bsSingle;
Caption := ' ';
TabOrder := 0;
OnMouseDown := pnlBaseMouseDown;
OnMouseUp := pnlBaseMouseUp;
End;
nav := TDBNavigator.Create(AOwner);
With nav Do
Begin
Parent := pnlBase;
Left := 5;
Top := 25;
Width := 285;
Height := 20;
VisibleButtons := [nbFirst, nbPrior, nbNext, nbLast];
Align := alTop;
Flat := True;
TabOrder := 0;
End;
DBMemo := TDBRichEdit.Create(AOwner);
With DBMemo Do
Begin
Parent := pnlBase;
Left := 5;
Top := 45;
Width := 285;
Height := 219;
Align := alClient;
BorderStyle := bsNone;
ParentShowHint := False;
ScrollBars := ssVertical;
ShowHint := True;
TabOrder := 1;
OnMouseDown := DBMemoMouseDown;
End;
pnlTitle := TPanel.Create(AOwner);
With pnlTitle Do
Begin
Parent := pnlBase;
Left := 5;
Top := 5;
Width := 285;
Height := 20;
Align := alTop;
Alignment := taLeftJustify;
BevelOuter := bvNone;
Caption := ' ';
TabOrder := 2;
End;
pnlButtonsBase := TPanel.Create(AOwner);
With pnlButtonsBase Do
Begin
Parent := pnlBase;
Left := 5;
Top := 264;
Width := 285;
Height := 43;
Align := alBottom;
BevelOuter := bvNone;
BorderWidth := 5;
Caption := ' ';
TabOrder := 3;
End;
pnlButtonsSlider := TPanel.Create(AOwner);
With pnlButtonsSlider Do
Begin
Parent := pnlButtonsBase;
Left := 116;
Top := 5;
Width := 164;
Height := 33;
Align := alRight;
BevelOuter := bvNone;
BorderStyle := bsNone;
Caption := ' ';
TabOrder := 0;
End;
btnCancel := TBitBtn.Create(AOwner);
With btnCancel Do
Begin
Parent := pnlButtonsSlider;
Left := 83;
Top := 2;
Width := 75;
Height := 25;
TabOrder := 0;
OnClick := btnCancelClick;
Kind := bkCancel;
End;
btnOK := TBitBtn.Create(AOwner);
With btnOK Do
Begin
Parent := pnlButtonsSlider;
Left := 2;
Top := 2;
Width := 75;
Height := 25;
TabOrder := 1;
OnClick := btnOKClick;
Kind := bkOK;
End;
ImageList := TImageList.Create(AOwner);
StringToImageList_ads(
ImageList,
'object ImageList: TImageList'+#10#13+
' Left = 25'+#10#13+
' Top = 25'+#10#13+
' Bitmap = '+#123+#10#13+
' 494C010110001300040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600'+#10#13+
' 0000000000003600000028000000400000005000000001001000000000000028'+#10#13+
' 000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000EF3DFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' EF3D0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7F0000EF3DFF7FFF7FFF7FFF7FFF7FFF7F00000000EF3DFF7FFF7FFF7FFF7F'+#10#13+
' EF3D0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7F000000000000EF3DFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7F000000000000FF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' 000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000EF3DFF7FFF7F'+#10#13+
' EF3D0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7F00000000000000000000EF3DFF7FFF7F000000000000000000000000EF3D'+#10#13+
' EF3D0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7F0000000000000000000000000000EF3DFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000FF7FFF7FFF7F000000000000FF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' 000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000007C007C007C'+#10#13+
' 00000000000000000000000000000000000000000000000000000000FF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7F000000000000000000000000000000000000FF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000007C007C007C'+#10#13+
' 00000000000000000000000000000000000000000000000000000000FF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7F000000000000000000000000000000000000FF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000007C007C007C'+#10#13+
' 00000000000000000000000000000000000000000000000000000000FF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7F000000000000000000000000000000000000FF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000007C007C007C'+#10#13+
' 007C007C000000000000000000000000000000000000000000000000FF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000'+#10#13+
' 000000000000FF7FFF7F00000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000007C007C007C'+#10#13+
' 007C007C000000000000000000000000000000000000000000000000FF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000'+#10#13+
' 000000000000FF7FFF7F00000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000007C007C007C'+#10#13+
' 00000000000000000000000000000000000000000000000000000000FF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000'+#10#13+
' 000000000000FF7FFF7F00000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000007C007C007C'+#10#13+
' 00000000000000000000000000000000000000000000000000000000FF7FFF7F'+#10#13+
' FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000'+#10#13+
' 000000000000FF7FFF7F00000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000007C007C007C'+#10#13+
' 007C007C007C007C000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000007C007C007C'+#10#13+
' 007C007C007C007C000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 000000000000000000000000000000000000000000000000000000000000E07F'+#10#13+
' E07FE07F00000000000000000000000000000000000000000000000000000000'+#10#13+
' 000000000000EF3D000000000000000000000000000000000000000000000000'+#10#13+
' 00000000000000000000000000000000000000000000000000000000007C0000'+#10#13+
' 00000000007C000000000000000000000000000000000000000000000000E07F'+#10#13+
' E07FE07F00000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000EF3D00000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000007C007C0000'+#10#13+
' 00000000007C007C00000000000000000000000000000000000000000000E07F'+#10#13+
' E07FE07F0000000000000000000000000000000000000000000000000000EF3D'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 000000000000000000000000000000000000000000000000007C007C007C007C'+#10#13+
' 007C007C007C007C007C0000000000000000000000000000000000000000E07F'+#10#13+
' E07FE07F00000000000000000000000000000000000000000000EF3D00000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 00000000000000000000000000000000000000000000007C007C007C007C007C'+#10#13+
' 007C007C007C007C007C007C000000000000000000000000000000000000E07F'+#10#13+
' E07FE07F0000000000000000000000000000000000000000000000000000EF3D'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 000000000000000000000000000000000000000000000000007C007C007C007C'+#10#13+
' 007C007C007C007C007C00000000000000000000000000000000E07FE07FE07F'+#10#13+
' E07FE07FE07FE07F000000000000000000000000000000000000000000000000'+#10#13+
' 0000EF3D00000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000007C007C0000'+#10#13+
' 00000000007C007C0000000000000000000000000000000000000000E07FE07F'+#10#13+
' E07FE07FE07F0000000000000000000000000000000000000000000000000000'+#10#13+
' 000000000000EF3D000000000000000000000000000000000000000000000000'+#10#13+
' 00000000000000000000000000000000000000000000000000000000007C0000'+#10#13+
' 00000000007C000000000000000000000000000000000000000000000000E07F'+#10#13+
' E07FE07F00000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' E07F000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000EF3D00000000'+#10#13+
' 0000000000000000EF3D000000000000000000000000000000000000EF3D0000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 000000000000000000000000000000000000000000000000000000000000EF3D'+#10#13+
' 0000000000000000EF3D00000000000000000000000000000000000000000000'+#10#13+
' EF3D000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000EF3D00000000EF3D00000000000000000000000000000000000000000000'+#10#13+
' 00000000EF3D0000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 000000000000EF3DEF3D00000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000EF3D00000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000EF3D00000000EF3D00000000000000000000000000000000000000000000'+#10#13+
' 00000000EF3D0000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 000000000000000000000000000000000000000000000000000000000000EF3D'+#10#13+
' 0000000000000000EF3D00000000000000000000000000000000000000000000'+#10#13+
' EF3D000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000EF3D00000000'+#10#13+
' 0000000000000000EF3D000000000000000000000000000000000000EF3D0000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 000000000000000000000000000000000000000000000000000000000000EF3D'+#10#13+
' 0000EF3D00000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000EF3D00000000'+#10#13+
' EF3D000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 000000000000000000000000000000000000000000000000000000000000EF3D'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000EF3D00000000'+#10#13+
' 0000000000000000EF3D0000000000000000000000000000EF3D0000EF3D0000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000EF3D00000000'+#10#13+
' 00000000EF3D0000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000EF3D00000000'+#10#13+
' EF3D000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000EF3DEF3D0000'+#10#13+
' 00000000000000000000000000000000000000000000000000000000EF3D0000'+#10#13+
' 00000000EF3D0000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000EF3D00000000'+#10#13+
' EF3D00000000000000000000000000000000000000000000EF3D00000000EF3D'+#10#13+
' 0000EF3D00000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000EF3D00000000'+#10#13+
' 00000000EF3D0000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000EF3D00000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000EF3D00000000'+#10#13+
' 0000000000000000EF3D000000000000000000000000000000000000EF3D0000'+#10#13+
' 00000000EF3D0000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 0000000000000000000000000000000000000000000000000000000000000000'+#10#13+
' 000000000000000000000000000000000000424D3E000000000000003E000000'+#10#13+
' 2800000040000000500000000100010000000000800200000000000000000000'+#10#13+
' 000000000000000000000000FFFFFF0000000000000000000000000000000000'+#10#13+
' 0000000000000000FF3B8000EF00030000000000000000000000975B48D97383'+#10#13+
' 3B00EA003B0000003B000E003B007C003B0008003B000C00000046033B000400'+#10#13+
' 0000000000000000000000000000000000000004CF5ACF5A0000000000001000'+#10#13+
' 00000000000000004644000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'+#10#13+
' FFFFFFFFFFFFFFFFC007FFFFFFFFFFFFDFF7F1FFF80FF80FDFF7F1FFF80FF80F'+#10#13+
' DFF7F1FFF80FF80FDFF7F07FC00FC00FDFF7F07FC00FC00FDFF7F1FFC00FC00F'+#10#13+
' DFF7F1FFC00FC00FDFF7F01FC03FC03FDFF7F01FC03FC03FC007FFFFC03FC03F'+#10#13+
' FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'+#10#13+
' FFFFFFFFFFFFFFFFFFFFFFFFFFFFF83FFFFFF3E7FFFFF83FFFCFF1C7FBBFF83F'+#10#13+
' FF0FF88FF39FF83FFC0FFC1FE00FF83FF00FFE3FC007C007FC0FFC1FE00FE00F'+#10#13+
' FF0FF88FF39FF01FFFCFF1C7FBBFF83FFFFFF3E7FFFFFC7FFFFFFFFFFFFFFEFF'+#10#13+
' FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'+#10#13+
' FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC7FFFFFFFFFFBFFFC7FE7E7F3FFF1FF'+#10#13+
' FC7FE1E7F0FFE0FFE00FE067F03FC47FE00FE007F00FCE3FE00FE067F03FFF1F'+#10#13+
' FC7FE1E7F0FFFF8FFC7FE7E7F3FFFFC7FC7FFFFFFFFFFFE7FFFFFFFFFFFFFFFF'+#10#13+
' FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'+#10#13+
' FFFFFFFFFFFFFFFFFC7FFFFFFFFFFFFFF0FFFFFFFFFFFFFFF1FFFFFFFFFFE7E7'+#10#13+
' E3FFFFFFE007E787E7FFE007F00FE607E707E007F81FE007E387E007FC3FE607'+#10#13+
' E107FFFFFE7FE787F007FFFFFFFFE7E7F837FFFFFFFFFFFFFFFFFFFFFFFFFFFF'+#10#13+
' FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000'+#10#13+
' 000000000000'+#125+#10#13+
'end');
ActionList := TActionList.Create(AOwner);
With ActionList Do
Begin
If IsControl(ActionList) Then
Begin
Parent := Self;
End;
Images := ImageList;
Left := 98;
Top := 98;
End;
NavigatorShow := TAction.Create(AOwner);
With NavigatorShow Do
Begin
Tag := 1;
Category := 'Navigator';
Caption := 'Navigator';
Hint := 'Show the record navigator.';
OnExecute := NavigatorShowExecute;
End;
ActionNavShowCancel := TAction.Create(AOwner);
With ActionNavShowCancel Do
Begin
Category := 'Navigator';
Caption := 'Show Cancel';
Hint := 'Show the cancel navigator button.';
ImageIndex := 9;
OnExecute := ActionNavShowCancelExecute;
End;
ActionNavShowDelete := TAction.Create(AOwner);
With ActionNavShowDelete Do
Begin
Category := 'Navigator';
Caption := 'Show Delete';
Hint := 'Show the delete navigator button.';
ImageIndex := 1;
OnExecute := ActionNavShowDeleteExecute;
End;
ActionNavShowEdit := TAction.Create(AOwner);
With ActionNavShowEdit Do
Begin
Category := 'Navigator';
Caption := 'Show Edit';
Hint := 'Show the edit navigator button.';
ImageIndex := 2;
OnExecute := ActionNavShowEditExecute;
End;
ActionNavShowPost := TAction.Create(AOwner);
With ActionNavShowPost Do
Begin
Category := 'Navigator';
Caption := 'Show Post';
Hint := 'Show the post navigator button.';
ImageIndex := 7;
OnExecute := ActionNavShowPostExecute;
End;
ActionNavShowRefresh := TAction.Create(AOwner);
With ActionNavShowRefresh Do
Begin
Category := 'Navigator';
Caption := 'Show Refresh';
Hint := 'Show the refresh navigator button.';
ImageIndex := 0;
OnExecute := ActionNavShowRefreshExecute;
End;
ActionNavShowInsert := TAction.Create(AOwner);
With ActionNavShowInsert Do
Begin
Category := 'Navigator';
Caption := 'Show Insert';
Hint := 'Show the insert navigator button.';
ImageIndex := 4;
OnExecute := ActionNavShowInsertExecute;
End;
ActionNavShowFirst := TAction.Create(AOwner);
With ActionNavShowFirst Do
Begin
Category := 'Navigator';
Caption := 'Hide First';
Hint := 'Hide the First navigator button.';
ImageIndex := 3;
OnExecute := ActionNavShowFirstExecute;
End;
ActionNavShowPrior := TAction.Create(AOwner);
With ActionNavShowPrior Do
Begin
Category := 'Navigator';
Caption := 'Hide Prior';
Hint := 'Hide the Prior navigator button.';
ImageIndex := 8;
OnExecute := ActionNavShowPriorExecute;
End;
ActionNavShowNext := TAction.Create(AOwner);
With ActionNavShowNext Do
Begin
Category := 'Navigator';
Caption := 'Hide Next';
Hint := 'Show the Next navigator button.';
ImageIndex := 6;
OnExecute := ActionNavShowNextExecute;
End;
ActionNavShowLast := TAction.Create(AOwner);
With ActionNavShowLast Do
Begin
Category := 'Navigator';
Caption := 'Hide Last';
Hint := 'Show the Last navigator button.';
ImageIndex := 5;
OnExecute := ActionNavShowLastExecute;
End;
ActionMemoPlainText := TAction.Create(AOwner);
With ActionMemoPlainText Do
Begin
Category := 'Memo';
Caption := 'Turn Plain Text On';
Hint := 'Turn Plain Text On';
OnExecute := ActionMemoPlainTextExecute;
End;
ActionMemoReadOnly := TAction.Create(AOwner);
With ActionMemoReadOnly Do
Begin
Category := 'Memo';
Caption := 'Turn ReadOnly On';
Hint := 'Turn ReadOnly On';
OnExecute := ActionMemoReadOnlyExecute;
End;
ActionMemoWordWrap := TAction.Create(AOwner);
With ActionMemoWordWrap Do
Begin
Category := 'Memo';
Caption := 'Turn Wordwrap Off';
Hint := 'Turn Wordwrap Off';
OnExecute := ActionMemoWordWrapExecute;
End;
ActionAppearanceBorder := TAction.Create(AOwner);
With ActionAppearanceBorder Do
Begin
Category := 'Appearance';
Caption := 'Hide Border';
Hint := 'Hide The border';
ImageIndex := 12;
OnExecute := ActionAppearanceBorderExecute;
End;
ActionAppearanceMovable := TAction.Create(AOwner);
With ActionAppearanceMovable Do
Begin
Category := 'Appearance';
Caption := 'Turn Moving Off';
Hint := 'Turn Moving Off';
ImageIndex := 11;
OnExecute := ActionAppearanceMovableExecute;
End;
ActionAppearanceResize := TAction.Create(AOwner);
With ActionAppearanceResize Do
Begin
Category := 'Appearance';
Caption := 'Turn Resizing Off';
Hint := 'Turn Resizing Off';
ImageIndex := 10;
OnExecute := ActionAppearanceResizeExecute;
End;
ActionAppearanceFont := TAction.Create(AOwner);
With ActionAppearanceFont Do
Begin
Category := 'Appearance';
Caption := 'Font';
Hint := 'Change Font characteristics.';
ImageIndex := 13;
OnExecute := ActionAppearanceFontExecute;
End;
ActionAppearanceSendToBack := TAction.Create(AOwner);
With ActionAppearanceSendToBack Do
Begin
Category := 'Appearance';
Caption := 'Send To Back';
Hint := 'Send To Back';
ImageIndex := 15;
OnExecute := ActionAppearanceSendToBackExecute;
End;
ActionAppearanceBringToFront := TAction.Create(AOwner);
With ActionAppearanceBringToFront Do
Begin
Category := 'Appearance';
Caption := 'Bring To Front';
Hint := 'Bring To Front';
ImageIndex := 14;
OnExecute := ActionAppearanceBringToFrontExecute;
End;
mnu := TPopupMenu.Create(AOwner);
With mnu Do
Begin
If IsControl(mnu) Then
Begin
Parent := Self;
End;
Images := ImageList;
Left := 66;
Top := 98;
End;
Appearance1 := TMenuItem.Create(AOwner);
With Appearance1 Do
Begin
mnu.Items.Add(Appearance1);
Caption := 'Appearance';
End;
BringToFront1 := TMenuItem.Create(AOwner);
With BringToFront1 Do
Begin
Appearance1.Add(BringToFront1);
If ActionAppearanceBringToFront.ImageIndex <> -1 Then ImageList.GetBitmap(ActionAppearanceBringToFront.ImageIndex,Bitmap);
Action := ActionAppearanceBringToFront;
End;
Font1 := TMenuItem.Create(AOwner);
With Font1 Do
Begin
Appearance1.Add(Font1);
If ActionAppearanceFont.ImageIndex <> -1 Then ImageList.GetBitmap(ActionAppearanceFont.ImageIndex,Bitmap);
Action := ActionAppearanceFont;
End;
HideBorder1 := TMenuItem.Create(AOwner);
With HideBorder1 Do
Begin
Appearance1.Add(HideBorder1);
If ActionAppearanceBorder.ImageIndex <> -1 Then ImageList.GetBitmap(ActionAppearanceBorder.ImageIndex,Bitmap);
Action := ActionAppearanceBorder;
End;
SendToBack1 := TMenuItem.Create(AOwner);
With SendToBack1 Do
Begin
Appearance1.Add(SendToBack1);
If ActionAppearanceSendToBack.ImageIndex <> -1 Then ImageList.GetBitmap(ActionAppearanceSendToBack.ImageIndex,Bitmap);
Action := ActionAppearanceSendToBack;
End;
TurnMovingOff1 := TMenuItem.Create(AOwner);
With TurnMovingOff1 Do
Begin
Appearance1.Add(TurnMovingOff1);
If ActionAppearanceMovable.ImageIndex <> -1 Then ImageList.GetBitmap(ActionAppearanceMovable.ImageIndex,Bitmap);
Action := ActionAppearanceMovable;
End;
TurnResizingOff1 := TMenuItem.Create(AOwner);
With TurnResizingOff1 Do
Begin
Appearance1.Add(TurnResizingOff1);
If ActionAppearanceResize.ImageIndex <> -1 Then ImageList.GetBitmap(ActionAppearanceResize.ImageIndex,Bitmap);
Action := ActionAppearanceResize;
End;
Navigator1 := TMenuItem.Create(AOwner);
With Navigator1 Do
Begin
mnu.Items.Add(Navigator1);
Caption := 'Navigator';
End;
Navigator2 := TMenuItem.Create(AOwner);
With Navigator2 Do
Begin
Navigator1.Add(Navigator2);
If NavigatorShow.ImageIndex <> -1 Then ImageList.GetBitmap(NavigatorShow.ImageIndex,Bitmap);
Action := NavigatorShow;
End;
N1 := TMenuItem.Create(AOwner);
With N1 Do
Begin
Navigator1.Add(N1);
Caption := '-';
End;
ShowCancel1 := TMenuItem.Create(AOwner);
With ShowCancel1 Do
Begin
Navigator1.Add(ShowCancel1);
If ActionNavShowCancel.ImageIndex <> -1 Then ImageList.GetBitmap(ActionNavShowCancel.ImageIndex,Bitmap);
Action := ActionNavShowCancel;
End;
ShowDelete1 := TMenuItem.Create(AOwner);
With ShowDelete1 Do
Begin
Navigator1.Add(ShowDelete1);
If ActionNavShowDelete.ImageIndex <> -1 Then ImageList.GetBitmap(ActionNavShowDelete.ImageIndex,Bitmap);
Action := ActionNavShowDelete;
End;
ShowEdit1 := TMenuItem.Create(AOwner);
With ShowEdit1 Do
Begin
Navigator1.Add(ShowEdit1);
If ActionNavShowEdit.ImageIndex <> -1 Then ImageList.GetBitmap(ActionNavShowEdit.ImageIndex,Bitmap);
Action := ActionNavShowEdit;
End;
ShowInsert1 := TMenuItem.Create(AOwner);
With ShowInsert1 Do
Begin
Navigator1.Add(ShowInsert1);
If ActionNavShowInsert.ImageIndex <> -1 Then ImageList.GetBitmap(ActionNavShowInsert.ImageIndex,Bitmap);
Action := ActionNavShowInsert;
End;
ShowPost1 := TMenuItem.Create(AOwner);
With ShowPost1 Do
Begin
Navigator1.Add(ShowPost1);
If ActionNavShowPost.ImageIndex <> -1 Then ImageList.GetBitmap(ActionNavShowPost.ImageIndex,Bitmap);
Action := ActionNavShowPost;
End;
ShowRefresh1 := TMenuItem.Create(AOwner);
With ShowRefresh1 Do
Begin
Navigator1.Add(ShowRefresh1);
If ActionNavShowRefresh.ImageIndex <> -1 Then ImageList.GetBitmap(ActionNavShowRefresh.ImageIndex,Bitmap);
Action := ActionNavShowRefresh;
End;
N2 := TMenuItem.Create(AOwner);
With N2 Do
Begin
Navigator1.Add(N2);
Caption := '-';
End;
HideFirst1 := TMenuItem.Create(AOwner);
With HideFirst1 Do
Begin
Navigator1.Add(HideFirst1);
If ActionNavShowFirst.ImageIndex <> -1 Then ImageList.GetBitmap(ActionNavShowFirst.ImageIndex,Bitmap);
Action := ActionNavShowFirst;
End;
HidePrior1 := TMenuItem.Create(AOwner);
With HidePrior1 Do
Begin
Navigator1.Add(HidePrior1);
If ActionNavShowPrior.ImageIndex <> -1 Then ImageList.GetBitmap(ActionNavShowPrior.ImageIndex,Bitmap);
Action := ActionNavShowPrior;
End;
HideNext1 := TMenuItem.Create(AOwner);
With HideNext1 Do
Begin
Navigator1.Add(HideNext1);
If ActionNavShowNext.ImageIndex <> -1 Then ImageList.GetBitmap(ActionNavShowNext.ImageIndex,Bitmap);
Action := ActionNavShowNext;
End;
HideLast1 := TMenuItem.Create(AOwner);
With HideLast1 Do
Begin
Navigator1.Add(HideLast1);
If ActionNavShowLast.ImageIndex <> -1 Then ImageList.GetBitmap(ActionNavShowLast.ImageIndex,Bitmap);
Action := ActionNavShowLast;
End;
Memo1 := TMenuItem.Create(AOwner);
With Memo1 Do
Begin
mnu.Items.Add(Memo1);
Caption := 'Memo';
End;
TurnWordwrapOff1 := TMenuItem.Create(AOwner);
With TurnWordwrapOff1 Do
Begin
Memo1.Add(TurnWordwrapOff1);
If ActionMemoWordWrap.ImageIndex <> -1 Then ImageList.GetBitmap(ActionMemoWordWrap.ImageIndex,Bitmap);
Action := ActionMemoWordWrap;
End;
TurnPlainTextOn1 := TMenuItem.Create(AOwner);
With TurnPlainTextOn1 Do
Begin
Memo1.Add(TurnPlainTextOn1);
If ActionMemoPlainText.ImageIndex <> -1 Then ImageList.GetBitmap(ActionMemoPlainText.ImageIndex,Bitmap);
Action := ActionMemoPlainText;
End;
TurnReadOnlyOn1 := TMenuItem.Create(AOwner);
With TurnReadOnlyOn1 Do
Begin
Memo1.Add(TurnReadOnlyOn1);
If ActionMemoReadOnly.ImageIndex <> -1 Then ImageList.GetBitmap(ActionMemoReadOnly.ImageIndex,Bitmap);
Action := ActionMemoReadOnly;
Caption := 'Turn ReadOnly Off';
End;
FontDialog := TFontDialog.Create(AOwner);
With FontDialog Do
Begin
If IsControl(FontDialog) Then
Begin
Parent := Self;
End;
Font.Color := clWindowText;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
Font.Style := [];
MinFontSize := 0;
MaxFontSize := 0;
Left := 170;
Top := 98;
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
End;
Destructor TDBMemo_ads.Destroy;
Begin
ProcName := 'TDBMemo_ads.Destroy'; Try
FontDialog .Free;
TurnReadOnlyOn1 .Free;
TurnPlainTextOn1 .Free;
TurnWordwrapOff1 .Free;
Memo1 .Free;
HideLast1 .Free;
HideNext1 .Free;
HidePrior1 .Free;
HideFirst1 .Free;
N2 .Free;
ShowRefresh1 .Free;
ShowPost1 .Free;
ShowInsert1 .Free;
ShowEdit1 .Free;
ShowDelete1 .Free;
ShowCancel1 .Free;
N1 .Free;
Navigator2 .Free;
Navigator1 .Free;
TurnResizingOff1 .Free;
TurnMovingOff1 .Free;
SendToBack1 .Free;
HideBorder1 .Free;
Font1 .Free;
BringToFront1 .Free;
Appearance1 .Free;
mnu .Free;
ActionAppearanceBringToFront.Free;
ActionAppearanceSendToBack .Free;
ActionAppearanceFont .Free;
ActionAppearanceResize .Free;
ActionAppearanceMovable .Free;
ActionAppearanceBorder .Free;
ActionMemoWordWrap .Free;
ActionMemoReadOnly .Free;
ActionMemoPlainText .Free;
ActionNavShowLast .Free;
ActionNavShowNext .Free;
ActionNavShowPrior .Free;
ActionNavShowFirst .Free;
ActionNavShowInsert .Free;
ActionNavShowRefresh .Free;
ActionNavShowPost .Free;
ActionNavShowEdit .Free;
ActionNavShowDelete .Free;
ActionNavShowCancel .Free;
NavigatorShow .Free;
ActionList .Free;
ImageList .Free;
btnOK .Free;
btnCancel .Free;
pnlButtonsSlider .Free;
pnlButtonsBase .Free;
pnlTitle .Free;
DBMemo .Free;
nav .Free;
pnlBase .Free;
inherited Destroy;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
End;
{!~DlgDBMemoDetail_ads
}
//Unit Description UnitIndex Master Index
Function DlgDBMemoDetail_ads (
Border : Boolean;
DataField : String;
DataLabel : String;
DataSource : TDataSource;
DragMovable : Boolean;
DragResizable : Boolean;
FileName : String;
FontColor : TColor;
FontName : TFontName;
FontSize : Integer;
MinHeight : Integer;
MinWidth : Integer;
Modal : Boolean;
ParentControl : TWinControl;
PlainText : Boolean;
PopupEnabled : Boolean;
ReadOnly : Boolean;
ShowNavCancel : Boolean;
ShowNavDelete : Boolean;
ShowNavEdit : Boolean;
ShowNavFirst : Boolean;
ShowNavigator : Boolean;
ShowNavInsert : Boolean;
ShowNavLast : Boolean;
ShowNavNext : Boolean;
ShowNavPost : Boolean;
ShowNavPrior : Boolean;
ShowNavRefresh : Boolean;
StayOnTop : Boolean;
TitleOfWindow : String;
WordWrap : Boolean
)
: Boolean;
Var
Dialog : TForm;
Form : TDBMemo_ads;
Begin
Result := False;
Dialog := nil;
ProcName := 'DlgDBMemoDetail_ads'; Try
Try
Dialog := TForm.Create(nil);
Form := TDBMemo_ads.Create(Dialog);
Form.Parent:= Dialog;
Form.Align := alClient;
With Dialog Do
Begin
Left := 540;
Top := 285;
Width := 307;
Height := 343;
BorderIcons := [biSystemMenu];
Caption := ' ';
Color := clBtnFace;
Font.Color := clWindowText;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
Font.Style := [];
StringToIcon_ads(Icon,'object TIcon_ads Icon.Data = {'+
' 0000010001002020100000000000E80200001600000028000000200000004000'+
' 0000010004000000000080020000000000000000000000000000000000000000'+
' 0000000080000080000000808000800000008000800080800000C0C0C0008080'+
' 80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF004444'+
' 4444444444444444444444444444444444444444444B44444444444444444444'+
' 44444444444B4444444444444444444444444B44444B4444B444444444444444'+
' 44444B44444B4444B444444B4444444B444444B4444B444B444444B444444444'+
' B44444B4444B444B44444B44444444444B44444B444B44B44444B44444444444'+
' 44B4444B444B44B4444B444444444444444B4444B44B4B4444B44444B4444444'+
' 4444B444B44B4B444B4444BB444444BB44444B44B44B4B44B444BB4444444444'+
' BB4444B44B4BB44B44BB44444444444444BBB44B4B4BB4B4BB44444444444444'+
' 44444BB4B4BB4BBB44444444444444444444444BBBBBBB444444444444444BBB'+
' BBBBBBBBBBBBBBBBBBBBBBBBBBB4444444444444BBBBBB444444444444444444'+
' 444444BB4BBB4BBBB4444444444444444444BB44BB4BB4B44BB4444444444444'+
' 44BB444B4B4BB44B444BBB4444444444BB4444B4B44B4B44B44444BB444444BB'+
' 44444B44B44B4B444B444444BB4444444444B444B44B4B4444B4444444444444'+
' 444B444B444B44B4444B44444444444444B4444B444B44B44444B44444444444'+
' 4B4444B4444B444B44444B4444444444B44444B4444B444B444444B44444444B'+
' 44444B44444B4444B44444444444444444444B44444B4444B444444444444444'+
' 44444444444B4444444444444444444444444444444444444444444444440000'+
' 0000000000000000000000000000000000000000000000000000000000000000'+
' 0000000000000000000000000000000000000000000000000000000000000000'+
' 0000000000000000000000000000000000000000000000000000000000000000'+
' 000000000000000000000000000000000000000000000000000000000000}end');
OldCreateOrder := False;
OnCreate := Form.FormCreate;
OnResize := Form.FormResize;
PixelsPerInch := 96;
End;
Form.FormCreate(Dialog);
Form.FormCreate(Dialog);
Form.Modal := Modal;
Form.ParentControl := ParentControl;
Form.Border := Border;
Form.DataField := DataField;
Form.DataLabel := DataLabel;
Form.DataSource := DataSource;
Form.DragMovable := DragMovable;
Form.DragResizable := DragResizable;
Form.FileName := FileName;
Form.FontColor := FontColor;
Form.FontName := FontName;
Form.FontSize := FontSize;
Form.MinHeight := MinHeight;
Form.MinWidth := MinWidth;
Form.PlainText := PlainText;
Form.PopupEnabled := PopupEnabled;
Form.ReadOnly := ReadOnly;
Form.ShowNavCancel := ShowNavCancel;
Form.ShowNavDelete := ShowNavDelete;
Form.ShowNavEdit := ShowNavEdit;
Form.ShowNavFirst := ShowNavFirst;
Form.ShowNavigator := ShowNavigator;
Form.ShowNavInsert := ShowNavInsert;
Form.ShowNavLast := ShowNavLast;
Form.ShowNavNext := ShowNavNext;
Form.ShowNavPost := ShowNavPost;
Form.ShowNavPrior := ShowNavPrior;
Form.ShowNavRefresh := ShowNavRefresh;
Form.StayOnTop := StayOnTop;
Form.TitleOfWindow := TitleOfWindow;
Form.WordWrap := WordWrap;
Form.Parent := Dialog;
If Modal Then
Begin
Dialog.Parent := nil;
Dialog.Position := poScreenCenter;
Dialog.BorderStyle := bsSizeable;
Dialog.BorderIcons := [biSystemMenu];
End
Else
Begin
If ParentControl <> nil Then Dialog.Parent := ParentControl;
Dialog.BorderStyle := bsNone;
Dialog.BorderIcons := [];
End;
If Modal Then
Begin
Dialog.ShowModal;
End
Else
Begin
Dialog.Show;
End;
Result := True;
Finally
If Modal Then Dialog.Free;
End;
Except On E : Exception Do RaiseError(UnitName,ProcName,E); End;
End;
//Unit Description UnitIndex Master Index
Function DlgDBMemo_ads (
DataField : String;
DataLabel : String;
DataSource : TDataSource;
MinHeight : Integer;
MinWidth : Integer;
PlainText : Boolean;
ReadOnly : Boolean;
TitleOfWindow : String;
WordWrap : Boolean
)
: Boolean;
Var
Border : Boolean;
DragMovable : Boolean;
DragResizable : Boolean;
FileName : String;
FontColor : TColor;
FontName : TFontName;
FontSize : Integer;
Modal : Boolean;
ParentControl : TWinControl;
PopupEnabled : Boolean;
ShowNavCancel : Boolean;
ShowNavDelete : Boolean;
ShowNavEdit : Boolean;
ShowNavFirst : Boolean;
ShowNavigator : Boolean;
ShowNavInsert : Boolean;
ShowNavLast : Boolean;
ShowNavNext : Boolean;
ShowNavPost : Boolean;
ShowNavPrior : Boolean;
ShowNavRefresh : Boolean;
StayOnTop : Boolean;
Begin
Border := False;
DragMovable := False;
DragResizable := False;
FileName := '';
FontColor := clBlack;
FontName := 'Arial';
FontSize := 10;
Modal := True;
ParentControl := nil;
PopupEnabled := False;
ShowNavCancel := False;
ShowNavDelete := False;
ShowNavEdit := False;
ShowNavFirst := False;
ShowNavigator := False;
ShowNavInsert := False;
ShowNavLast := False;
ShowNavNext := False;
ShowNavPost := False;
ShowNavPrior := False;
ShowNavRefresh := False;
StayOnTop := True;
Result :=
DlgDBMemoDetail_ads (
Border , //Border : Boolean;
DataField , //DataField : String;
DataLabel , //DataLabel : String;
DataSource , //DataSource : TDataSource;
DragMovable , //DragMovable : Boolean;
DragResizable , //DragResizable : Boolean;
FileName , //FileName : String;
FontColor , //FontColor : TColor;
FontName , //FontName : TFontName;
FontSize , //FontSize : Integer;
MinHeight , //MinHeight : Integer;
MinWidth , //MinWidth : Integer;
Modal , //Modal : Boolean;
ParentControl , //ParentControl : TWinControl;
PlainText , //PlainText : Boolean;
PopupEnabled , //PopupEnabled : Boolean;
ReadOnly , //ReadOnly : Boolean;
ShowNavCancel , //ShowNavCancel : Boolean;
ShowNavDelete , //ShowNavDelete : Boolean;
ShowNavEdit , //ShowNavEdit : Boolean;
ShowNavFirst , //ShowNavFirst : Boolean;
ShowNavigator , //ShowNavigator : Boolean;
ShowNavInsert , //ShowNavInsert : Boolean;
ShowNavLast , //ShowNavLast : Boolean;
ShowNavNext , //ShowNavNext : Boolean;
ShowNavPost , //ShowNavPost : Boolean;
ShowNavPrior , //ShowNavPrior : Boolean;
ShowNavRefresh , //ShowNavRefresh : Boolean;
StayOnTop , //StayOnTop : Boolean;
TitleOfWindow , //TitleOfWindow : String;
WordWrap //WordWrap : Boolean
);//): Boolean;
End;
Initialization
UnitName := 'ads_DlgDBMemo';
ProcName := 'Unknown';
End.
//