GpStructuredStorage file    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~sqli.vtd  sqliForm.vtdsqliFormName.vtd. sqliStep.vtdFsqliStepFile.vtd 8sqliStepStr.vtd 6sqliStepStrEvent.vtd sqliVar.vtd sqliVer.vtdsqliReports.vtdacKeyacNamed acIsDebugacType acVarInINI acAutoStart acAutoClose acEndMessageacLocalization2acFormNameAuthoracActive anVersion acLogType acInstCoded anUserChg anUserIns adTimeChg adTimeIns acNoteacCompiledScriptDEMO009Task dialog demoFAFFFTRT0nVB䃋B acKey acFormName2 acDocType acObjectName2acType acKeyShortCut2acTabSheetName2 anUserChg anUserIns adTimeChg adTimeIns acFormType acFormName2acName2acKeyanNoacViewacSetOfacDescracReportacFileCreateTableanFileDelimiter acFileNameacFileTableName acFileDest acFileType acFileTypeXML acShowIfEmptyacTitleButtons anTitleLinesanBeginFromRecord anUserChg anUserIns adTimeChg adTimeIns acCharSet2 acStyleSheet acUnitName2 acNewThreadacDFMacPAS acSQLExport2acSQLExpacNoteDEMO009GPFAENFSVBLGB windows-1250 AresProjectF-Program AresProject; uses sysutils, classes, forms, dialogs; //simple dialog procedure SimpleDialog; var TaskDialog1 : TdlTaskDialog; begin TaskDialog1 := TdlTaskDialog.Create(nil); try TaskDialog1.Title := 'Simple Vista TaskDialog'; TaskDialog1.Instruction := 'Starting to explore the new TaskDialog here'; TaskDialog1.Content := 'A simple text only TaskDialog'; TaskDialog1.CommonButtons := [cbOK]; TaskDialog1.Execute; finally TaskDialog1.Free; end; end; //Dialog with custom buttons procedure DialogWithCustomButtons; var TaskDialog1 : TdlTaskDialog; begin TaskDialog1 := TdlTaskDialog.Create(nil); try TaskDialog1.Title := 'TaskDialog with custom buttons'; TaskDialog1.Icon := tiQuestion; TaskDialog1.CustomButtons.Clear; TaskDialog1.CustomButtons.Add('Save'); TaskDialog1.CustomButtons.Add('Don''t Save'); TaskDialog1.DefaultButton := 101; TaskDialog1.Instruction := 'Save file to disk ?'; TaskDialog1.Content := 'If you do not save changes, these will be lost'; ShowMessage(inttostr(TaskDialog1.Execute)); finally TaskDialog1.Free; end; end; //Dialog with CommandButtons procedure DialogWithCommandButtons; var TaskDialog1 : TdlTaskDialog; begin TaskDialog1 := TdlTaskDialog.Create(nil); try TaskDialog1.Title := 'TaskDialog with command buttons'; TaskDialog1.Icon := tiWarning; TaskDialog1.CustomButtons.Clear; TaskDialog1.CustomButtons.Add('Exit application without saving'); TaskDialog1.CustomButtons.Add('Exit application with saving'); TaskDialog1.DefaultButton := 100; TaskDialog1.Options := [doCommandLinks]; TaskDialog1.Execute; finally TaskDialog1.Free; end; end; //TaskDialog with expandable region, footer text and hyperlink procedure DialogWithExpandableRegion; var TaskDialog1 : TdlTaskDialog; begin TaskDialog1 := TdlTaskDialog.Create(nil); try TaskDialog1.Options := [doHyperlinks]; TaskDialog1.Title := 'TaskDialog with expandable text & footer with hyperlink'; TaskDialog1.Instruction := 'Do you like the Windows Vista TaskDialog?'; TaskDialog1.Icon := tiQuestion; TaskDialog1.Content := 'The new TaskDialog provides a standard & enhanced way for interacting with the user'; TaskDialog1.ExpandedText := 'Many new options make the TaskDialog very different from the old Windows MessageBox'; TaskDialog1.ExpandControlText := 'Click to hide'; TaskDialog1.CollapsControlText := 'Click to see more'; TaskDialog1.Footer := 'Brought to Ares by Datalab'; TaskDialog1.FooterIcon := tfiWarning; TaskDialog1.Execute; finally TaskDialog1.Free; end; end; //TaskDialog with RadioButtons and Verify checkbox procedure DialogWithRadioButtons; var TaskDialog1 : TdlTaskDialog; r: integer; begin TaskDialog1 := TdlTaskDialog.Create(nil); try TaskDialog1.Title := 'TaskDialog with radiobutton & verification text'; TaskDialog1.RadioButtons.Clear; TaskDialog1.RadioButtons.Add('Store settings in registry'); TaskDialog1.RadioButtons.Add('Store settings in XML file'); TaskDialog1.VerificationText := 'Do not ask for this setting next time'; TaskDialog1.Instruction := 'Saving application settings'; TaskDialog1.Execute; r := TaskDialog1.RadioButtonResult; case r of 200: ShowMessage('Store in registry'); 201: ShowMessage('Store in XML'); end; if TaskDialog1.VerifyResult then ShowMessage('Do not ask for this setting next time'); finally TaskDialog1.Free; end; end; begin //SimpleDialog; //DialogWithCustomButtons; //DialogWithCommandButtons; //DialogWithExpandableRegion; DialogWithRadioButtons; end. acKeyanNoanSeqNoacHField2acHType anHLengthanHDecacPField2acPTypeanPLegthanPDec acPFormat acPSeparator anUserChg anUserIns adTimeChg adTimeIns acKeyanNoanSeqNo acFieldName2 anFieldSize acFieldTitleacFieldReadOnly acEditType acFieldConst anUserChg anUserIns adTimeIns adTimeChg acFieldFormatacFieldDefault acKeyanNo acDataEventacDataReturnValue acKeyAndNo anUserChg anUserIns adTimeChg adTimeIns acKey acWhereKeyanNo acFieldName acParamVar acFieldType acFieldREQacFieldCaption2 acDefaultExpacDefaultValue acLookUpSQL acOperator acVarHint2 acAddApostrof anUserChg anUserIns adTimeChg adTimeIns acPrtCrit ACKEY ANVERSIONANNOACSQLEXPACNOTE ADTIMECHG ANUSERCHG ADTIMEINS ANUSERINSacReportacLangIdacLocalization2 acFormNamedacNamedacDefaultPrinter acPreviewanMaxPrStLevelacSubstituteSignacPrintIfEmpty acPrintToText anNoOfCopy acOrderBy acRegUserCodeacActive acKeyShortCut2 anUserIns adTimeIns anUserChg adTimeChg acText1acText2acText3acNote acReportData