home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
sibylft1.zip
/
DOC.DAT
/
DOC
/
SPCC
/
DIALOGS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1997-04-07
|
14KB
|
401 lines
{╔══════════════════════════════════════════════════════════════════════════╗
║ ║
║ Sibyl Portable Component Classes ║
║ ║
║ Copyright (c) 1995,97 SpeedSoft Germany, All rights reserved. ║
║ ║
╚══════════════════════════════════════════════════════════════════════════╝}
UNIT Dialogs;
INTERFACE
{$r Buttons}
{$i StdBmpId.Inc}
{$IFDEF OS2}
USES BseDos,BseErr,PmWin,PmStdDlg;
{$ENDIF}
{$IFDEF Win95}
USES WinDef,WinBase,WinUser,CommDlg;
{$ENDIF}
USES Dos,SysUtils,Classes,Graphics,Forms,Buttons,StdCtrls,ExtCtrls,FileCtrl;
TYPE
TDialog=CLASS(TForm)
PROTECTED
PROCEDURE SetupComponent;OVERRIDE;
PROPERTY MinTrackWidth;
PROPERTY MinTrackHeight;
PROPERTY MaxTrackWidth;
PROPERTY MaxTrackHeight;
PROPERTY Menu;
PROPERTY FormStyle;
PROPERTY OnMDIActivate;
PROPERTY OnMDIDeactivate;
PROPERTY OnMenuInit;
PROPERTY OnMenuEnd;
PROPERTY OnMenuItemFocus;
PUBLIC
FUNCTION Execute:BOOLEAN;VIRTUAL;
PROPERTY Align;
PROPERTY Color;
PROPERTY BorderIcons;
PROPERTY BorderStyle;
PROPERTY Bottom;
PROPERTY ClientHeight;
PROPERTY ClientWidth;
PROPERTY PenColor;
PROPERTY Cursor;
PROPERTY Enabled;
PROPERTY Font;
PROPERTY Height;
PROPERTY Hint;
PROPERTY Icon;
PROPERTY Left;
PROPERTY Right;
PROPERTY ScrollBars;
PROPERTY ShowHint;
PROPERTY Top;
PROPERTY Visible;
PROPERTY Width;
PROPERTY WindowState;
PROPERTY XAlign;
PROPERTY XStretch;
PROPERTY YAlign;
PROPERTY YStretch;
PROPERTY OnActivate;
PROPERTY OnClose;
PROPERTY OnCloseQuery;
PROPERTY OnCommand;
PROPERTY OnCreate;
PROPERTY OnDeactivate;
PROPERTY OnDestroy;
PROPERTY OnDismissDlg;
PROPERTY OnDragDrop;
PROPERTY OnDragOver;
PROPERTY OnEndDrag;
PROPERTY OnFontChange;
PROPERTY OnHide;
PROPERTY OnKeyPress;
PROPERTY OnMaximize;
PROPERTY OnMinimize;
PROPERTY OnMouseClick;
PROPERTY OnMouseDblClick;
PROPERTY OnMouseDown;
PROPERTY OnMouseMove;
PROPERTY OnMouseUp;
PROPERTY OnMove;
PROPERTY OnPaint;
PROPERTY OnResize;
PROPERTY OnRestore;
PROPERTY OnScan;
PROPERTY OnSetupShow;
PROPERTY OnShow;
PROPERTY OnTranslateShortCut;
END;
TSystemOpenDialog=CLASS(TComponent)
PRIVATE
FOkName:STRING;
FTitle:STRING;
FFileName:STRING;
FDefaultExt:STRING;
PROTECTED
PROCEDURE SetupComponent;OVERRIDE;
PUBLIC
FUNCTION Execute:BOOLEAN;
PROPERTY FileName:STRING read FFileName;
PUBLISHED
PROPERTY OkName:STRING read FOkName write FOkName;
PROPERTY Title:STRING read FTitle write FTitle;
PROPERTY DefaultExt:STRING read FDefaultExt write FDefaultExt;
END;
TSystemSaveDialog=CLASS(TComponent)
PRIVATE
FOkName:STRING;
FTitle:STRING;
FFileName:STRING;
FDefaultExt:STRING;
PROTECTED
PROCEDURE SetupComponent;OVERRIDE;
PUBLIC
FUNCTION Execute:BOOLEAN;
PROPERTY FileName:STRING read FFileName;
PUBLISHED
PROPERTY OkName:STRING read FOkName write FOkName;
PROPERTY Title:STRING read FTitle write FTitle;
PROPERTY DefaultExt:STRING read FDefaultExt write FDefaultExt;
END;
TOpenDialog=CLASS(TDialog)
PRIVATE
FCurDir:STRING;
FTitle:STRING;
FFileName:STRING;
FFilter:STRING;
FFilterIndex:LONGINT;
FDefaultExt:STRING;
FOkName:STRING;
FFileNameEdit:TEdit;
FFilterCombo:TFilterComboBox;
FDriveCombo:TDriveComboBox;
FFileList:TFileListBox;
FDirectoryList:TDirectoryListBox;
FCurrentNamePanel:TPanel;
FOkButton:TBitBtn;
FCancelButton:TBitBtn;
FHelpButton:TBitBtn;
PROCEDURE SetFileName(Value:STRING);
FUNCTION GetFileName:STRING;
PROCEDURE SetCurDir(Value:STRING);
PROCEDURE FileChange(Sender:TObject);
PROCEDURE FileSelect(Sender:TObject;Index:LONGINT);
PROCEDURE EvKillFocus(Sender:TObject);
PROCEDURE CMTextChanged(VAR Msg:TMessage);message CM_TEXTCHANGED;
PROTECTED
PROCEDURE SetupComponent;OVERRIDE;
PROCEDURE SetupShow;OVERRIDE;
PUBLIC
PROCEDURE DismissDlg(result:TCommand);OVERRIDE;
PROCEDURE AddFilter(Name,Mask:STRING);
PROPERTY Caption;
PUBLISHED
PROPERTY DefaultExt:STRING read FDefaultExt write FDefaultExt;
PROPERTY FileName:STRING read FFileName write FFileName;
PROPERTY Filter:STRING read FFilter write FFilter;
PROPERTY FilterIndex:LONGINT read FFilterIndex write FFilterIndex;
PROPERTY OkName:STRING read FOkName write FOkName;
PROPERTY Title:STRING read FTitle write FTitle;
END;
TSaveDialog=CLASS(TOpenDialog)
PRIVATE
FCreateButton:TSpeedButton;
PROCEDURE EvCreateDir(Sender:TObject);
PROTECTED
PROCEDURE SetupComponent;OVERRIDE;
END;
TCreateDirDialog=CLASS(TDialog)
PRIVATE
FOkName:STRING;
FDirectory:STRING;
FChangeDir:BOOLEAN;
FDirEdit:TEdit;
FChangeCheck:TCheckBox;
FOkButton:TBitBtn;
FCancelButton:TBitBtn;
FHelpButton:TBitBtn;
PROTECTED
PROCEDURE SetupComponent;OVERRIDE;
PROCEDURE SetupShow;OVERRIDE;
PUBLIC
PROCEDURE DismissDlg(Result:TCommand);OVERRIDE;
PUBLISHED
PROPERTY ChangeDir:BOOLEAN read FChangeDir write FChangeDir;
PROPERTY Directory:STRING read FDirectory write FDirectory;
PROPERTY OkName:STRING read FOkName write FOkName;
END;
TChangeDirDialog=CLASS(TDialog)
PRIVATE
FOkName:STRING;
FDirectory:STRING;
FFileNameEdit:TEdit;
FDriveCombo:TDriveComboBox;
FDirectoryList:TDirectoryListBox;
FOkButton:TBitBtn;
FCancelButton:TBitBtn;
FCreateButton:TBitBtn;
FHelpButton:TBitBtn;
PROCEDURE DirectoryChange(Sender:TObject);
PROCEDURE EvCreateDir(Sender:TObject);
PROTECTED
PROCEDURE SetupComponent;OVERRIDE;
PROCEDURE SetupShow;OVERRIDE;
PUBLIC
FUNCTION Execute:BOOLEAN;OVERRIDE;
PUBLISHED
PROPERTY Directory:STRING read FDirectory write FDirectory;
PROPERTY OkName:STRING read FOkName write FOkName;
END;
{$M+}
TFindDirection = (fdForward,fdBackward);
TFindOrigin = (foEntireScope,foCursor);
TFindScope = (fsGlobal,fsSelection);
TFindOptions = SET OF (foCaseSensitive,foWordsOnly);
{$M-}
TFindDialog=CLASS(TDialog)
PRIVATE
Lab_Find:TLabel;
CoB_Find:TComboBox;
Grp_Options:TGroupBox;
ChB_CaseSense:TCheckBox;
ChB_WordsOnly:TCheckBox;
Grp_Scope:TGroupBox;
RaB_Global:TRadioButton;
RaB_Selection:TRadioButton;
Grp_Origin:TGroupBox;
RaB_EntireScope:TRadioButton;
RaB_Cursor:TRadioButton;
Grp_Direction:TGroupBox;
RaB_Forward:TRadioButton;
RaB_Backward:TRadioButton;
BiB_Find:TBitBtn;
BiB_Cancel:TBitBtn;
BiB_Help:TBitBtn;
FFindTextExt:STRING;
FUNCTION GetFindOptions:TFindOptions;
PROCEDURE SetFindOptions(Value:TFindOptions);
FUNCTION GetFindOrigin:TFindOrigin;
PROCEDURE SetFindOrigin(Value:TFindOrigin);
FUNCTION GetFindScope:TFindScope;
PROCEDURE SetFindScope(Value:TFindScope);
FUNCTION GetFindDirection:TFindDirection;
PROCEDURE SetFindDirection(Value:TFindDirection);
FUNCTION GetFindText:STRING;
PROCEDURE SetFindText(CONST Value:STRING);
PROCEDURE SetFindTextExtend(CONST Value:STRING);
PROCEDURE SetFindHistory(CONST Strings:TStringList);
PROTECTED
PROCEDURE SetupComponent;OVERRIDE;
PROCEDURE SetupShow;OVERRIDE;
PUBLIC
PROPERTY FindHistory:TStringList write SetFindHistory;
PUBLISHED
PROPERTY Options:TFindOptions read GetFindOptions write SetFindOptions;
PROPERTY Origin:TFindOrigin read GetFindOrigin write SetFindOrigin;
PROPERTY Scope:TFindScope read GetFindScope write SetFindScope;
PROPERTY Direction:TFindDirection read GetFindDirection write SetFindDirection;
PROPERTY FindText:STRING read GetFindText write SetFindText;
PROPERTY FindTextExtend:STRING read FFindTextExt write SetFindTextExtend;
END;
TReplaceDialog=CLASS(TFindDialog)
PRIVATE
CoB_Replace:TComboBox;
ChB_Confirm:TCheckBox;
FUNCTION GetConfirm:BOOLEAN;
PROCEDURE SetConfirm(Value:BOOLEAN);
FUNCTION GetReplaceText:STRING;
PROCEDURE SetReplaceText(CONST Value:STRING);
PROCEDURE SetReplaceHistory(CONST Strings:TStringList);
PROTECTED
PROCEDURE SetupComponent;OVERRIDE;
PUBLIC
PROPERTY ReplaceHistory:TStringList write SetReplaceHistory;
PUBLISHED
PROPERTY Confirm:BOOLEAN read GetConfirm write SetConfirm;
PROPERTY ReplaceText:STRING read GetReplaceText write SetReplaceText;
END;
TColorDialog=CLASS(TDialog)
PRIVATE
FSelColor:TColor;
FRedScroll,FGreenScroll,FBlueScroll:TScrollBar;
FColorArea:TPanel;
FOkBtn:TBitBtn;
FDefaultCombo:TComboBox;
PROCEDURE SetSelColor(Value:TColor);
PROCEDURE EvSelectComboItem(Sender:TObject;Index:LONGINT);
PROTECTED
PROCEDURE SetupComponent;OVERRIDE;
PROCEDURE SetupShow;OVERRIDE;
PROCEDURE Scroll(ScrollBar:TScrollBar;ScrollCode:TScrollCode;VAR ScrollPos:LONGINT);OVERRIDE;
PROCEDURE UpdateColorArea;
PUBLIC
PROPERTY RGBColor:TColor read FSelColor write SetSelColor;
END;
TFontDialog=CLASS(TDialog)
PRIVATE
FNameCombo:TComboBox;
FSizeCombo:TComboBox;
FExampleText:TButton;
FItalicCheck:TCheckBox;
FBoldCheck:TCheckBox;
FOutlineCheck:TCheckBox;
FUnderscoreCheck:TCheckBox;
FStrikeOutCheck:TCheckBox;
FOkBtn:TBitBtn;
FUNCTION GetFontName:STRING;
PROCEDURE SetFontName(Value:STRING);
FUNCTION GetFaceName:STRING;
PROCEDURE SetFaceName(Value:STRING);
FUNCTION GetPointSize:LONGINT;
PROCEDURE SetPointSize(Value:LONGINT);
PROCEDURE SetTheFont;
PROCEDURE InsertSizes(VAR TheFont:TFont);
PROCEDURE EvComboSelect(Sender:TObject;Index:LONGINT);
PROCEDURE EvComboSizeSelect(Sender:TObject;Index:LONGINT);
FUNCTION GetEditFont:TFont;
PROCEDURE SetEditFont(NewFont:TFont);
FUNCTION GetAttributes:TFontAttributes;
PROCEDURE SetAttributes(NewValue:TFontAttributes);
PROCEDURE StyleChanged(Sender:TObject);
PROTECTED
PROCEDURE SetupComponent;OVERRIDE;
PROCEDURE SetupShow;OVERRIDE;
PUBLIC
PROPERTY FaceName:STRING read GetFaceName write SetFaceName;
PROPERTY PointSize:LONGINT read GetPointSize write SetPointSize;
PUBLISHED
PROPERTY FontName:STRING read GetFontName write SetFontName;
PROPERTY EditFont:TFont read GetEditFont write SetEditFont;
PROPERTY Attributes:TFontAttributes read GetAttributes write SetAttributes;
END;
TMessageBox=CLASS(TDialog)
PRIVATE
FMsg:STRING;
FHelpCtx:THelpContext;
FButtons:TMsgDlgButtons;
FType:TMsgDlgType;
PROTECTED
PROCEDURE SetupShow;OVERRIDE;
PROCEDURE SetupComponent;OVERRIDE;
PUBLISHED
PROPERTY Message:STRING read FMsg write FMsg;
PROPERTY Buttons:TMsgDlgButtons read FButtons write FButtons;
PROPERTY DlgType:TMsgDlgType read FType write FType;
PROPERTY HelpCtx:THelpContext read FHelpCtx write FHelpCtx;
END;
FUNCTION MessageBox(CONST Msg:STRING;Typ:TMsgDlgType;Buttons:TMsgDlgButtons):TMsgDlgReturn;
FUNCTION ErrorBox(CONST Msg:STRING):TMsgDlgReturn;
FUNCTION CreateMessageDialog(CONST Msg:STRING;DlgType:TMsgDlgType;DlgButtons:TMsgDlgButtons):TForm;
FUNCTION MessageDlg(CONST Msg:STRING;DlgType:TMsgDlgType;DlgButtons:TMsgDlgButtons;HelpCtx:THelpContext):TMsgDlgReturn;
FUNCTION MessageDlgPos(CONST Msg:STRING;DlgType: TMsgDlgType;DlgButtons:TMsgDlgButtons;HelpCtx:THelpContext;
X,Y:LONGINT):TMsgDlgReturn;
PROCEDURE ShowMessage(CONST Msg:STRING);
PROCEDURE ShowMessagePos(CONST Msg:STRING;X,Y:LONGINT);
FUNCTION InputBox(CONST ACaption,APrompt,ADefault:STRING):STRING;
FUNCTION InputQuery(CONST ACaption,APrompt:STRING;VAR Value:STRING):BOOLEAN;
IMPLEMENTATION