├── Blaise ├── Blaise.dpr ├── IDE.pas └── Session.pas ├── BlockSocket.pas ├── CGIGateway.dpr ├── Draw2DWrapper ├── Draw2DFixes.txt └── Draw2DToPascal.dpr ├── ExtJSWrapper ├── Ext.pas ├── ExtFixes.txt ├── ExtToPascal.cfg ├── ExtToPascal.dpr ├── ExtToPascal.dproj └── ExtToPascal.dsk ├── ExtP_Toolkit ├── COPYING.LGPL ├── COPYING.modifiedLGPL ├── ExtPToolkitStatus.html ├── changelog.txt ├── extp_ctrls │ ├── extp_ctrls.cfg │ ├── extp_ctrls.dpk │ ├── extp_ctrls.dsk │ ├── extp_ctrls.identcache │ ├── extp_ctrls.lpk │ ├── extp_ctrls.pas │ ├── extp_design_ctrls.pas │ ├── extp_glyphs.lrs │ └── extp_glyphs.res ├── extp_grid │ ├── extp_design_grid.pas │ ├── extp_grid.cfg │ ├── extp_grid.dpk │ ├── extp_grid.lpk │ ├── extp_grid.pas │ ├── extp_grid_glyphs.lrs │ └── extp_grid_glyphs.res ├── extp_proj │ ├── extp_proj.lpk │ ├── extp_proj.pas │ └── extp_proj_intf.pas ├── fishfacts_example │ ├── appthread.pas │ ├── extpascal.cfg │ ├── fishfacts.cfg │ ├── fishfacts.dpr │ ├── fishfacts.lpi │ ├── fishfacts.lpr │ ├── fishfacts_data │ │ ├── Atlantic Spadefish.png │ │ ├── Bat Ray.png │ │ ├── Blue Angelfish.png │ │ ├── Bluehead Wrasse.png │ │ ├── Cabezon.png │ │ ├── California Moray.png │ │ ├── Clown Triggerfish.png │ │ ├── Dog Snapper.png │ │ ├── Firefish.png │ │ ├── French Grunt.png │ │ ├── Giant Maori Wrasse.png │ │ ├── Great Barracuda.png │ │ ├── Lingcod.png │ │ ├── Lunartail Rockcod.png │ │ ├── Nassau Grouper.png │ │ ├── Nurse Shark.png │ │ ├── Ornate Butterflyfish.png │ │ ├── Red Emperor.png │ │ ├── Redband Parrotfish.png │ │ ├── Redtail Surfperch.png │ │ ├── Rock Greenling.png │ │ ├── Senorita.png │ │ ├── Spotted Eagle Ray.png │ │ ├── Surf Smelt.png │ │ ├── Swell Shark.png │ │ ├── White Sea Bass.png │ │ ├── Yellow Jack.png │ │ ├── Yellowtail Snapper.png │ │ └── biolife.xml │ ├── fixbiolife.pas │ ├── mainform.inc │ ├── mainform.lfm │ ├── mainform.lrs │ └── mainform.pas ├── fmtoextp │ ├── fm2base.pas │ ├── fm2extp.pas │ ├── fmtoextp.cfg │ ├── fmtoextp.dpr │ ├── fmtoextp.ini │ └── fmtoextp.lpi ├── grid_example │ ├── appthread.pas │ ├── extpascal.cfg │ ├── gridunit.inc │ ├── gridunit.lfm │ ├── gridunit.lrs │ ├── gridunit.pas │ ├── mygrid1.lpi │ └── mygrid1.lpr ├── gui_converter │ ├── CustCfgEdit.dfm │ ├── CustCfgEdit.lfm │ ├── CustCfgEdit.pas │ ├── FormsToExtPascal.cfg │ ├── FormsToExtPascal.dof │ ├── FormsToExtPascal.dpr │ ├── FormsToExtPascal.lpi │ ├── MainFrm.dfm │ ├── MainFrm.lfm │ └── MainFrm.pas ├── hello_example │ ├── aboutunit.inc │ ├── aboutunit.lfm │ ├── aboutunit.lrs │ ├── aboutunit.pas │ ├── appthread.pas │ ├── delphi-compile.bat │ ├── extpascal.cfg │ ├── fpc-compile.bat │ ├── fpc-compile.sh │ ├── mainunit.inc │ ├── mainunit.lfm │ ├── mainunit.lrs │ ├── mainunit.pas │ ├── myproject1.dpr │ ├── myproject1.lpi │ └── myproject1.lpr └── multiselect_example │ ├── appthread.pas │ ├── extpascal.cfg │ ├── project1.lpi │ ├── project1.lpr │ ├── unit1.inc │ ├── unit1.lfm │ ├── unit1.lrs │ └── unit1.pas ├── ExtPascal.dox-express ├── ExtPascal.pas ├── ExtPascalClasses.pas ├── ExtPascalSamples ├── AdvancedTabs.pas ├── ArrayGrid.pas ├── BasicTabPanel.pas ├── BorderLayout.pas ├── EditableGrid.pas ├── ExtPascalSamples.dpr ├── ExtPascalSamples.ini ├── ExtPascalSamples.lpi ├── ExtPascalSamples_embedded.lpi ├── FileUpload.pas ├── LayoutWindow.pas ├── MessageBoxes.pas ├── Session.pas ├── SimpleLogin.pas └── UAC.res ├── ExtPascalUML ├── Designer.pas ├── ExtPascalUML.EAP ├── ExtPascalUML.dat ├── ExtPascalUML.dpr ├── ExtPascalUML.ini ├── ExtPascalUMLModel.pas ├── PipesDelphi.inc ├── PipesDelphi.pas ├── ProcessDelphi.inc ├── ProcessDelphi.pas ├── epCommon.pas ├── epDesignerServer.pas ├── epDirectives.inc ├── epGDB.pas ├── epGenerator.pas ├── epImporter.pas ├── epModel.pas ├── epObjectList.pas ├── epPrevalence.pas ├── epProperties.pas ├── epScheduler.pas ├── epServer.pas ├── epStateMachine.pas ├── epSupportGDB.pas ├── epThread.pas ├── epUtils.pas ├── epWorkFlow.pas ├── images │ ├── abstract.png │ ├── abstract1.png │ ├── add.png │ ├── addfavourite.png │ ├── advance.png │ ├── back.png │ ├── cancel.png │ ├── commit.png │ ├── delete.png │ ├── edit.png │ ├── execute.png │ ├── exit.png │ ├── filter.png │ ├── find.png │ ├── first.png │ ├── format.png │ ├── gotofavourite.png │ ├── help.png │ ├── info.png │ ├── last.png │ ├── logofreepascal.jpg │ ├── logoturbodelphi.jpg │ ├── next.png │ ├── nextpage.png │ ├── objects.png │ ├── objects1.png │ ├── package.png │ ├── pitbrowser.jpg │ ├── pitinnu.html │ ├── pitinnu.ico │ ├── pitinnu.png │ ├── pitinnu16.ico │ ├── pitinnu24.png │ ├── pitinnu32.png │ ├── pitinnu_install.jpg │ ├── previous.png │ ├── prevpage.png │ ├── print.png │ ├── refresh.png │ ├── task.png │ └── upclass.png └── ux │ ├── Ext.ux.form.LovCombo-debug.css │ ├── Ext.ux.form.LovCombo-debug.js │ ├── Ext.ux.form.LovCombo.css │ ├── Ext.ux.form.LovCombo.js │ ├── Ext.ux.grid.RecordForm-debug.css │ ├── Ext.ux.grid.RecordForm-debug.js │ ├── Ext.ux.grid.RecordForm.css │ └── Ext.ux.grid.RecordForm.js ├── ExtPascalUtils.pas ├── FCGIApp.pas ├── IdExtHTTPServer.pas ├── Readme.txt ├── Services.pas ├── Services.res ├── SocketsDelphi.pas ├── UAC.res ├── WinSockDelphi.pas ├── cgigateway.lpi ├── codepress ├── Ext.ux.CodePress-debug.js ├── Ext.ux.CodePress.js ├── codepress-debug.js ├── codepress.css ├── codepress.html ├── codepress.js ├── engines │ ├── gecko.js │ ├── khtml.js │ ├── msie.js │ └── opera.js ├── images │ └── line-numbers.png ├── index.html ├── languages │ ├── asp.css │ ├── asp.js │ ├── autoit.css │ ├── autoit.js │ ├── csharp.css │ ├── csharp.js │ ├── css.css │ ├── css.js │ ├── generic.css │ ├── generic.js │ ├── html.css │ ├── html.js │ ├── java.css │ ├── java.js │ ├── javascript.css │ ├── javascript.js │ ├── pascal.css │ ├── pascal.js │ ├── perl.css │ ├── perl.js │ ├── php.css │ ├── php.js │ ├── ruby.css │ ├── ruby.js │ ├── sql.css │ ├── sql.js │ ├── text.css │ ├── text.js │ ├── vbscript.css │ ├── vbscript.js │ ├── xsl.css │ └── xsl.js └── license.txt ├── docs ├── Configuração do Ambiente ExtPascal.doc ├── ExtPascal-Advanced-Configuration-eng-v6.pdf └── XDAPrevalenceEnglish.ppt ├── fcgiapp_pkg.lpk ├── fcgiapp_pkg.pas └── images ├── CGIGateway.png ├── ExtPascal.gif ├── ExtPascal.ico ├── ExtPascal.png ├── ExtPascal.ppt ├── ExtPascalLogo.ico ├── ExtPascalLogo.png ├── ExtPascalLogo.ppt ├── WebServerEmbedded.png ├── cgigateway.gif ├── filedownload.png ├── fileupload.png └── login.png /Blaise/Blaise.dpr: -------------------------------------------------------------------------------- 1 | {$A1,B-,C-,D+,E-,F-,G+,H+,I+,J+,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V-,W-,X+,Y+,Z1} 2 | program Blaise; 3 | 4 | {$IF Defined(MSWINDOWS) and not Defined(WebServer)} 5 | {$DEFINE DEFAULT} 6 | {$IFEND} 7 | 8 | uses 9 | {$IFNDEF WebServer}FCGIApp,{$ELSE}IdExtHTTPServer,{$ENDIF} 10 | {$IFDEF DEFAULT}Services,{$ENDIF} 11 | SysUtils, Classes, Session; 12 | 13 | {$IFDEF DEFAULT} 14 | {$R UAC.res} // For Windows Vista services 15 | type 16 | TServiceThread = class(TThread) 17 | procedure Execute; override; 18 | end; 19 | 20 | procedure TServiceThread.Execute; begin 21 | Application.Run(Self) 22 | end; 23 | {$ENDIF} 24 | 25 | begin 26 | {$IFDEF DEFAULT} 27 | Service := TService.Create(ServerName); 28 | with Service do try 29 | if Install then 30 | writeln('Service installed') 31 | else if Uninstall then 32 | writeln('Service uninstalled') 33 | else begin 34 | Application := CreateWebApplication(ServerName, TSession); 35 | Application.Icon := 'ExtPascal.ico'; 36 | if Exists then 37 | Run([TServiceThread.Create(true)]) 38 | else 39 | Application.Run; 40 | end; 41 | except 42 | on E : Exception do ReportEventLog(EventError, 1, E.Message); 43 | end; 44 | {$ELSE} 45 | Application := CreateWebApplication(ServerName, TSession); 46 | Application.Icon := 'ExtPascal.ico'; 47 | Application.Run; 48 | {$ENDIF} 49 | end. 50 | -------------------------------------------------------------------------------- /Blaise/Session.pas: -------------------------------------------------------------------------------- 1 | unit Session; 2 | 3 | interface 4 | { 5 | AmyEditor 6 | 7 | 1. Folding 8 | 2. Bookmark 9 | 3. LastChanges 10 | 4. Split views 11 | 5. Word Completion 12 | 6. Themes 13 | 7. Indentation 14 | 8. Collaboration 15 | 9. Templates 16 | 10. Bundles 17 | } 18 | uses 19 | ExtPascal, IDE; 20 | 21 | const 22 | ServerName = 'Blaise 2010'; 23 | Build = ' - Server on ' + {$IFNDEF FPC}'Windows - i386 - compiled by Delphi'{$ELSE} 24 | {$I %FPCTARGETOS%} + ' - ' + {$I %FPCTARGETCPU%} + ' - compiled by FreePascal ' + {$I %FPCVersion%} + '(' + {$I %FPCDATE%} + ')' {$ENDIF}; 25 | 26 | type 27 | TSession = class(TExtThread) 28 | private 29 | IDE : TIDE; 30 | published 31 | procedure Home; override; 32 | end; 33 | 34 | function SelfSession : TSession; 35 | 36 | implementation 37 | 38 | uses 39 | {$IFNDEF WebServer}FCGIApp;{$ELSE}IdExtHTTPServer;{$ENDIF} 40 | 41 | function SelfSession : TSession; begin 42 | Result := TSession(CurrentWebSession); 43 | end; 44 | 45 | procedure TSession.Home; begin 46 | SetLibrary('/codepress/Ext.ux.CodePress'); 47 | Theme := 'gray'; 48 | if IDE = nil then 49 | IDE := TIDE.Create 50 | else 51 | IDE.Create; 52 | IDE.Show; 53 | end; 54 | 55 | end. 56 | -------------------------------------------------------------------------------- /Draw2DWrapper/Draw2DFixes.txt: -------------------------------------------------------------------------------- 1 | * For Draw2D and later 2 | * USED FORMATS in ExtFixes3.txt 3 | * 4 | * Adding and updating properties: 5 | ,,,,, 6 | * 7 | * Changing a property type to enumeration 8 | ,,<(enumerated list)> 9 | * 10 | * Adding and updating methods: 11 | ,,,, 12 | * 13 | * For each method parameter: 14 | ,, 15 | * 16 | * Adding and updating events: 17 | ,,Event 18 | * 19 | * For each event parameter: 20 | , 21 | * 22 | * Adding new classes: 23 | ,,, 24 | * 25 | Workflow, scrollArea, ExtObject, false, false, 26 | 27 | -------------------------------------------------------------------------------- /ExtJSWrapper/ExtFixes.txt: -------------------------------------------------------------------------------- 1 | * For Ext JS 4.0 and later 2 | * USED FORMATS in ExtFixes.txt 3 | * 4 | * Adding new classes: 5 | ,,, 6 | * 7 | * Adding and updating properties: 8 | ,,,,, 9 | * 10 | * Changing a property type to enumeration 11 | ,,<(enumerated list)> 12 | * 13 | * Changing a type to enumeration 14 | ,<(enumerated list)> 15 | * 16 | * Aliasing a type 17 | , 18 | * 19 | * Adding and updating methods: 20 | ,,,, 21 | * 22 | * For each method parameter: 23 | ,, 24 | * 25 | * Adding and updating events: 26 | ,,Event 27 | * 28 | * For each event parameter: 29 | , 30 | * 31 | ExtComponent, split, Boolean, false, true, 32 | ExtComponent, margins, string, false, true, 33 | ExtComponent, minSize, Integer, false, true, 34 | ExtComponent, maxSize, Integer, false, true, 35 | ExtComponent, anchor, string, false, true, 36 | ExtDataRecord, TExtDataModel 37 | ExtDataModel, Create,, true, false, Data, ExtObjectList, false 38 | 39 | ExtEnumsLayout, (laAbsolute, laAccordion, laAnchor, laAutocomponent, laAutocontainer, laBorder, laBox, laCard, laCheckboxgroup, laColumn, laContainer, laFit, laForm, laHbox, laTable, laVbox) 40 | ExtEnumsWidget, String 41 | ExtFormFieldBase, inputType, (inText, inButton, inCheckbox, inColor, inDate, inDatetime, inEmail, inFile, inHidden, inImage, inMonth, inNumber, inPassword, inRadio, inRange, inReset, inSearch, inSubmit, inTel, inTime, inUrl, inWeek) 42 | 43 | ExtMessageBox, ExtWindowMessageBox, singleton, Ext.MessageBox 44 | 45 | ExtMessageBoxSingleton, ERROR, string, true, false, 'ext-mb-error' 46 | ExtMessageBoxSingleton, INFO, string, true, false, 'ext-mb-info' 47 | ExtMessageBoxSingleton, QUESTION, string, true, false, 'ext-mb-question' 48 | ExtMessageBoxSingleton, WARNING, string, true, false, 'ext-mb-warning' 49 | ExtMessageBoxSingleton, OK, Integer, true, false, 1 50 | ExtMessageBoxSingleton, YES, Integer, true, false, 2 51 | ExtMessageBoxSingleton, NO, Integer, true, false, 4 52 | ExtMessageBoxSingleton, CANCEL, Integer, true, false, 8 53 | ExtMessageBoxSingleton, OKCANCEL, Integer, true, false, 9 54 | ExtMessageBoxSingleton, YESNO, Integer, true, false, 6 55 | ExtMessageBoxSingleton, YESNOCANCEL, Integer, true, false, 14 56 | 57 | ExtShowConfig, waitConfig, ExtWaitConfig, false, true, 58 | 59 | ExtGridColumn, align, (alLeft, alRight, alCenter) 60 | ExtPanel, buttonAlign, (buRight, buLeft, buCenter) 61 | ExtFormLabelable, labelAlign, (laLeft, laTop, laRight) 62 | 63 | -------------------------------------------------------------------------------- /ExtJSWrapper/ExtToPascal.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"C:\Users\Public\Documents\RAD Studio\5.0\Bpl" 35 | -LN"C:\Users\Public\Documents\RAD Studio\5.0\Dcp" 36 | -------------------------------------------------------------------------------- /ExtP_Toolkit/COPYING.modifiedLGPL: -------------------------------------------------------------------------------- 1 | These files are distributed under the Library GNU General Public License 2 | (see the file COPYING.LPGL) with the following modification: 3 | 4 | As a special exception, the copyright holders of this library give you 5 | permission to link this library with independent modules to produce an 6 | executable, regardless of the license terms of these independent modules, 7 | and to copy and distribute the resulting executable under terms of your choice, 8 | provided that you also meet, for each linked independent module, the terms 9 | and conditions of the license of that module. An independent module is a 10 | module which is not derived from or based on this library. If you modify this 11 | library, you may extend this exception to your version of the library, but 12 | you are not obligated to do so. If you do not wish to do so, delete this 13 | exception statement from your version. 14 | 15 | If you didn't receive a copy of the file COPYING.LGPL, contact: 16 | Free Software Foundation, Inc., 17 | 675 Mass Ave 18 | Cambridge, MA 02139 19 | USA 20 | -------------------------------------------------------------------------------- /ExtP_Toolkit/extp_ctrls/extp_ctrls.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J+ 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$Y- 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"C:\Documents and Settings\pjhess\My Documents\Borland Studio Projects\Bpl" 35 | -LN"C:\Documents and Settings\pjhess\My Documents\Borland Studio Projects\Bpl" 36 | -w-UNSAFE_TYPE 37 | -w-UNSAFE_CODE 38 | -w-UNSAFE_CAST 39 | -------------------------------------------------------------------------------- /ExtP_Toolkit/extp_ctrls/extp_ctrls.dpk: -------------------------------------------------------------------------------- 1 | package ExtP_Ctrls; 2 | 3 | {$R extp_glyphs.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS ON} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO ON} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS ON} 11 | {$LOCALSYMBOLS ON} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS OFF} 17 | {$REFERENCEINFO OFF} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST ON} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESCRIPTION 'ExtPascal Basic Design Controls'} 26 | {$DESIGNONLY} 27 | {$IMPLICITBUILD ON} 28 | 29 | requires 30 | Vcl, 31 | DesignIde; 32 | 33 | contains 34 | ExtP_Design_Ctrls in 'extp_design_ctrls.pas'; 35 | 36 | end. 37 | 38 | -------------------------------------------------------------------------------- /ExtP_Toolkit/extp_ctrls/extp_ctrls.identcache: -------------------------------------------------------------------------------- 1 | CC:\Trabalho\ExtPascal\ExtP Toolkit\extp_ctrls\extp_design_ctrls.pas -------------------------------------------------------------------------------- /ExtP_Toolkit/extp_ctrls/extp_ctrls.lpk: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | -------------------------------------------------------------------------------- /ExtP_Toolkit/extp_ctrls/extp_ctrls.pas: -------------------------------------------------------------------------------- 1 | { This file was automatically created by Lazarus. do not edit! 2 | This source is only used to compile and install the package. 3 | } 4 | 5 | unit ExtP_Ctrls; 6 | 7 | interface 8 | 9 | uses 10 | ExtP_Design_Ctrls, LazarusPackageIntf; 11 | 12 | implementation 13 | 14 | procedure Register; 15 | begin 16 | RegisterUnit('ExtP_Design_Ctrls', @ExtP_Design_Ctrls.Register); 17 | end; 18 | 19 | initialization 20 | RegisterPackage('ExtP_Ctrls', @Register); 21 | end. 22 | -------------------------------------------------------------------------------- /ExtP_Toolkit/extp_ctrls/extp_glyphs.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/extp_ctrls/extp_glyphs.res -------------------------------------------------------------------------------- /ExtP_Toolkit/extp_grid/extp_grid.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J+ 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$Y- 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"C:\Documents and Settings\pjhess\My Documents\Borland Studio Projects\Bpl" 35 | -LN"C:\Documents and Settings\pjhess\My Documents\Borland Studio Projects\Bpl" 36 | -w-UNSAFE_TYPE 37 | -w-UNSAFE_CODE 38 | -w-UNSAFE_CAST 39 | -------------------------------------------------------------------------------- /ExtP_Toolkit/extp_grid/extp_grid.dpk: -------------------------------------------------------------------------------- 1 | package ExtP_Grid; 2 | 3 | {$R extp_grid_glyphs.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS ON} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO ON} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS ON} 11 | {$LOCALSYMBOLS ON} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS OFF} 17 | {$REFERENCEINFO OFF} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST ON} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESCRIPTION 'ExtPascal Grid Design Controls'} 26 | {$DESIGNONLY} 27 | {$IMPLICITBUILD ON} 28 | 29 | requires 30 | Vcl, 31 | //Change or add as needed to use the compiled package (.dcp) for your version of Orpheus and Delphi. 32 | {$IFDEF VER150} //Delphi 7 33 | O407_d70, 34 | {$ENDIF} 35 | {$IFDEF VER180} //Delphi 2006 36 | O407_d100, 37 | {$ENDIF} 38 | DesignIde; 39 | 40 | contains 41 | ExtP_Design_Grid in 'extp_design_grid.pas'; 42 | 43 | end. 44 | 45 | -------------------------------------------------------------------------------- /ExtP_Toolkit/extp_grid/extp_grid.lpk: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | -------------------------------------------------------------------------------- /ExtP_Toolkit/extp_grid/extp_grid.pas: -------------------------------------------------------------------------------- 1 | { This file was automatically created by Lazarus. do not edit! 2 | This source is only used to compile and install the package. 3 | } 4 | 5 | unit ExtP_Grid; 6 | 7 | interface 8 | 9 | uses 10 | ExtP_Design_Grid, LazarusPackageIntf; 11 | 12 | implementation 13 | 14 | procedure Register; 15 | begin 16 | RegisterUnit('ExtP_Design_Grid', @ExtP_Design_Grid.Register); 17 | end; 18 | 19 | initialization 20 | RegisterPackage('ExtP_Grid', @Register); 21 | end. 22 | -------------------------------------------------------------------------------- /ExtP_Toolkit/extp_grid/extp_grid_glyphs.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/extp_grid/extp_grid_glyphs.res -------------------------------------------------------------------------------- /ExtP_Toolkit/extp_proj/extp_proj.lpk: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | -------------------------------------------------------------------------------- /ExtP_Toolkit/extp_proj/extp_proj.pas: -------------------------------------------------------------------------------- 1 | { This file was automatically created by Lazarus. do not edit! 2 | This source is only used to compile and install the package. 3 | } 4 | 5 | unit ExtP_Proj; 6 | 7 | interface 8 | 9 | uses 10 | ExtP_Proj_Intf, LazarusPackageIntf; 11 | 12 | implementation 13 | 14 | procedure Register; 15 | begin 16 | RegisterUnit('ExtP_Proj_Intf', @ExtP_Proj_Intf.Register); 17 | end; 18 | 19 | initialization 20 | RegisterPackage('ExtP_Proj', @Register); 21 | end. 22 | -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/appthread.pas: -------------------------------------------------------------------------------- 1 | unit AppThread; 2 | 3 | interface 4 | 5 | uses 6 | ExtPascal, 7 | mainform; 8 | 9 | type 10 | TAppThread = class(TExtThread) 11 | public 12 | EditWindow : TEditWindow; 13 | published 14 | procedure Home; override; 15 | end; 16 | 17 | function CurrentThread : TAppThread; 18 | 19 | implementation 20 | 21 | uses 22 | {$IFNDEF WebServer} 23 | FCGIApp; 24 | {$ELSE} 25 | IdExtHTTPServer; 26 | {$ENDIF} 27 | 28 | function CurrentThread : TAppThread; 29 | begin 30 | Result := TAppThread(CurrentWebSession); 31 | end; 32 | 33 | procedure TAppThread.Home; 34 | begin 35 | EditWindow := TEditWindow.Create; 36 | EditWindow.Show; 37 | end; 38 | 39 | end. 40 | -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/extpascal.cfg: -------------------------------------------------------------------------------- 1 | # Tell FPC to compile with ExtPascal runtime units, rather 2 | # than ExtP_Design_Ctrls unit that Lazarus IDE sees. 3 | -dUseRuntime 4 | 5 | # You can put other FPC switches in this file, although it's 6 | # probably better to put them in the .lpi file. However, don't 7 | # put the above define in the .lpi file or it will confuse 8 | # Lazarus when working with the ExtPascal design controls. 9 | 10 | -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts.cfg: -------------------------------------------------------------------------------- 1 | -$A1 2 | -$B- 3 | -$C- 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I- 10 | -$J+ 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V- 23 | -$W- 24 | -$X+ 25 | -$Y+ 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"C:\Documents and Settings\t88888\Meus documentos\Borland Studio Projects\Bpl" 35 | -LN"C:\Documents and Settings\t88888\Meus documentos\Borland Studio Projects\Bpl" 36 | -U"C:\Trabalho\ExtPascal;C:\Trabalho\ExtPascal\Indy\Core;C:\Trabalho\ExtPascal\Indy\Protocols;C:\Trabalho\ExtPascal\Indy\System" 37 | -O"C:\Trabalho\ExtPascal;C:\Trabalho\ExtPascal\Indy\Core;C:\Trabalho\ExtPascal\Indy\Protocols;C:\Trabalho\ExtPascal\Indy\System" 38 | -I"C:\Trabalho\ExtPascal;C:\Trabalho\ExtPascal\Indy\Core;C:\Trabalho\ExtPascal\Indy\Protocols;C:\Trabalho\ExtPascal\Indy\System" 39 | -R"C:\Trabalho\ExtPascal;C:\Trabalho\ExtPascal\Indy\Core;C:\Trabalho\ExtPascal\Indy\Protocols;C:\Trabalho\ExtPascal\Indy\System" 40 | -DUseRuntime 41 | -w-SYMBOL_DEPRECATED 42 | -w-UNSAFE_TYPE 43 | -w-UNSAFE_CODE 44 | -w-UNSAFE_CAST 45 | -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts.dpr: -------------------------------------------------------------------------------- 1 | program fishfacts; 2 | 3 | uses 4 | {$IFNDEF WebServer}FCGIApp,{$ELSE}IdExtHTTPServer,{$ENDIF} 5 | AppThread, mainform; 6 | 7 | begin 8 | Application := CreateWebApplication('Fish Facts Demo', TAppThread); 9 | Application.Icon := 'ExtPascal.ico'; 10 | Application.Run; 11 | end. 12 | 13 | -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts.lpr: -------------------------------------------------------------------------------- 1 | program fishfacts; 2 | 3 | uses 4 | {$IFNDEF WebServer}FCGIApp,{$ELSE}IdExtHTTPServer,{$ENDIF} 5 | AppThread, mainform; 6 | 7 | begin 8 | Application := CreateWebApplication('Fish Facts Demo', TAppThread); 9 | Application.Icon := 'ExtPascal.ico'; 10 | Application.Run; 11 | end. 12 | 13 | -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Atlantic Spadefish.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Atlantic Spadefish.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Bat Ray.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Bat Ray.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Blue Angelfish.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Blue Angelfish.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Bluehead Wrasse.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Bluehead Wrasse.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Cabezon.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Cabezon.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/California Moray.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/California Moray.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Clown Triggerfish.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Clown Triggerfish.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Dog Snapper.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Dog Snapper.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Firefish.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Firefish.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/French Grunt.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/French Grunt.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Giant Maori Wrasse.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Giant Maori Wrasse.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Great Barracuda.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Great Barracuda.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Lingcod.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Lingcod.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Lunartail Rockcod.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Lunartail Rockcod.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Nassau Grouper.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Nassau Grouper.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Nurse Shark.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Nurse Shark.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Ornate Butterflyfish.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Ornate Butterflyfish.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Red Emperor.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Red Emperor.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Redband Parrotfish.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Redband Parrotfish.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Redtail Surfperch.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Redtail Surfperch.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Rock Greenling.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Rock Greenling.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Senorita.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Senorita.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Spotted Eagle Ray.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Spotted Eagle Ray.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Surf Smelt.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Surf Smelt.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Swell Shark.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Swell Shark.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/White Sea Bass.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/White Sea Bass.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Yellow Jack.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Yellow Jack.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/fishfacts_data/Yellowtail Snapper.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtP_Toolkit/fishfacts_example/fishfacts_data/Yellowtail Snapper.png -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/mainform.inc: -------------------------------------------------------------------------------- 1 | Id := 'EditWindow'; 2 | Height := 554; 3 | Width := 631; 4 | OnEsc := JSFunction(''); 5 | Maximizable := True; 6 | Title := 'Fish Facts'; 7 | Layout := lyAbsolute; 8 | 9 | EditGrid := TExtGridEditorGridPanel.Create; 10 | with EditGrid.AddTo(Items) do 11 | begin 12 | Id := 'EditGrid'; 13 | X := 8; 14 | Height := 318; 15 | Y := 168; 16 | Width := 600; 17 | with TExtGridColumn.AddTo(Columns) do 18 | begin 19 | Id := 'SpeciesNoCol'; 20 | Width := 70; 21 | end; 22 | with TExtGridColumn.AddTo(Columns) do 23 | begin 24 | Id := 'CategoryCol'; 25 | Width := 105; 26 | end; 27 | with TExtGridColumn.AddTo(Columns) do 28 | begin 29 | Id := 'CommonNameCol'; 30 | Width := 210; 31 | end; 32 | with TExtGridColumn.AddTo(Columns) do 33 | begin 34 | Id := 'SpeciesNameCol'; 35 | Width := 280; 36 | end; 37 | with TExtGridColumn.AddTo(Columns) do 38 | begin 39 | Id := 'LengthCmCol'; 40 | Width := 70; 41 | end; 42 | with TExtGridColumn.AddTo(Columns) do 43 | begin 44 | Id := 'LengthInCol'; 45 | Width := 70; 46 | end; 47 | end; 48 | 49 | NotesMemo := TExtFormTextArea.Create; 50 | with NotesMemo.AddTo(Items) do 51 | begin 52 | Id := 'NotesMemo'; 53 | X := 272; 54 | Height := 150; 55 | Y := 8; 56 | Width := 336; 57 | end; 58 | 59 | PictureLabel := TExtFormLabel.Create; 60 | with PictureLabel.AddTo(Items) do 61 | begin 62 | Id := 'PictureLabel'; 63 | X := 8; 64 | Height := 150; 65 | Y := 8; 66 | Width := 250; 67 | end; 68 | with TExtGridColumn(EditGrid.Columns[0]) do 69 | begin 70 | SpeciesNoCol := TExtFormNumberField.Create; 71 | Editor := SpeciesNoCol; 72 | with SpeciesNoCol do 73 | begin 74 | DataIndex := 'Species_No'; 75 | Header := 'Species No'; 76 | end; 77 | end; 78 | with TExtGridColumn(EditGrid.Columns[1]) do 79 | begin 80 | CategoryCol := TExtFormTextField.Create; 81 | Editor := CategoryCol; 82 | with CategoryCol do 83 | begin 84 | DataIndex := 'Category'; 85 | Header := 'Category'; 86 | end; 87 | end; 88 | with TExtGridColumn(EditGrid.Columns[2]) do 89 | begin 90 | CommonNameCol := TExtFormTextField.Create; 91 | Editor := CommonNameCol; 92 | with CommonNameCol do 93 | begin 94 | DataIndex := 'Common_Name'; 95 | Header := 'Common Name'; 96 | end; 97 | end; 98 | with TExtGridColumn(EditGrid.Columns[3]) do 99 | begin 100 | SpeciesNameCol := TExtFormTextField.Create; 101 | Editor := SpeciesNameCol; 102 | with SpeciesNameCol do 103 | begin 104 | DataIndex := 'Species_Name'; 105 | Header := 'Species Name'; 106 | end; 107 | end; 108 | with TExtGridColumn(EditGrid.Columns[4]) do 109 | begin 110 | LengthCmCol := TExtFormNumberField.Create; 111 | Editor := LengthCmCol; 112 | with LengthCmCol do 113 | begin 114 | DataIndex := 'Length_Cm'; 115 | Header := 'Length (cm)'; 116 | end; 117 | end; 118 | with TExtGridColumn(EditGrid.Columns[5]) do 119 | begin 120 | LengthInCol := TExtFormNumberField.Create; 121 | Editor := LengthInCol; 122 | with LengthInCol do 123 | begin 124 | DataIndex := 'Length_In'; 125 | Header := 'Length (in)'; 126 | end; 127 | end; 128 | 129 | -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/mainform.lfm: -------------------------------------------------------------------------------- 1 | object EditWindow: TEditWindow 2 | Left = 290 3 | Height = 520 4 | Top = 176 5 | Width = 623 6 | Maximizable = True 7 | Title = 'Fish Facts' 8 | object EditGrid: TExtGridEditorGridPanel 9 | Left = 8 10 | Height = 318 11 | Top = 168 12 | Width = 600 13 | ColCount = 6 14 | CellData = ( 15 | 'EditWindow.LengthInCol' 16 | 'EditWindow.LengthCmCol' 17 | 'EditWindow.SpeciesNameCol' 18 | 'EditWindow.CommonNameCol' 19 | 'EditWindow.CategoryCol' 20 | 'EditWindow.SpeciesNoCol' 21 | ) 22 | RowData = ( 23 | 30 24 | ) 25 | ColData = ( 26 | 70 27 | False 28 | True 29 | 'EditWindow.SpeciesNoCol' 30 | 105 31 | False 32 | True 33 | 'EditWindow.CategoryCol' 34 | 210 35 | False 36 | True 37 | 'EditWindow.CommonNameCol' 38 | 280 39 | False 40 | True 41 | 'EditWindow.SpeciesNameCol' 42 | 70 43 | False 44 | True 45 | 'EditWindow.LengthCmCol' 46 | 70 47 | False 48 | True 49 | 'EditWindow.LengthInCol' 50 | ) 51 | end 52 | object NotesMemo: TExtFormTextArea 53 | Left = 272 54 | Height = 150 55 | Top = 8 56 | Width = 336 57 | end 58 | object PictureLabel: TExtFormLabel 59 | Left = 8 60 | Height = 150 61 | Top = 8 62 | Width = 250 63 | end 64 | object SpeciesNoCol: TExtFormNumberField_Grid 65 | DataIndex = 'Species_No' 66 | Grid = EditGrid 67 | Header = 'Species No' 68 | left = 32 69 | top = 168 70 | end 71 | object CategoryCol: TExtFormTextField_Grid 72 | DataIndex = 'Category' 73 | Grid = EditGrid 74 | Header = 'Category' 75 | left = 120 76 | top = 168 77 | end 78 | object CommonNameCol: TExtFormTextField_Grid 79 | DataIndex = 'Common_Name' 80 | Grid = EditGrid 81 | Header = 'Common Name' 82 | left = 272 83 | top = 168 84 | end 85 | object SpeciesNameCol: TExtFormTextField_Grid 86 | DataIndex = 'Species_Name' 87 | Grid = EditGrid 88 | Header = 'Species Name' 89 | left = 432 90 | top = 168 91 | end 92 | object LengthCmCol: TExtFormNumberField_Grid 93 | DataIndex = 'Length_Cm' 94 | Grid = EditGrid 95 | Header = 'Length (cm)' 96 | left = 480 97 | top = 168 98 | end 99 | object LengthInCol: TExtFormNumberField_Grid 100 | DataIndex = 'Length_In' 101 | Grid = EditGrid 102 | Header = 'Length (in)' 103 | left = 536 104 | top = 168 105 | end 106 | end 107 | -------------------------------------------------------------------------------- /ExtP_Toolkit/fishfacts_example/mainform.lrs: -------------------------------------------------------------------------------- 1 | { This is an automatically generated lazarus resource file } 2 | 3 | LazarusResources.Add('TEditWindow','FORMDATA',[ 4 | 'TPF0'#11'TEditWindow'#10'EditWindow'#4'Left'#3'"'#1#6'Height'#3#8#2#3'Top'#3 5 | +#176#0#5'Width'#3'o'#2#11'Maximizable'#9#5'Title'#6#10'Fish Facts'#0#23'TExt' 6 | +'GridEditorGridPanel'#8'EditGrid'#4'Left'#2#8#6'Height'#3'>'#1#3'Top'#3#168#0 7 | +#5'Width'#3'X'#2#8'ColCount'#2#6#8'CellData'#1#6#22'EditWindow.LengthInCol'#6 8 | +#22'EditWindow.LengthCmCol'#6#25'EditWindow.SpeciesNameCol'#6#24'EditWindow.' 9 | +'CommonNameCol'#6#22'EditWindow.CategoryCol'#6#23'EditWindow.SpeciesNoCol'#0 10 | +#7'RowData'#1#2#30#0#7'ColData'#1#2'F'#8#9#6#23'EditWindow.SpeciesNoCol'#2'i' 11 | +#8#9#6#22'EditWindow.CategoryCol'#3#210#0#8#9#6#24'EditWindow.CommonNameCol' 12 | +#3#24#1#8#9#6#25'EditWindow.SpeciesNameCol'#2'F'#8#9#6#22'EditWindow.LengthC' 13 | +'mCol'#2'F'#8#9#6#22'EditWindow.LengthInCol'#0#0#0#16'TExtFormTextArea'#9'No' 14 | +'tesMemo'#4'Left'#3#16#1#6'Height'#3#150#0#3'Top'#2#8#5'Width'#3'P'#1#0#0#13 15 | +'TExtFormLabel'#12'PictureLabel'#4'Left'#2#8#6'Height'#3#150#0#3'Top'#2#8#5 16 | +'Width'#3#250#0#0#0#24'TExtFormNumberField_Grid'#12'SpeciesNoCol'#9'DataInde' 17 | +'x'#6#10'Species_No'#4'Grid'#7#8'EditGrid'#6'Header'#6#10'Species No'#4'left' 18 | +#2' '#3'top'#3#168#0#0#0#22'TExtFormTextField_Grid'#11'CategoryCol'#9'DataIn' 19 | +'dex'#6#8'Category'#4'Grid'#7#8'EditGrid'#6'Header'#6#8'Category'#4'left'#2 20 | +'x'#3'top'#3#168#0#0#0#22'TExtFormTextField_Grid'#13'CommonNameCol'#9'DataIn' 21 | +'dex'#6#11'Common_Name'#4'Grid'#7#8'EditGrid'#6'Header'#6#11'Common Name'#4 22 | +'left'#3#16#1#3'top'#3#168#0#0#0#22'TExtFormTextField_Grid'#14'SpeciesNameCo' 23 | +'l'#9'DataIndex'#6#12'Species_Name'#4'Grid'#7#8'EditGrid'#6'Header'#6#12'Spe' 24 | +'cies Name'#4'left'#3#176#1#3'top'#3#168#0#0#0#24'TExtFormNumberField_Grid' 25 | +#11'LengthCmCol'#9'DataIndex'#6#9'Length_Cm'#4'Grid'#7#8'EditGrid'#6'Header' 26 | +#6#11'Length (cm)'#4'left'#3#224#1#3'top'#3#168#0#0#0#24'TExtFormNumberField' 27 | +'_Grid'#11'LengthInCol'#9'DataIndex'#6#9'Length_In'#4'Grid'#7#8'EditGrid'#6 28 | +'Header'#6#11'Length (in)'#4'left'#3#24#2#3'top'#3#168#0#0#0#0 29 | ]); 30 | -------------------------------------------------------------------------------- /ExtP_Toolkit/fmtoextp/fmtoextp.cfg: -------------------------------------------------------------------------------- 1 | -$A1 2 | -$B- 3 | -$C- 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I- 10 | -$J+ 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V- 23 | -$W- 24 | -$X+ 25 | -$Y+ 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"C:\Documents and Settings\t88888\Meus documentos\Borland Studio Projects\Bpl" 35 | -LN"C:\Documents and Settings\t88888\Meus documentos\Borland Studio Projects\Bpl" 36 | -U"C:\Trabalho\pitinnu\lib" 37 | -O"C:\Trabalho\pitinnu\lib" 38 | -I"C:\Trabalho\pitinnu\lib" 39 | -R"C:\Trabalho\pitinnu\lib" 40 | -w-SYMBOL_DEPRECATED 41 | -w-UNSAFE_TYPE 42 | -w-UNSAFE_CODE 43 | -w-UNSAFE_CAST 44 | -------------------------------------------------------------------------------- /ExtP_Toolkit/fmtoextp/fmtoextp.lpi: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | -------------------------------------------------------------------------------- /ExtP_Toolkit/grid_example/appthread.pas: -------------------------------------------------------------------------------- 1 | unit AppThread; 2 | 3 | interface 4 | 5 | uses 6 | ExtPascal, 7 | gridunit; 8 | 9 | type 10 | TAppThread = class(TExtThread) 11 | public 12 | GridWindow : TGridWindow; 13 | published 14 | procedure Home; override; 15 | end; 16 | 17 | function CurrentThread : TAppThread; 18 | 19 | 20 | implementation 21 | 22 | uses 23 | {$IFNDEF WebServer} 24 | FCGIApp; 25 | {$ELSE} 26 | IdExtHTTPServer; 27 | {$ENDIF} 28 | 29 | function CurrentThread : TAppThread; 30 | begin 31 | Result := TAppThread(CurrentFCGIThread); 32 | end; 33 | 34 | 35 | procedure TAppThread.Home; 36 | begin 37 | GridWindow := TGridWindow.Create; 38 | GridWindow.Show; 39 | end; 40 | 41 | 42 | end. 43 | -------------------------------------------------------------------------------- /ExtP_Toolkit/grid_example/extpascal.cfg: -------------------------------------------------------------------------------- 1 | # Tell FPC to compile with ExtPascal runtime units, rather 2 | # than ExtP_Design_Ctrls unit that Lazarus IDE sees. 3 | -dUseRuntime 4 | 5 | # You can put other FPC switches in this file, although it's 6 | # probably better to put them in the .lpi file. However, don't 7 | # put the above define in the .lpi file or it will confuse 8 | # Lazarus when working with the ExtPascal design controls. 9 | 10 | -------------------------------------------------------------------------------- /ExtP_Toolkit/grid_example/gridunit.inc: -------------------------------------------------------------------------------- 1 | Id := 'GridWindow'; 2 | Height := 434; 3 | Width := 658; 4 | OnEsc := JSFunction(''); 5 | Border := False; 6 | Plain := True; 7 | Title := {$IFNDEF MSWINDOWS}AnsiToUTF8{$ENDIF}('Grid Example'); 8 | Layout := lyAbsolute; 9 | 10 | EditGrid := TExtGridEditorGridPanel.Create; 11 | with EditGrid.AddTo(Items) do 12 | begin 13 | Id := 'GridWindow_EditGrid'; 14 | X := 24; 15 | Height := 304; 16 | Y := 24; 17 | Width := 602; 18 | AutoExpandColumn := {$IFNDEF MSWINDOWS}AnsiToUTF8{$ENDIF}('GridWindow_CommonCol'); 19 | ClicksToEdit := 1; 20 | Frame := True; 21 | Title := {$IFNDEF MSWINDOWS}AnsiToUTF8{$ENDIF}('Edit Plants?'); 22 | Store := TExtDataStore.Create; 23 | with TExtGridColumn.AddTo(Columns) do 24 | begin 25 | Id := 'GridWindow_CommonCol'; 26 | Width := 220; 27 | end; 28 | with TExtGridColumn.AddTo(Columns) do 29 | begin 30 | Id := 'GridWindow_LightCol'; 31 | Width := 130; 32 | end; 33 | with TExtGridColumn.AddTo(Columns) do 34 | begin 35 | Id := 'GridWindow_PriceCol'; 36 | Width := 70; 37 | end; 38 | with TExtGridColumn.AddTo(Columns) do 39 | begin 40 | Id := 'GridWindow_AvailDateCol'; 41 | Width := 95; 42 | end; 43 | with TExtGridColumn.AddTo(Columns) do 44 | begin 45 | Id := 'GridWindow_IndoorCol'; 46 | Width := 55; 47 | end; 48 | end; 49 | with TExtGridColumn(EditGrid.Columns[0]) do 50 | begin 51 | CommonCol := TExtFormTextField.Create; 52 | Editor := CommonCol; 53 | with CommonCol do 54 | begin 55 | DataIndex := {$IFNDEF MSWINDOWS}AnsiToUTF8{$ENDIF}('common'); 56 | Header := {$IFNDEF MSWINDOWS}AnsiToUTF8{$ENDIF}('Common Name'); 57 | end; 58 | end; 59 | with TExtGridColumn(EditGrid.Columns[1]) do 60 | begin 61 | LightCol := TExtFormComboBox.Create; 62 | Editor := LightCol; 63 | with LightCol do 64 | begin 65 | DataIndex := {$IFNDEF MSWINDOWS}AnsiToUTF8{$ENDIF}('light'); 66 | Header := {$IFNDEF MSWINDOWS}AnsiToUTF8{$ENDIF}('Light'); 67 | StoreArray := JSArray( 68 | '"Shade", ' + 69 | '"Mostly Shady", ' + 70 | '"Sun or Shade", ' + 71 | '"Mostly Sunny", ' + 72 | '"Sunny"'); 73 | TriggerAction := 'all'; 74 | end; 75 | end; 76 | with TExtGridColumn(EditGrid.Columns[2]) do 77 | begin 78 | PriceCol := TExtFormNumberField.Create; 79 | Editor := PriceCol; 80 | with PriceCol do 81 | begin 82 | DataIndex := {$IFNDEF MSWINDOWS}AnsiToUTF8{$ENDIF}('price'); 83 | Header := {$IFNDEF MSWINDOWS}AnsiToUTF8{$ENDIF}('Price'); 84 | end; 85 | end; 86 | with TExtGridColumn(EditGrid.Columns[3]) do 87 | begin 88 | AvailDateCol := TExtFormDateField.Create; 89 | Editor := AvailDateCol; 90 | with AvailDateCol do 91 | begin 92 | DataIndex := {$IFNDEF MSWINDOWS}AnsiToUTF8{$ENDIF}('availDate'); 93 | Header := {$IFNDEF MSWINDOWS}AnsiToUTF8{$ENDIF}('Available'); 94 | end; 95 | end; 96 | with TExtGridColumn(EditGrid.Columns[4]) do 97 | begin 98 | IndoorCol := TExtFormCheckbox.Create; 99 | Editor := IndoorCol; 100 | with IndoorCol do 101 | begin 102 | DataIndex := {$IFNDEF MSWINDOWS}AnsiToUTF8{$ENDIF}('indoor'); 103 | Header := {$IFNDEF MSWINDOWS}AnsiToUTF8{$ENDIF}('Indoor?'); 104 | end; 105 | end; 106 | 107 | -------------------------------------------------------------------------------- /ExtP_Toolkit/grid_example/gridunit.lfm: -------------------------------------------------------------------------------- 1 | object GridWindow: TGridWindow 2 | Left = 307 3 | Height = 400 4 | Top = 172 5 | Width = 650 6 | Border = False 7 | Plain = True 8 | Title = 'Grid Example' 9 | object EditGrid: TExtGridEditorGridPanel 10 | Left = 24 11 | Height = 304 12 | Top = 24 13 | Width = 602 14 | AutoExpandColumn = 'CommonCol' 15 | ClicksToEdit = 1 16 | ColCount = 5 17 | Frame = True 18 | Title = 'Edit Plants?' 19 | CellData = ( 20 | 'GridWindow.CommonCol' 21 | 'GridWindow.LightCol' 22 | 'GridWindow.PriceCol' 23 | 'GridWindow.AvailDateCol' 24 | 'GridWindow.IndoorCol' 25 | ) 26 | RowData = ( 27 | 30 28 | ) 29 | ColData = ( 30 | 220 31 | False 32 | True 33 | 'GridWindow.CommonCol' 34 | 130 35 | False 36 | True 37 | 'GridWindow.LightCol' 38 | 70 39 | False 40 | True 41 | 'GridWindow.PriceCol' 42 | 95 43 | False 44 | True 45 | 'GridWindow.AvailDateCol' 46 | 55 47 | False 48 | True 49 | 'GridWindow.IndoorCol' 50 | ) 51 | end 52 | object CommonCol: TExtFormTextField_Grid 53 | DataIndex = 'common' 54 | Grid = EditGrid 55 | Header = 'Common Name' 56 | left = 128 57 | top = 8 58 | end 59 | object LightCol: TExtFormComboBox_Grid 60 | DataIndex = 'light' 61 | Grid = EditGrid 62 | Header = 'Light' 63 | StoreArray.Strings = ( 64 | 'Shade' 65 | 'Mostly Shady' 66 | 'Sun or Shade' 67 | 'Mostly Sunny' 68 | 'Sunny' 69 | ) 70 | left = 304 71 | top = 8 72 | end 73 | object PriceCol: TExtFormNumberField_Grid 74 | DataIndex = 'price' 75 | Grid = EditGrid 76 | Header = 'Price' 77 | left = 400 78 | top = 8 79 | end 80 | object AvailDateCol: TExtFormDateField_Grid 81 | DataIndex = 'availDate' 82 | Grid = EditGrid 83 | Header = 'Available' 84 | left = 480 85 | top = 8 86 | end 87 | object IndoorCol: TExtFormCheckbox_Grid 88 | DataIndex = 'indoor' 89 | Grid = EditGrid 90 | Header = 'Indoor?' 91 | left = 560 92 | top = 8 93 | end 94 | end 95 | -------------------------------------------------------------------------------- /ExtP_Toolkit/grid_example/gridunit.lrs: -------------------------------------------------------------------------------- 1 | LazarusResources.Add('TGridWindow','FORMDATA',[ 2 | 'TPF0'#11'TGridWindow'#10'GridWindow'#4'Left'#3'3'#1#6'Height'#3#144#1#3'Top' 3 | +#3#172#0#5'Width'#3#138#2#6'Border'#8#5'Plain'#9#5'Title'#6#12'Grid Example' 4 | +#0#23'TExtGridEditorGridPanel'#8'EditGrid'#4'Left'#2#24#6'Height'#3'0'#1#3'T' 5 | +'op'#2#24#5'Width'#3'Z'#2#16'AutoExpandColumn'#6#9'CommonCol'#12'ClicksToEdi' 6 | +'t'#2#1#8'ColCount'#2#5#5'Frame'#9#5'Title'#6#12'Edit Plants?'#8'CellData'#1 7 | +#6#20'GridWindow.CommonCol'#6#19'GridWindow.LightCol'#6#19'GridWindow.PriceC' 8 | +'ol'#6#23'GridWindow.AvailDateCol'#6#20'GridWindow.IndoorCol'#0#7'RowData'#1 9 | +#2#30#0#7'ColData'#1#3#220#0#8#9#6#20'GridWindow.CommonCol'#3#130#0#8#9#6#19 10 | +'GridWindow.LightCol'#2'F'#8#9#6#19'GridWindow.PriceCol'#2'_'#8#9#6#23'GridW' 11 | +'indow.AvailDateCol'#2'7'#8#9#6#20'GridWindow.IndoorCol'#0#0#0#22'TExtFormTe' 12 | +'xtField_Grid'#9'CommonCol'#9'DataIndex'#6#6'common'#4'Grid'#7#8'EditGrid'#6 13 | +'Header'#6#11'Common Name'#4'left'#3#128#0#3'top'#2#8#0#0#21'TExtFormComboBo' 14 | +'x_Grid'#8'LightCol'#9'DataIndex'#6#5'light'#4'Grid'#7#8'EditGrid'#6'Header' 15 | +#6#5'Light'#18'StoreArray.Strings'#1#6#5'Shade'#6#12'Mostly Shady'#6#12'Sun ' 16 | +'or Shade'#6#12'Mostly Sunny'#6#5'Sunny'#0#4'left'#3'0'#1#3'top'#2#8#0#0#24 17 | +'TExtFormNumberField_Grid'#8'PriceCol'#9'DataIndex'#6#5'price'#4'Grid'#7#8'E' 18 | +'ditGrid'#6'Header'#6#5'Price'#4'left'#3#144#1#3'top'#2#8#0#0#22'TExtFormDat' 19 | +'eField_Grid'#12'AvailDateCol'#9'DataIndex'#6#9'availDate'#4'Grid'#7#8'EditG' 20 | +'rid'#6'Header'#6#9'Available'#4'left'#3#224#1#3'top'#2#8#0#0#21'TExtFormChe' 21 | +'ckbox_Grid'#9'IndoorCol'#9'DataIndex'#6#6'indoor'#4'Grid'#7#8'EditGrid'#6'H' 22 | +'eader'#6#7'Indoor?'#4'left'#3'0'#2#3'top'#2#8#0#0#0 23 | ]); 24 | -------------------------------------------------------------------------------- /ExtP_Toolkit/grid_example/gridunit.pas: -------------------------------------------------------------------------------- 1 | unit gridunit; 2 | 3 | interface 4 | 5 | uses 6 | SysUtils, Classes, 7 | {$IFDEF UseRuntime} 8 | Ext, ExtPascal, ExtPascalUtils, ExtForm, 9 | ExtData, ExtGrid, ExtUtil, ExtAir, ExtDd, 10 | ExtLayout, ExtMenu, ExtState, ExtTree; 11 | 12 | type 13 | {$M+} 14 | TExtPanel_Tab = TExtPanel; 15 | TExtFormTextField_Grid = TExtFormTextField; 16 | TExtFormNumberField_Grid = TExtFormNumberField; 17 | TExtFormDateField_Grid = TExtFormDateField; 18 | TExtFormTimeField_Grid = TExtFormTimeField; 19 | TExtFormCheckbox_Grid = TExtFormCheckbox; 20 | TExtFormComboBox_Grid = TExtFormComboBox; 21 | {$M-} 22 | 23 | {$ELSE} 24 | ExtP_Design_Ctrls, ExtP_Design_Grid; 25 | {$ENDIF} 26 | 27 | type 28 | TGridWindow = class(TExtWindow) 29 | EditGrid: TExtGridEditorGridPanel; 30 | CommonCol: TExtFormTextField_Grid; 31 | LightCol: TExtFormComboBox_Grid; 32 | PriceCol: TExtFormNumberField_Grid; 33 | AvailDateCol: TExtFormDateField_Grid; 34 | IndoorCol: TExtFormCheckbox_Grid; 35 | private 36 | public 37 | DataStore : TExtDataStore; 38 | Plant : TExtDataRecord; 39 | constructor Create; 40 | procedure Show; 41 | end; 42 | 43 | implementation 44 | 45 | uses 46 | AppThread; 47 | 48 | constructor TGridWindow.Create; 49 | var 50 | Data : TExtObjectList; 51 | begin 52 | 53 | {Note: Code and comments below are taken directly from ExtPascalSamples.dpr. 54 | 55 | Since Store is passed in grid's JavaScript constructor, need to create 56 | Store before creating grid.} 57 | 58 | Data := TExtObjectList.Create; 59 | 60 | // the "name" below matches the tag name to read, except "availDate", which is mapped to the tag "availability" 61 | 62 | with TExtDataField.AddTo(Data) do begin Name := 'common'; TypeJS := 'string' end; 63 | 64 | with TExtDataField.AddTo(Data) do begin Name := 'botanical'; TypeJS := 'string' end; 65 | 66 | TExtDataField.AddTo(Data).Name := 'light'; 67 | 68 | with TExtDataField.AddTo(Data) do begin Name := 'price'; TypeJS := 'float' end; // automatic date conversions 69 | 70 | with TExtDataField.AddTo(Data) do begin Name := 'availDate'; Mapping := 'availability'; TypeJS := 'date'; DateFormat := 'm/d/Y' end; 71 | 72 | with TExtDataField.AddTo(Data) do begin Name := 'indoor'; TypeJS := 'bool' end; 73 | 74 | // this could be inline, but we want to define the Plant record, type so we can add records dynamically 75 | 76 | Plant := TExtDataRecord.Create(Data); 77 | 78 | // create the Data Store 79 | 80 | DataStore := TExtDataStore.Create; 81 | 82 | with DataStore do begin 83 | 84 | URL := CurrentThread.ExtPath + '/examples/grid/plants.xml'; 85 | 86 | // the return will be XML, so lets set up a reader, records will have a "plant" tag 87 | 88 | Reader := TExtDataXmlReader.Create(JSObject('record:"plant"'), Plant); 89 | 90 | SortInfo := JSObject('field:"common", direction:"ASC"'); 91 | end; 92 | 93 | 94 | inherited; 95 | {$IFDEF UseRuntime} 96 | {$I gridunit.inc} 97 | {$ENDIF} 98 | 99 | TExtGridColumn(EditGrid.Columns[4]).RendererExtFunction := //IndoorCol 100 | JSFunction('v', 'return "
";'); 101 | 102 | EditGrid.Store := DataStore; 103 | DataStore.Load(nil); 104 | 105 | end; 106 | 107 | procedure TGridWindow.Show; 108 | begin 109 | inherited Show; 110 | end; 111 | 112 | 113 | end. 114 | 115 | -------------------------------------------------------------------------------- /ExtP_Toolkit/grid_example/mygrid1.lpi: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | 110 | 111 | 112 | 113 | 114 | 115 | 116 | 117 | 118 | 119 | 120 | 121 | 122 | 123 | 124 | 125 | 126 | 127 | -------------------------------------------------------------------------------- /ExtP_Toolkit/grid_example/mygrid1.lpr: -------------------------------------------------------------------------------- 1 | program mygrid1; 2 | 3 | uses 4 | {$IFNDEF WebServer} 5 | FCGIApp, 6 | {$ELSE} 7 | {$IFNDEF MSWINDOWS} 8 | CThreads, 9 | {$ENDIF} 10 | IdExtHTTPServer, 11 | {$ENDIF} 12 | AppThread, gridunit; 13 | 14 | {$IFNDEF FPC} 15 | {$IFNDEF WebServer} 16 | {$APPTYPE CONSOLE} 17 | {$ENDIF} 18 | {$ENDIF} 19 | 20 | const 21 | Port = 2014; 22 | MaxIdleMinutes = 5; 23 | 24 | 25 | begin 26 | {$IFNDEF WebServer} 27 | Application := TFCGIApplication.Create('MyApp', TAppThread, Port, MaxIdleMinutes); 28 | {$ELSE} 29 | Application := TIdExtApplication.Create('MyApp', TAppThread, 80, MaxIdleMinutes); 30 | {$ENDIF} 31 | Application.Run; 32 | end. 33 | 34 | -------------------------------------------------------------------------------- /ExtP_Toolkit/gui_converter/CustCfgEdit.dfm: -------------------------------------------------------------------------------- 1 | object CustConfigEditor: TCustConfigEditor 2 | Left = 192 3 | Top = 114 4 | BorderIcons = [biSystemMenu] 5 | BorderStyle = bsDialog 6 | Caption = 'Edit Custom Config File' 7 | ClientHeight = 499 8 | ClientWidth = 570 9 | Color = clBtnFace 10 | Font.Charset = DEFAULT_CHARSET 11 | Font.Color = clWindowText 12 | Font.Height = -13 13 | Font.Name = 'Arial' 14 | Font.Style = [] 15 | OldCreateOrder = False 16 | Position = poMainFormCenter 17 | PixelsPerInch = 96 18 | TextHeight = 16 19 | object SaveBtn: TButton 20 | Left = 344 21 | Top = 408 22 | Width = 81 23 | Height = 30 24 | Hint = 'Save custom config file' 25 | Caption = 'Save' 26 | ParentShowHint = False 27 | ShowHint = True 28 | TabOrder = 2 29 | OnClick = SaveBtnClick 30 | end 31 | object CloseBtn: TButton 32 | Left = 448 33 | Top = 408 34 | Width = 81 35 | Height = 30 36 | Hint = 'Close custom config file editor' 37 | Caption = 'Close' 38 | ParentShowHint = False 39 | ShowHint = True 40 | TabOrder = 3 41 | OnClick = CloseBtnClick 42 | end 43 | object UnknownGroupBox: TGroupBox 44 | Left = 16 45 | Top = 16 46 | Width = 281 47 | Height = 465 48 | Caption = ' Unmapped Component Classes ' 49 | TabOrder = 0 50 | object UnknownListBox: TListBox 51 | Left = 8 52 | Top = 28 53 | Width = 265 54 | Height = 301 55 | ItemHeight = 16 56 | TabOrder = 0 57 | OnClick = UnknownListBoxClick 58 | end 59 | object UnknownHelpMemo: TMemo 60 | Left = 8 61 | Top = 336 62 | Width = 265 63 | Height = 121 64 | TabStop = False 65 | BorderStyle = bsNone 66 | Color = clBtnFace 67 | Font.Charset = DEFAULT_CHARSET 68 | Font.Color = clWindowText 69 | Font.Height = -11 70 | Font.Name = 'Arial' 71 | Font.Style = [] 72 | Lines.Strings = ( 73 | '(*) indicates unmapped classes from your forms. If ' 74 | 'a class is descended from or is similar to a standard ' 75 | 'VCL/LCL class, select the standard class to map to. ' 76 | 'If you don'#39't need to convert a class'#39's objects, leave ' 77 | 'it unmapped.' 78 | '' 79 | 'If a class is an inherited form, select the ancestor ' 80 | 'form'#39's unit instead.') 81 | ParentFont = False 82 | ReadOnly = True 83 | TabOrder = 1 84 | end 85 | end 86 | object MappingGroupBox: TGroupBox 87 | Left = 312 88 | Top = 16 89 | Width = 241 90 | Height = 345 91 | Caption = ' Component Mapping ' 92 | TabOrder = 1 93 | object MapToLbl: TLabel 94 | Left = 8 95 | Top = 25 96 | Width = 225 97 | Height = 16 98 | Alignment = taCenter 99 | AutoSize = False 100 | Caption = 'Map class to this' 101 | end 102 | object FormUnitLbl: TLabel 103 | Left = 8 104 | Top = 89 105 | Width = 225 106 | Height = 16 107 | Alignment = taCenter 108 | AutoSize = False 109 | Caption = 'Ancestor form'#39's unit' 110 | end 111 | object PropsLbl: TLabel 112 | Left = 8 113 | Top = 153 114 | Width = 225 115 | Height = 16 116 | Alignment = taCenter 117 | AutoSize = False 118 | Caption = 'Other properties to map' 119 | end 120 | object PropsHelpLbl: TLabel 121 | Left = 8 122 | Top = 169 123 | Width = 225 124 | Height = 16 125 | Alignment = taCenter 126 | AutoSize = False 127 | Caption = 'Enter mappings like this: vclprop=extprop' 128 | Font.Charset = DEFAULT_CHARSET 129 | Font.Color = clWindowText 130 | Font.Height = -11 131 | Font.Name = 'Arial' 132 | Font.Style = [] 133 | ParentFont = False 134 | end 135 | object MapToComboBox: TComboBox 136 | Left = 8 137 | Top = 49 138 | Width = 225 139 | Height = 24 140 | Style = csDropDownList 141 | ItemHeight = 16 142 | TabOrder = 0 143 | OnChange = MapToComboBoxChange 144 | end 145 | object FormUnitComboBox: TComboBox 146 | Left = 8 147 | Top = 113 148 | Width = 225 149 | Height = 24 150 | Style = csDropDownList 151 | ItemHeight = 16 152 | TabOrder = 1 153 | OnChange = FormUnitComboBoxChange 154 | end 155 | object PropsMemo: TMemo 156 | Left = 8 157 | Top = 192 158 | Width = 225 159 | Height = 137 160 | ScrollBars = ssBoth 161 | TabOrder = 2 162 | WordWrap = False 163 | end 164 | end 165 | end 166 | -------------------------------------------------------------------------------- /ExtP_Toolkit/gui_converter/CustCfgEdit.lfm: -------------------------------------------------------------------------------- 1 | object CustConfigEditor: TCustConfigEditor 2 | Left = 192 3 | Top = 114 4 | BorderIcons = [biSystemMenu] 5 | BorderStyle = bsDialog 6 | Caption = 'Edit Custom Config File' 7 | ClientHeight = 499 8 | Height = 499 9 | ClientWidth = 570 10 | Width = 570 11 | Color = clBtnFace 12 | Font.Charset = DEFAULT_CHARSET 13 | Font.Color = clWindowText 14 | Font.Height = -13 15 | Font.Name = 'Arial' 16 | Font.Style = [] 17 | Position = poMainFormCenter 18 | PixelsPerInch = 96 19 | object SaveBtn: TButton 20 | Left = 344 21 | Top = 408 22 | Width = 81 23 | Height = 30 24 | Hint = 'Save custom config file' 25 | Caption = 'Save' 26 | ParentShowHint = False 27 | ShowHint = True 28 | TabOrder = 2 29 | OnClick = SaveBtnClick 30 | end 31 | object CloseBtn: TButton 32 | Left = 448 33 | Top = 408 34 | Width = 81 35 | Height = 30 36 | Hint = 'Close custom config file editor' 37 | Caption = 'Close' 38 | ParentShowHint = False 39 | ShowHint = True 40 | TabOrder = 3 41 | OnClick = CloseBtnClick 42 | end 43 | object UnknownGroupBox: TGroupBox 44 | Left = 16 45 | Top = 16 46 | Width = 281 47 | Height = 465 48 | Caption = ' Unmapped Component Classes ' 49 | TabOrder = 0 50 | object UnknownListBox: TListBox 51 | Left = 8 52 | Top = 12 53 | Width = 265 54 | Height = 301 55 | ItemHeight = 16 56 | TabOrder = 0 57 | OnClick = UnknownListBoxClick 58 | end 59 | object UnknownHelpMemo: TMemo 60 | Left = 8 61 | Top = 320 62 | Width = 265 63 | Height = 121 64 | TabStop = False 65 | BorderStyle = bsNone 66 | Color = clBtnFace 67 | Font.Charset = DEFAULT_CHARSET 68 | Font.Color = clWindowText 69 | Font.Height = -11 70 | Font.Name = 'Arial' 71 | Font.Style = [] 72 | Lines.Strings = ( 73 | '(*) indicates unmapped classes from your forms. If ' 74 | 'a class is descended from or is similar to a standard ' 75 | 'VCL/LCL class, select the standard class to map to. ' 76 | 'If you don'#39't need to convert a class'#39's objects, leave ' 77 | 'it unmapped.' 78 | '' 79 | 'If a class is an inherited form, select the ancestor ' 80 | 'form'#39's unit instead.') 81 | ParentFont = False 82 | ReadOnly = True 83 | TabOrder = 1 84 | end 85 | end 86 | object MappingGroupBox: TGroupBox 87 | Left = 312 88 | Top = 16 89 | Width = 241 90 | Height = 345 91 | Caption = ' Component Mapping ' 92 | TabOrder = 1 93 | object MapToLbl: TLabel 94 | Left = 8 95 | Top = 9 96 | Width = 225 97 | Height = 16 98 | Alignment = taCenter 99 | AutoSize = False 100 | Caption = 'Map class to this' 101 | end 102 | object FormUnitLbl: TLabel 103 | Left = 8 104 | Top = 73 105 | Width = 225 106 | Height = 16 107 | Alignment = taCenter 108 | AutoSize = False 109 | Caption = 'Ancestor form'#39's unit' 110 | end 111 | object PropsLbl: TLabel 112 | Left = 8 113 | Top = 137 114 | Width = 225 115 | Height = 16 116 | Alignment = taCenter 117 | AutoSize = False 118 | Caption = 'Other properties to map' 119 | end 120 | object PropsHelpLbl: TLabel 121 | Left = 8 122 | Top = 153 123 | Width = 225 124 | Height = 16 125 | Alignment = taCenter 126 | AutoSize = False 127 | Caption = 'Enter mappings like this: vclprop=extprop' 128 | Font.Charset = DEFAULT_CHARSET 129 | Font.Color = clWindowText 130 | Font.Height = -11 131 | Font.Name = 'Arial' 132 | Font.Style = [] 133 | ParentFont = False 134 | end 135 | object MapToComboBox: TComboBox 136 | Left = 8 137 | Top = 33 138 | Width = 225 139 | Height = 24 140 | Style = csDropDownList 141 | ItemHeight = 16 142 | TabOrder = 0 143 | OnChange = MapToComboBoxChange 144 | end 145 | object FormUnitComboBox: TComboBox 146 | Left = 8 147 | Top = 97 148 | Width = 225 149 | Height = 24 150 | Style = csDropDownList 151 | ItemHeight = 16 152 | TabOrder = 1 153 | OnChange = FormUnitComboBoxChange 154 | end 155 | object PropsMemo: TMemo 156 | Left = 8 157 | Top = 176 158 | Width = 225 159 | Height = 137 160 | ScrollBars = ssBoth 161 | TabOrder = 2 162 | WordWrap = False 163 | end 164 | end 165 | end 166 | -------------------------------------------------------------------------------- /ExtP_Toolkit/gui_converter/FormsToExtPascal.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q+ 18 | -$R+ 19 | -$S- 20 | -$T+ 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\delphi7\Projects\Bpl" 35 | -LN"c:\delphi7\Projects\Bpl" 36 | -U"..\fmtoextp" 37 | -O"..\fmtoextp" 38 | -I"..\fmtoextp" 39 | -R"..\fmtoextp" 40 | -w-UNSAFE_TYPE 41 | -w-UNSAFE_CODE 42 | -w-UNSAFE_CAST 43 | -------------------------------------------------------------------------------- /ExtP_Toolkit/gui_converter/FormsToExtPascal.dof: -------------------------------------------------------------------------------- 1 | [FileVersion] 2 | Version=7.0 3 | [Compiler] 4 | A=8 5 | B=0 6 | C=1 7 | D=1 8 | E=0 9 | F=0 10 | G=1 11 | H=1 12 | I=1 13 | J=0 14 | K=0 15 | L=1 16 | M=0 17 | N=1 18 | O=1 19 | P=1 20 | Q=1 21 | R=1 22 | S=0 23 | T=1 24 | U=0 25 | V=1 26 | W=0 27 | X=1 28 | Y=1 29 | Z=1 30 | ShowHints=1 31 | ShowWarnings=1 32 | UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 33 | NamespacePrefix= 34 | SymbolDeprecated=1 35 | SymbolLibrary=1 36 | SymbolPlatform=1 37 | UnitLibrary=1 38 | UnitPlatform=1 39 | UnitDeprecated=1 40 | HResultCompat=1 41 | HidingMember=1 42 | HiddenVirtual=1 43 | Garbage=1 44 | BoundsError=1 45 | ZeroNilCompat=1 46 | StringConstTruncated=1 47 | ForLoopVarVarPar=1 48 | TypedConstVarPar=1 49 | AsgToTypedConst=1 50 | CaseLabelRange=1 51 | ForVariable=1 52 | ConstructingAbstract=1 53 | ComparisonFalse=1 54 | ComparisonTrue=1 55 | ComparingSignedUnsigned=1 56 | CombiningSignedUnsigned=1 57 | UnsupportedConstruct=1 58 | FileOpen=1 59 | FileOpenUnitSrc=1 60 | BadGlobalSymbol=1 61 | DuplicateConstructorDestructor=1 62 | InvalidDirective=1 63 | PackageNoLink=1 64 | PackageThreadVar=1 65 | ImplicitImport=1 66 | HPPEMITIgnored=1 67 | NoRetVal=1 68 | UseBeforeDef=1 69 | ForLoopVarUndef=1 70 | UnitNameMismatch=1 71 | NoCFGFileFound=1 72 | MessageDirective=1 73 | ImplicitVariants=1 74 | UnicodeToLocale=1 75 | LocaleToUnicode=1 76 | ImagebaseMultiple=1 77 | SuspiciousTypecast=1 78 | PrivatePropAccessor=1 79 | UnsafeType=0 80 | UnsafeCode=0 81 | UnsafeCast=0 82 | [Linker] 83 | MapFile=0 84 | OutputObjs=0 85 | ConsoleApp=1 86 | DebugInfo=0 87 | RemoteSymbols=0 88 | MinStackSize=16384 89 | MaxStackSize=1048576 90 | ImageBase=4194304 91 | ExeDescription= 92 | [Directories] 93 | OutputDir= 94 | UnitOutputDir= 95 | PackageDLLOutputDir= 96 | PackageDCPOutputDir= 97 | SearchPath=..\fmtoextp 98 | Packages=vcl;rtl;vclx;indy;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;dbrtl;soaprtl;dsnap;VclSmp;dbexpress;vcldb;dbxcds;inetdb;bdertl;vcldbx;adortl;teeui;teedb;tee;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;O407_r70;GeckoSDK;GeckoComponents 99 | Conditionals= 100 | DebugSourceDirs= 101 | UsePackages=0 102 | [Parameters] 103 | RunParams= 104 | HostApplication= 105 | Launcher= 106 | UseLauncher=0 107 | DebugCWD= 108 | [Language] 109 | ActiveLang= 110 | ProjectLang= 111 | RootDir=C:\Delphi7\Bin\ 112 | [Version Info] 113 | IncludeVerInfo=0 114 | AutoIncBuild=0 115 | MajorVer=1 116 | MinorVer=0 117 | Release=0 118 | Build=0 119 | Debug=0 120 | PreRelease=0 121 | Special=0 122 | Private=0 123 | DLL=0 124 | Locale=1033 125 | CodePage=1252 126 | [Version Info Keys] 127 | CompanyName= 128 | FileDescription= 129 | FileVersion=1.0.0.0 130 | InternalName= 131 | LegalCopyright= 132 | LegalTrademarks= 133 | OriginalFilename= 134 | ProductName= 135 | ProductVersion=1.0.0.0 136 | Comments= 137 | [HistoryLists\hlUnitAliases] 138 | Count=1 139 | Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 140 | [HistoryLists\hlSearchPath] 141 | Count=2 142 | Item0=..\fmtoextp 143 | Item1=..\..\ 144 | -------------------------------------------------------------------------------- /ExtP_Toolkit/gui_converter/FormsToExtPascal.dpr: -------------------------------------------------------------------------------- 1 | program FormsToExtPascal; 2 | 3 | uses 4 | {$IFDEF LCL} 5 | Interfaces, 6 | {$ENDIF} 7 | Forms, 8 | MainFrm in 'MainFrm.pas' {MainForm}, 9 | CustCfgEdit in 'CustCfgEdit.pas' {CustConfigEditor}; 10 | 11 | begin 12 | Application.Initialize; 13 | Application.CreateForm(TMainForm, MainForm); 14 | Application.Run; 15 | end. 16 | 17 | -------------------------------------------------------------------------------- /ExtP_Toolkit/gui_converter/FormsToExtPascal.lpi: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | 110 | 111 | 112 | 113 | 114 | 115 | 116 | 117 | 118 | 119 | -------------------------------------------------------------------------------- /ExtP_Toolkit/hello_example/aboutunit.inc: -------------------------------------------------------------------------------- 1 | Id := 'AboutWindow'; 2 | Height := 287; 3 | Width := 358; 4 | Modal := True; 5 | Title := {$IFNDEF MSWINDOWS}AnsiToUTF8{$ENDIF}('About'); 6 | Layout := lyAbsolute; 7 | 8 | ExtButton1 := TExtButton.Create; 9 | with ExtButton1.AddTo(Items) do 10 | begin 11 | Id := 'AboutWindow_ExtButton1'; 12 | X := 128; 13 | Height := 33; 14 | Y := 168; 15 | Width := 103; 16 | Text := {$IFNDEF MSWINDOWS}AnsiToUTF8{$ENDIF}('Close'); 17 | On('click', Ajax(ExtButton1Click)); 18 | TooltipType := 'title'; 19 | end; 20 | 21 | -------------------------------------------------------------------------------- /ExtP_Toolkit/hello_example/aboutunit.lfm: -------------------------------------------------------------------------------- 1 | object AboutWindow: TAboutWindow 2 | Left = 307 3 | Height = 253 4 | Top = 172 5 | Width = 350 6 | Modal = True 7 | Title = 'About' 8 | object ExtButton1: TExtButton 9 | Left = 128 10 | Height = 33 11 | Top = 168 12 | Width = 103 13 | MinWidth = 103 14 | Text = 'Close' 15 | Click = ExtButton1Click 16 | end 17 | end 18 | -------------------------------------------------------------------------------- /ExtP_Toolkit/hello_example/aboutunit.lrs: -------------------------------------------------------------------------------- 1 | { This is an automatically generated lazarus resource file } 2 | 3 | LazarusResources.Add('TAboutWindow','FORMDATA',[ 4 | 'TPF0'#12'TAboutWindow'#11'AboutWindow'#4'Left'#3'3'#1#6'Height'#3#253#0#3'To' 5 | +'p'#3#172#0#5'Width'#3'^'#1#5'Modal'#9#5'Title'#6#5'About'#0#10'TExtButton' 6 | +#10'ExtButton1'#4'Left'#3#128#0#6'Height'#2'!'#3'Top'#3#168#0#5'Width'#2'g'#8 7 | +'MinWidth'#2'g'#4'Text'#6#5'Close'#5'Click'#7#15'ExtButton1Click'#0#0#0 8 | ]); 9 | -------------------------------------------------------------------------------- /ExtP_Toolkit/hello_example/aboutunit.pas: -------------------------------------------------------------------------------- 1 | unit aboutunit; 2 | 3 | interface 4 | 5 | uses 6 | SysUtils, Classes, 7 | {$IFDEF UseRuntime} 8 | Ext, ExtPascal, ExtPascalUtils, ExtForm, 9 | ExtData, ExtGrid, ExtUtil, ExtAir, ExtDd, 10 | ExtLayout, ExtMenu, ExtState, ExtTree 11 | {$ELSE} 12 | ExtP_Design_Ctrls 13 | {$ENDIF}; 14 | 15 | type 16 | TAboutWindow = class(TExtWindow) 17 | ExtButton1: TExtButton; 18 | procedure ExtButton1Click; 19 | private 20 | public 21 | constructor Create; 22 | procedure Show; 23 | end; 24 | 25 | implementation 26 | 27 | uses 28 | AppThread; 29 | 30 | procedure TAboutWindow.ExtButton1Click; 31 | begin 32 | Close; 33 | end; 34 | 35 | constructor TAboutWindow.Create; 36 | begin 37 | inherited; 38 | {$IFDEF UseRuntime} 39 | {$I aboutunit.inc} 40 | {$ENDIF} 41 | end; 42 | 43 | procedure TAboutWindow.Show; 44 | begin 45 | inherited Show; 46 | end; 47 | 48 | end. 49 | 50 | -------------------------------------------------------------------------------- /ExtP_Toolkit/hello_example/appthread.pas: -------------------------------------------------------------------------------- 1 | unit AppThread; 2 | 3 | interface 4 | 5 | uses 6 | ExtPascal, 7 | mainunit, 8 | aboutunit; 9 | 10 | type 11 | TAppThread = class(TExtThread) 12 | public 13 | MainWindow : TMainWindow; 14 | AboutWindow : TAboutWindow; 15 | published 16 | procedure Home; override; 17 | end; 18 | 19 | function CurrentThread : TAppThread; 20 | 21 | 22 | implementation 23 | 24 | uses 25 | {$IFNDEF WebServer} 26 | FCGIApp; 27 | {$ELSE} 28 | IdExtHTTPServer; 29 | {$ENDIF} 30 | 31 | function CurrentThread : TAppThread; 32 | begin 33 | Result := TAppThread(CurrentFCGIThread); 34 | end; 35 | 36 | 37 | procedure TAppThread.Home; 38 | begin 39 | MainWindow := TMainWindow.Create; 40 | MainWindow.Show; 41 | end; 42 | 43 | 44 | end. 45 | -------------------------------------------------------------------------------- /ExtP_Toolkit/hello_example/delphi-compile.bat: -------------------------------------------------------------------------------- 1 | setlocal 2 | set delphipath=C:\Delphi7 3 | set extpascalpath=..\..\ 4 | %delphipath%\bin\dcc32 myproject1.lpr /u%extpascalpath% /dUseRuntime /$b-,h+,j+,p+,q+,r+,t-,v-,x+ 5 | -------------------------------------------------------------------------------- /ExtP_Toolkit/hello_example/extpascal.cfg: -------------------------------------------------------------------------------- 1 | # Tell FPC to compile with ExtPascal runtime units, rather 2 | # than ExtP_Design_Ctrls unit that Lazarus IDE sees. 3 | -dUseRuntime 4 | 5 | # You can put other FPC switches in this file, although it's 6 | # probably better to put them in the .lpi file. However, don't 7 | # put the above define in the .lpi file or it will confuse 8 | # Lazarus when working with the ExtPascal design controls. 9 | 10 | -------------------------------------------------------------------------------- /ExtP_Toolkit/hello_example/fpc-compile.bat: -------------------------------------------------------------------------------- 1 | setlocal 2 | set extpascalpath=..\..\ 3 | fpc myproject1.lpr -Fu%extpascalpath% -dUseRuntime -Smdcghie50 -venwi -l -Cirot -gl 4 | -------------------------------------------------------------------------------- /ExtP_Toolkit/hello_example/fpc-compile.sh: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | extpascalpath=../../ 3 | fpc myproject1.lpr -Fu$extpascalpath -dUseRuntime -Smdcghie50 -venwi -l -Cirot -gl 4 | -------------------------------------------------------------------------------- /ExtP_Toolkit/hello_example/mainunit.inc: -------------------------------------------------------------------------------- 1 | Id := 'MainWindow'; 2 | Height := 334; 3 | Width := 408; 4 | OnEsc := JSFunction(''); 5 | Title := {$IFNDEF MSWINDOWS}AnsiToUTF8{$ENDIF}('Hello'); 6 | Layout := lyAbsolute; 7 | 8 | ExtButton1 := TExtButton.Create; 9 | with ExtButton1.AddTo(Items) do 10 | begin 11 | Id := 'MainWindow_ExtButton1'; 12 | X := 152; 13 | Height := 38; 14 | Y := 192; 15 | Width := 101; 16 | Text := {$IFNDEF MSWINDOWS}AnsiToUTF8{$ENDIF}('Click Me'); 17 | On('click', Ajax(ExtButton1Click)); 18 | TooltipType := 'title'; 19 | end; 20 | 21 | -------------------------------------------------------------------------------- /ExtP_Toolkit/hello_example/mainunit.lfm: -------------------------------------------------------------------------------- 1 | object MainWindow: TMainWindow 2 | Left = 307 3 | Height = 300 4 | Top = 172 5 | Width = 400 6 | Title = 'Hello' 7 | object ExtButton1: TExtButton 8 | Left = 152 9 | Height = 38 10 | Top = 192 11 | Width = 101 12 | MinWidth = 101 13 | Text = 'Click Me' 14 | Click = ExtButton1Click 15 | end 16 | end 17 | -------------------------------------------------------------------------------- /ExtP_Toolkit/hello_example/mainunit.lrs: -------------------------------------------------------------------------------- 1 | { This is an automatically generated lazarus resource file } 2 | 3 | LazarusResources.Add('TMainWindow','FORMDATA',[ 4 | 'TPF0'#11'TMainWindow'#10'MainWindow'#4'Left'#3'3'#1#6'Height'#3','#1#3'Top'#3 5 | +#172#0#5'Width'#3#144#1#5'Title'#6#5'Hello'#0#10'TExtButton'#10'ExtButton1'#4 6 | +'Left'#3#152#0#6'Height'#2'&'#3'Top'#3#192#0#5'Width'#2'e'#8'MinWidth'#2'e'#4 7 | +'Text'#6#8'Click Me'#5'Click'#7#15'ExtButton1Click'#0#0#0 8 | ]); 9 | -------------------------------------------------------------------------------- /ExtP_Toolkit/hello_example/mainunit.pas: -------------------------------------------------------------------------------- 1 | unit mainunit; 2 | 3 | interface 4 | 5 | uses 6 | SysUtils, Classes, 7 | {$IFDEF UseRuntime} 8 | Ext, ExtPascal, ExtPascalUtils, ExtForm, 9 | ExtData, ExtGrid, ExtUtil, ExtAir, ExtDd, 10 | ExtLayout, ExtMenu, ExtState, ExtTree 11 | {$ELSE} 12 | ExtP_Design_Ctrls 13 | {$ENDIF}; 14 | 15 | type 16 | TMainWindow = class(TExtWindow) 17 | ExtButton1: TExtButton; 18 | procedure ExtButton1Click; 19 | private 20 | public 21 | constructor Create; 22 | procedure Show; 23 | end; 24 | 25 | implementation 26 | 27 | uses 28 | AppThread, aboutunit; 29 | 30 | procedure TMainWindow.ExtButton1Click; 31 | begin 32 | with CurrentThread do 33 | begin 34 | AboutWindow.Free; 35 | AboutWindow := TAboutWindow.Create; 36 | AboutWindow.Show; 37 | end; 38 | end; 39 | 40 | constructor TMainWindow.Create; 41 | begin 42 | inherited; 43 | {$IFDEF UseRuntime} 44 | {$I mainunit.inc} 45 | {$ENDIF} 46 | end; 47 | 48 | procedure TMainWindow.Show; 49 | begin 50 | inherited Show; 51 | end; 52 | 53 | end. 54 | 55 | -------------------------------------------------------------------------------- /ExtP_Toolkit/hello_example/myproject1.dpr: -------------------------------------------------------------------------------- 1 | program myproject1; 2 | 3 | uses 4 | FCGIApp, AppThread, mainunit, aboutunit; 5 | 6 | {$IFNDEF FPC} 7 | {$APPTYPE CONSOLE} 8 | {$ENDIF} 9 | 10 | const 11 | Port = 2014; 12 | MaxIdleMinutes = 5; 13 | 14 | 15 | begin 16 | Application := TFCGIApplication.Create('MyApp', TAppThread, Port, MaxIdleMinutes); 17 | Application.Run; 18 | end. 19 | 20 | -------------------------------------------------------------------------------- /ExtP_Toolkit/hello_example/myproject1.lpi: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | 110 | 111 | 112 | 113 | 114 | 115 | 116 | 117 | 118 | 119 | 120 | 121 | 122 | 123 | 124 | 125 | 126 | 127 | 128 | 129 | 130 | 131 | 132 | 133 | 134 | 135 | 136 | -------------------------------------------------------------------------------- /ExtP_Toolkit/hello_example/myproject1.lpr: -------------------------------------------------------------------------------- 1 | program myproject1; 2 | 3 | uses 4 | {$IFNDEF WebServer} 5 | FCGIApp, 6 | {$ELSE} 7 | {$IFNDEF MSWINDOWS} 8 | CThreads, 9 | {$ENDIF} 10 | IdExtHTTPServer, 11 | {$ENDIF} 12 | AppThread, mainunit, aboutunit; 13 | 14 | {$IFNDEF FPC} 15 | {$IFNDEF WebServer} 16 | {$APPTYPE CONSOLE} 17 | {$ENDIF} 18 | {$ENDIF} 19 | 20 | const 21 | Port = 2014; 22 | MaxIdleMinutes = 5; 23 | 24 | 25 | begin 26 | {$IFNDEF WebServer} 27 | Application := TFCGIApplication.Create('MyApp', TAppThread, Port, MaxIdleMinutes); 28 | {$ELSE} 29 | Application := TIdExtApplication.Create('MyApp', TAppThread, 80, MaxIdleMinutes); 30 | {$ENDIF} 31 | Application.Run; 32 | end. 33 | 34 | -------------------------------------------------------------------------------- /ExtP_Toolkit/multiselect_example/appthread.pas: -------------------------------------------------------------------------------- 1 | unit AppThread; 2 | 3 | interface 4 | 5 | uses 6 | ExtPascal, 7 | ExtPascalUtils, 8 | unit1; 9 | 10 | type 11 | TAppThread = class(TExtThread) 12 | public 13 | ExtWindow1 : TExtWindow1; 14 | published 15 | procedure Home; override; 16 | end; 17 | 18 | function CurrentThread : TAppThread; 19 | 20 | 21 | implementation 22 | 23 | uses 24 | {$IFNDEF WebServer} 25 | FCGIApp; 26 | {$ELSE} 27 | IdExtHTTPServer; 28 | {$ENDIF} 29 | 30 | function CurrentThread : TAppThread; 31 | begin 32 | Result := TAppThread(CurrentFCGIThread); 33 | end; 34 | 35 | 36 | procedure TAppThread.Home; 37 | begin 38 | SetLibrary(ExtPath + '/examples/ux/ux-all', True, True); 39 | ExtWindow1 := TExtWindow1.Create; 40 | ExtWindow1.Show; 41 | end; 42 | 43 | 44 | end. 45 | -------------------------------------------------------------------------------- /ExtP_Toolkit/multiselect_example/extpascal.cfg: -------------------------------------------------------------------------------- 1 | # Tell FPC to compile with ExtPascal runtime units, rather 2 | # than ExtP_Design_Ctrls unit that Lazarus IDE sees. 3 | -dUseRuntime 4 | 5 | # You can put other FPC switches in this file, although it's 6 | # probably better to put them in the .lpi file. However, don't 7 | # put the above define in the .lpi file or it will confuse 8 | # Lazarus when working with the ExtPascal design controls. 9 | 10 | -------------------------------------------------------------------------------- /ExtP_Toolkit/multiselect_example/project1.lpi: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | 110 | 111 | 112 | 113 | 114 | 115 | 116 | 117 | 118 | 119 | 120 | 121 | 122 | 123 | 124 | 125 | 126 | 127 | -------------------------------------------------------------------------------- /ExtP_Toolkit/multiselect_example/project1.lpr: -------------------------------------------------------------------------------- 1 | program project1; 2 | 3 | uses 4 | {$IFNDEF WebServer} 5 | FCGIApp, 6 | {$ELSE} 7 | {$IFNDEF MSWINDOWS} 8 | CThreads, 9 | {$ENDIF} 10 | IdExtHTTPServer, 11 | {$ENDIF} 12 | AppThread, Unit1; 13 | 14 | {$IFNDEF FPC} 15 | {$IFNDEF WebServer} 16 | {$APPTYPE CONSOLE} 17 | {$ENDIF} 18 | {$ENDIF} 19 | 20 | const 21 | Port = 2014; 22 | MaxIdleMinutes = 5; 23 | 24 | 25 | begin 26 | {$IFNDEF WebServer} 27 | Application := TFCGIApplication.Create('MyApp', TAppThread, Port, MaxIdleMinutes); 28 | {$ELSE} 29 | Application := TIdExtApplication.Create('MyApp', TAppThread, 80, MaxIdleMinutes); 30 | {$ENDIF} 31 | Application.Run; 32 | end. 33 | 34 | -------------------------------------------------------------------------------- /ExtP_Toolkit/multiselect_example/unit1.inc: -------------------------------------------------------------------------------- 1 | Id := 'ExtWindow1'; 2 | Height := 334; 3 | Width := 408; 4 | OnEsc := JSFunction(''); 5 | Title := {$IFNDEF MSWINDOWS}AnsiToUTF8{$ENDIF}('MultiSelect Example'); 6 | Layout := lyAbsolute; 7 | 8 | ExtFormLabel2 := TExtFormLabel.Create; 9 | with ExtFormLabel2.AddTo(Items) do 10 | begin 11 | Id := 'ExtWindow1_ExtFormLabel2'; 12 | X := 136; 13 | Height := 31; 14 | Y := 256; 15 | Width := 233; 16 | Text := {$IFNDEF MSWINDOWS}AnsiToUTF8{$ENDIF}('Nothing selected yet'); 17 | end; 18 | 19 | ExtPanel1 := TExtPanel.Create; 20 | with ExtPanel1.AddTo(Items) do 21 | begin 22 | Id := 'ExtWindow1_ExtPanel1'; 23 | X := 17; 24 | Height := 222; 25 | Y := 12; 26 | Width := 367; 27 | Layout := lyAbsolute; 28 | 29 | ExtFormLabel1 := TExtFormLabel.Create; 30 | with ExtFormLabel1.AddTo(Items) do 31 | begin 32 | Id := 'ExtWindow1_ExtFormLabel1'; 33 | X := 27; 34 | Height := 17; 35 | Y := 15; 36 | Width := 320; 37 | Text := {$IFNDEF MSWINDOWS}AnsiToUTF8{$ENDIF}('Select an item from the list and click Go'); 38 | end; 39 | 40 | ExtUxFormMultiSelect1 := TExtUxFormMultiSelect.Create; 41 | with ExtUxFormMultiSelect1.AddTo(Items) do 42 | begin 43 | Id := 'ExtWindow1_ExtUxFormMultiSelect1'; 44 | X := 14; 45 | Height := 152; 46 | Y := 42; 47 | Width := 332; 48 | StoreArray := JSArray( 49 | '"Item 1", ' + 50 | '"Item 2", ' + 51 | '"Item 3", ' + 52 | '"Item 4", ' + 53 | '"Item 5", ' + 54 | '"Item 6", ' + 55 | '"Item 7", ' + 56 | '"Item 8", ' + 57 | '"Item 9", ' + 58 | '"Item 10", ' + 59 | '"Item 11", ' + 60 | '"Item 12", ' + 61 | '"Item 13", ' + 62 | '"Item 14", ' + 63 | '"Item 15", ' + 64 | '"Item 16", ' + 65 | '"Item 17", ' + 66 | '"Item 18", ' + 67 | '"Item 19", ' + 68 | '"Item 20"'); 69 | end; 70 | end; 71 | 72 | ExtButton1 := TExtButton.Create; 73 | with ExtButton1.AddTo(Items) do 74 | begin 75 | Id := 'ExtWindow1_ExtButton1'; 76 | X := 40; 77 | Height := 27; 78 | Y := 252; 79 | Width := 76; 80 | Text := {$IFNDEF MSWINDOWS}AnsiToUTF8{$ENDIF}('Go'); 81 | On('click', Ajax(ExtButton1Click)); 82 | TooltipType := 'title'; 83 | end; 84 | 85 | -------------------------------------------------------------------------------- /ExtP_Toolkit/multiselect_example/unit1.lfm: -------------------------------------------------------------------------------- 1 | object ExtWindow1: TExtWindow1 2 | Left = 307 3 | Height = 300 4 | Top = 173 5 | Width = 400 6 | Title = 'MultiSelect Example' 7 | object ExtFormLabel2: TExtFormLabel 8 | Left = 136 9 | Height = 31 10 | Top = 256 11 | Width = 233 12 | Text = 'Nothing selected yet' 13 | end 14 | object ExtPanel1: TExtPanel 15 | Left = 17 16 | Height = 222 17 | Top = 12 18 | Width = 367 19 | object ExtFormLabel1: TExtFormLabel 20 | Left = 27 21 | Height = 17 22 | Top = 15 23 | Width = 320 24 | Text = 'Select an item from the list and click Go' 25 | end 26 | object ExtUxFormMultiSelect1: TExtUxFormMultiSelect 27 | Left = 14 28 | Height = 152 29 | Top = 42 30 | Width = 332 31 | StoreArray.Strings = ( 32 | 'Item 1' 33 | 'Item 2' 34 | 'Item 3' 35 | 'Item 4' 36 | 'Item 5' 37 | 'Item 6' 38 | 'Item 7' 39 | 'Item 8' 40 | 'Item 9' 41 | 'Item 10' 42 | 'Item 11' 43 | 'Item 12' 44 | 'Item 13' 45 | 'Item 14' 46 | 'Item 15' 47 | 'Item 16' 48 | 'Item 17' 49 | 'Item 18' 50 | 'Item 19' 51 | 'Item 20' 52 | ) 53 | end 54 | end 55 | object ExtButton1: TExtButton 56 | Left = 40 57 | Height = 27 58 | Top = 252 59 | Width = 76 60 | MinWidth = 76 61 | Text = 'Go' 62 | Click = ExtButton1Click 63 | end 64 | end 65 | -------------------------------------------------------------------------------- /ExtP_Toolkit/multiselect_example/unit1.lrs: -------------------------------------------------------------------------------- 1 | { This is an automatically generated lazarus resource file } 2 | 3 | LazarusResources.Add('TExtWindow1','FORMDATA',[ 4 | 'TPF0'#11'TExtWindow1'#10'ExtWindow1'#4'Left'#3'3'#1#6'Height'#3','#1#3'Top'#3 5 | +#173#0#5'Width'#3#144#1#5'Title'#6#19'MultiSelect Example'#0#13'TExtFormLabe' 6 | +'l'#13'ExtFormLabel2'#4'Left'#3#136#0#6'Height'#2#31#3'Top'#3#0#1#5'Width'#3 7 | +#233#0#4'Text'#6#20'Nothing selected yet'#0#0#9'TExtPanel'#9'ExtPanel1'#4'Le' 8 | +'ft'#2#17#6'Height'#3#222#0#3'Top'#2#12#5'Width'#3'o'#1#0#13'TExtFormLabel' 9 | +#13'ExtFormLabel1'#4'Left'#2#27#6'Height'#2#17#3'Top'#2#15#5'Width'#3'@'#1#4 10 | +'Text'#6')Select an item from the list and click Go'#0#0#21'TExtUxFormMultiS' 11 | +'elect'#21'ExtUxFormMultiSelect1'#4'Left'#2#14#6'Height'#3#152#0#3'Top'#2'*' 12 | +#5'Width'#3'L'#1#18'StoreArray.Strings'#1#6#6'Item 1'#6#6'Item 2'#6#6'Item 3' 13 | +#6#6'Item 4'#6#6'Item 5'#6#6'Item 6'#6#6'Item 7'#6#6'Item 8'#6#6'Item 9'#6#7 14 | +'Item 10'#6#7'Item 11'#6#7'Item 12'#6#7'Item 13'#6#7'Item 14'#6#7'Item 15'#6 15 | +#7'Item 16'#6#7'Item 17'#6#7'Item 18'#6#7'Item 19'#6#7'Item 20'#0#0#0#0#10'T' 16 | +'ExtButton'#10'ExtButton1'#4'Left'#2'('#6'Height'#2#27#3'Top'#3#252#0#5'Widt' 17 | +'h'#2'L'#8'MinWidth'#2'L'#4'Text'#6#2'Go'#5'Click'#7#15'ExtButton1Click'#0#0 18 | +#0 19 | ]); 20 | -------------------------------------------------------------------------------- /ExtP_Toolkit/multiselect_example/unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | interface 4 | 5 | uses 6 | SysUtils, Classes, 7 | {$IFDEF UseRuntime} 8 | Ext, ExtPascal, ExtPascalUtils, ExtForm, 9 | ExtData, ExtGrid, ExtUtil, ExtAir, ExtDd, 10 | ExtLayout, ExtMenu, ExtDirect, ExtState, ExtTree, 11 | ExtUxForm; 12 | 13 | type 14 | {$M+} 15 | TExtPanel_Tab = TExtPanel; 16 | TExtFormTextField_Grid = TExtFormTextField; 17 | TExtFormNumberField_Grid = TExtFormNumberField; 18 | TExtFormDateField_Grid = TExtFormDateField; 19 | TExtFormTimeField_Grid = TExtFormTimeField; 20 | TExtFormCheckbox_Grid = TExtFormCheckbox; 21 | TExtFormComboBox_Grid = TExtFormComboBox; 22 | {$M-} 23 | 24 | {$ELSE} 25 | ExtP_Design_Ctrls; 26 | {$ENDIF} 27 | 28 | type 29 | TExtWindow1 = class(TExtWindow) 30 | ExtPanel1: TExtPanel; 31 | ExtFormLabel1: TExtFormLabel; 32 | ExtUxFormMultiSelect1: TExtUxFormMultiSelect; 33 | ExtButton1: TExtButton; 34 | ExtFormLabel2: TExtFormLabel; 35 | procedure ExtButton1Click; 36 | private 37 | public 38 | constructor Create; 39 | procedure Show; 40 | procedure ExtButton1OnClick(This : TExtButton; E : TExtEventObjectSingleton); 41 | end; 42 | 43 | implementation 44 | 45 | uses 46 | AppThread; 47 | 48 | constructor TExtWindow1.Create; 49 | begin 50 | inherited; 51 | {$IFDEF UseRuntime} 52 | {$I unit1.inc} 53 | {$ENDIF} 54 | 55 | // Note that there are at least two other ways of handling the click event and 56 | // passing data to the event handler method on the server, as indicated here 57 | // in the commented out code. 58 | 59 | (* 60 | //Event set by converter (in .inc) doesn't pass any data, so add an event 61 | // that passes list box's selected items. Ignore converter's event below. 62 | ExtButton1.On('click', Ajax(ExtButton1Click, 63 | ['Selected', ExtUxFormMultiSelect1.GetValue])); 64 | *) 65 | 66 | (* 67 | ExtButton1.PurgeListeners; //Disable converter-generated event. 68 | ExtButton1.OnClick := ExtButton1OnClick; 69 | *) 70 | 71 | 72 | //If items not set in IDE, can set them here like this: 73 | // ExtUxFormMultiSelect1.StoreArray := JSArray('"Item 1", "Item 2"'); 74 | 75 | ExtUxFormMultiSelect1.Delimiter := #9; //Default comma could apear in item 76 | ExtUxFormMultiSelect1.MaxSelections := 1; 77 | end; 78 | 79 | procedure TExtWindow1.Show; 80 | begin 81 | inherited Show; 82 | end; 83 | 84 | procedure TExtWindow1.ExtButton1Click; 85 | var 86 | ItemStr : string; 87 | begin 88 | (* //This is used with On('click' above. 89 | if CurrentThread.Queries.IndexOfName('Selected') < 0 then {Not event we want?} 90 | Exit; 91 | 92 | ItemStr := CurrentThread.Query['Selected']; 93 | *) 94 | 95 | ItemStr := ExtUxFormMultiSelect1.JSString(ExtUxFormMultiSelect1.GetValue); 96 | 97 | if ItemStr = '' then 98 | begin 99 | ExtMessageBox.Alert('Error', 'You must select an item.'); 100 | Exit; 101 | end; 102 | 103 | if Pos(ExtUxFormMultiSelect1.Delimiter, ItemStr) > 0 then 104 | begin 105 | ExtMessageBox.Alert('Error', 'You can only select one item.'); 106 | Exit; 107 | end; 108 | 109 | ExtFormLabel2.Text := 'You selected ' + ItemStr; 110 | end; 111 | 112 | procedure TExtWindow1.ExtButton1OnClick(This : TExtButton; E : TExtEventObjectSingleton); 113 | begin 114 | ExtButton1Click; 115 | end; 116 | 117 | end. 118 | 119 | -------------------------------------------------------------------------------- /ExtPascalSamples/AdvancedTabs.pas: -------------------------------------------------------------------------------- 1 | unit AdvancedTabs; 2 | 3 | interface 4 | 5 | uses 6 | Ext; 7 | 8 | type 9 | TAdvancedTabs = class(TExtTabPanel) 10 | private 11 | TabIndex, Tabs : integer; 12 | procedure HandleExtButtonClick(This: TExtButton; E: TExtDirectEvent); 13 | public 14 | constructor Create; 15 | published 16 | procedure AddTab; 17 | end; 18 | 19 | implementation 20 | 21 | uses 22 | SysUtils, Session; 23 | 24 | procedure TAdvancedTabs.AddTab; begin // Ajax 25 | inc(TabIndex); 26 | with TExtPanel.AddTo(Items) do begin 27 | Title := 'New Tab ' + IntToStr(TabIndex); 28 | IconCls := 'tabs'; 29 | Html := 'Tab Body ' + IntToStr(TabIndex) + '

blahblah'; 30 | Closable := true; 31 | if SelfSession.IsAjax then begin 32 | Show; 33 | inc(Tabs); 34 | end; 35 | Free; 36 | end; 37 | // Tabs.ActiveTabNumber := TabIndex-1; 38 | end; 39 | 40 | constructor TAdvancedTabs.Create; 41 | var 42 | I : integer; 43 | begin 44 | inherited; 45 | with SelfSession do begin 46 | SetCodePress; 47 | SetStyle('.new-tab{background-image:url(' + ExtPath + '/examples/feed-viewer/images/new_tab.gif) !important}'); 48 | SetStyle('.tabs{background:url(' + ExtPath + '/examples/desktop/images/tabs.gif)}'); 49 | end; 50 | with TExtButton.Create do begin 51 | RenderTo := 'body'; 52 | Text := 'Add Tab using AJAX!'; 53 | IconCls := 'new-tab'; 54 | Handler := Ajax(AddTab); 55 | OnClick := HandleExtButtonClick; // Delphi style event handler 56 | end; 57 | RenderTo := 'body'; 58 | ActiveTab := 0; 59 | Resizable := true; // turn on tab resizing 60 | MinTabWidth := 115; 61 | Width := 600; 62 | Height := 150; 63 | AutoScroll := true; 64 | if Tabs = 0 then 65 | Tabs := 7 66 | else 67 | TabIndex := 0; 68 | for I := 1 to Tabs do AddTab; 69 | SelfSession.AddShowSourceButton(Buttons, 'AdvancedTabs'); 70 | end; 71 | 72 | procedure TAdvancedTabs.HandleExtButtonClick(This: TExtButton; E: TExtDirectEvent); begin 73 | ExtMessageBox.Alert('alert', 'event handled successfully'); 74 | end; 75 | 76 | end. 77 | -------------------------------------------------------------------------------- /ExtPascalSamples/BasicTabPanel.pas: -------------------------------------------------------------------------------- 1 | unit BasicTabPanel; 2 | 3 | interface 4 | 5 | uses 6 | Ext; 7 | 8 | type 9 | TBasicTabPanel = class(TExtWindow) 10 | constructor Create; 11 | end; 12 | 13 | implementation 14 | 15 | uses 16 | ExtPascalUtils, Session; 17 | 18 | constructor TBasicTabPanel.Create; begin 19 | inherited; 20 | SelfSession.SetCodePress; 21 | Title := 'Hello Dialog'; 22 | Layout := laFit; 23 | Plain := true; 24 | Width := 500; 25 | Height := 300; 26 | CloseAction := 'hide'; 27 | with TExtTabPanel.AddTo(Items) do begin 28 | ActiveTab := 0; 29 | with TExtPanel.AddTo(Items) do begin 30 | Title := 'Hello World 1'; 31 | Html := 'Hello...'; 32 | end; 33 | with TExtPanel.AddTo(Items) do begin 34 | Title := 'Hello World 2'; 35 | Html := '...World'; 36 | end; 37 | end; 38 | with TExtButton.AddTo(Buttons) do begin 39 | Text := 'Submit'; 40 | Disabled := true; 41 | end; 42 | with TExtButton.AddTo(Buttons) do begin 43 | Text := 'Close'; 44 | Handler := JSFunction('window.close()');// try this: Handler := Window.Close; for another effect. 45 | end; 46 | SelfSession.AddShowSourceButton(Buttons, 'BasicTabPanel'); 47 | end; 48 | 49 | end. 50 | -------------------------------------------------------------------------------- /ExtPascalSamples/EditableGrid.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalSamples/EditableGrid.pas -------------------------------------------------------------------------------- /ExtPascalSamples/ExtPascalSamples.dpr: -------------------------------------------------------------------------------- 1 | {$A1,B-,C-,D+,E-,F-,G+,H+,I+,J+,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V-,W-,X+,Y+,Z1} 2 | program ExtPascalSamples; 3 | 4 | {$IF Defined(MSWINDOWS) and not Defined(WebServer)} 5 | {$DEFINE DEFAULT}{$APPTYPE CONSOLE} 6 | {$IFEND} 7 | 8 | uses 9 | {$IFNDEF WebServer}FCGIApp,{$ELSE}IdExtHTTPServer,{$ENDIF} 10 | SysUtils, Classes, 11 | {$IFDEF DEFAULT}Services,{$ENDIF} ExtPascalUtils, Session; 12 | 13 | {$IFDEF DEFAULT} 14 | {$R UAC.res} // For Windows Vista services 15 | type 16 | TServiceThread = class(TThread) 17 | procedure Execute; override; 18 | end; 19 | 20 | procedure TServiceThread.Execute; begin 21 | Application.Run(Self) 22 | end; 23 | {$ENDIF} 24 | 25 | const 26 | ServerName = 'ExtPascalSamples'; 27 | 28 | begin 29 | {$IFDEF VER240} 30 | with TFormatSettings do begin 31 | {$ENDIF} 32 | DateSeparator := '/'; ShortDateFormat := 'd/M/yyyy'; 33 | TimeSeparator := ':'; ShortTimeFormat := 'hh:mm'; 34 | DecimalSeparator := '.'; 35 | {$IFDEF VER240} 36 | end; 37 | {$ENDIF} 38 | FileMode := fmShareDenyWrite + fmOpenReadWrite; 39 | {$IFDEF DEFAULT} 40 | Service := TService.Create(ServerName, ExtPascalVersion); 41 | with Service do try 42 | if Install then 43 | writeln('Service installed') 44 | else if Uninstall then 45 | writeln('Service uninstalled') 46 | else begin 47 | Application := CreateWebApplication(ServerName + ' ' + ExtPascalVersion, TSession, 2014); 48 | Application.Icon := 'ExtPascal.ico'; 49 | if Exists then 50 | Run([TServiceThread.Create(true)]) 51 | else 52 | Application.Run; 53 | end; 54 | except 55 | on E : Exception do ReportEventLog(EventError, 1, E.Message); 56 | end; 57 | {$ELSE} 58 | Application := CreateWebApplication(ServerName + ' ' + ExtPascalVersion, TSession, 2014); 59 | Application.Icon := 'ExtPascal.ico'; 60 | Application.Run; 61 | {$ENDIF} 62 | end. 63 | -------------------------------------------------------------------------------- /ExtPascalSamples/ExtPascalSamples.ini: -------------------------------------------------------------------------------- 1 | # CGI Gateway config file 2 | [FCGI] 3 | Enabled=1 4 | Execute=1 5 | Name= 6 | Host=localhost 7 | Port=2701 8 | Home= 9 | MaxConn=300 10 | MaxIdle=10 11 | AutoOff=1 12 | ExtPath=ext 13 | ImgPath=images 14 | ExtTheme=blue 15 | Password=extpascal 16 | InServers= 17 | -------------------------------------------------------------------------------- /ExtPascalSamples/FileUpload.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalSamples/FileUpload.pas -------------------------------------------------------------------------------- /ExtPascalSamples/LayoutWindow.pas: -------------------------------------------------------------------------------- 1 | unit LayoutWindow; 2 | 3 | interface 4 | 5 | uses 6 | Ext; 7 | 8 | type 9 | TLayoutWindow = class(TExtWindow) 10 | constructor Create; 11 | procedure ExtTabPanelOnTabchange(AThis : TExtTabPanel; NewTab, OldTab : TExtComponent); 12 | end; 13 | 14 | implementation 15 | 16 | uses 17 | Session, ExtPascalUtils; 18 | 19 | constructor TLayoutWindow.Create; 20 | var 21 | Tabs : TExtTabPanel; 22 | Nav : TExtPanel; 23 | begin 24 | inherited; 25 | SelfSession.SetCodePress; 26 | Tabs := TExtTabPanel.AddTo(Items); 27 | with Tabs do begin 28 | Region := reCenter; 29 | Margin := 3; 30 | Defaults := JSObject('autoScroll:true'); 31 | ActiveTab := 0; 32 | OnTabChange := ExtTabPanelOnTabchange; 33 | with TExtPanel.AddTo(Items) do begin 34 | Title := 'Bogus Tab'; 35 | Html := 'Blah blah blah'; 36 | end; 37 | with TExtPanel.AddTo(Items) do begin 38 | Title := 'Another Tab'; 39 | Html := 'Blah blah blah'; 40 | end; 41 | with TExtPanel.AddTo(Items) do begin 42 | Title := 'Closable Tab'; 43 | Html := 'Blah blah blah'; 44 | Closable := true; 45 | end; 46 | end; 47 | Nav := TExtPanel.Create; 48 | with Nav do begin 49 | Title := 'Navigation'; 50 | Region := reWest; 51 | Split := true; 52 | Width := 200; 53 | Collapsible := true; 54 | MarginString:= SetMargins(3, 0, 3, 3); 55 | end; 56 | Title := 'Layout Window'; 57 | Closable := true; 58 | Width := 600; 59 | Height := 350; 60 | Plain := true; 61 | Layout := laBorder; 62 | Modal := true; 63 | Nav.AddTo(Items); 64 | SelfSession.AddShowSourceButton(Buttons, 'LayoutWindow'); 65 | end; 66 | 67 | procedure TLayoutWindow.ExtTabPanelOnTabchange(AThis : TExtTabPanel; NewTab, OldTab : TExtComponent); begin 68 | ExtMessageBox.Alert('Active Tab is', TExtTabPanel(NewTab).Title); 69 | end; 70 | 71 | end. 72 | -------------------------------------------------------------------------------- /ExtPascalSamples/MessageBoxes.pas: -------------------------------------------------------------------------------- 1 | unit MessageBoxes; 2 | 3 | interface 4 | 5 | uses 6 | Ext; 7 | 8 | type 9 | TMessageBoxes = class(TExtPanel) 10 | private 11 | procedure ReadButtonJS; 12 | public 13 | constructor Create; 14 | published 15 | procedure ReadButtonAjax; 16 | end; 17 | 18 | implementation 19 | 20 | uses 21 | ExtPascalUtils, Session, Math; 22 | 23 | constructor TMessageBoxes.Create; 24 | var 25 | ShowConfig : TExtShowConfig; 26 | begin 27 | inherited; 28 | SelfSession.SetCodePress; 29 | Title := 'Message Boxes'; 30 | Width := IfThen(SelfSession.Browser = brChrome, 850, 815); 31 | RenderTo := 'body'; 32 | Frame := true; 33 | with TExtButton.AddTo(Buttons) do begin 34 | Text := 'Alert Dialog'; 35 | Handler := ExtMessageBox.Alert('Status', 'Changes saved succesfully', Ajax(ReadButtonAjax, ['ButtonID', '%0'])); 36 | end; 37 | with TExtButton.AddTo(Buttons) do begin 38 | Text := 'Confirm Message'; 39 | Handler := ExtMessageBox.Confirm('Confirm', 'Are you sure?', JSFunction(ReadButtonJS)); 40 | end; 41 | with TExtButton.AddTo(Buttons) do begin 42 | Text := 'Prompt Dialog'; 43 | Handler := ExtMessageBox.Prompt('Name', 'Please enter your name:', JSFunction(ReadButtonJS)); 44 | end; 45 | with TExtButton.AddTo(Buttons) do begin 46 | Id := 'ButtonMultiline'; 47 | Text := 'Multi-line prompt dialog'; 48 | ShowConfig := TExtShowConfig.Create; 49 | with ShowConfig do begin 50 | Title := 'Address'; 51 | Msg := 'Please enter your address:'; 52 | Width := 300; 53 | Buttons := ExtMessageBox.OKCANCEL; 54 | Multiline := true; 55 | AnimateTarget := 'ButtonMultiline'; 56 | Fn := JSFunction(ReadButtonJS); 57 | end; 58 | Handler := ExtMessageBox.Show(ShowConfig); 59 | end; 60 | ShowConfig.Free; 61 | with TExtButton.AddTo(Buttons) do begin 62 | Id := 'Yes/No/Cancel Dialog'; 63 | Text := Id; 64 | ShowConfig := TExtShowConfig.Create; 65 | with ShowConfig do begin 66 | Title := 'Save Changes?'; 67 | Msg := 'You are closing a tab that has unsaved changes.
Would you like to save your changes?'; 68 | Icon := ExtMessageBox.QUESTION; 69 | Buttons := ExtMessageBox.YESNOCANCEL; 70 | AnimateTarget := Id; 71 | Fn := Ajax(ReadButtonAjax, ['ButtonID', '%0']); 72 | end; 73 | Handler := ExtMessageBox.Show(ShowConfig); 74 | ShowConfig.Free; 75 | end; 76 | with TExtButton.AddTo(Buttons) do begin 77 | Id := 'Progress Dialog'; 78 | Text := Id; 79 | ShowConfig := TExtShowConfig.Create; 80 | with ShowConfig do begin 81 | Title := 'Please wait'; 82 | Width := 300; 83 | Progress := true; 84 | Msg := 'Loading items...'; 85 | Wait := true; 86 | AnimateTarget := Id; 87 | ProgressText := 'Loading...'; 88 | WaitConfig := TExtWaitConfig.Create; 89 | with WaitConfig do begin 90 | Duration := 5000; 91 | Interval := 500; 92 | Increment := 11; 93 | Fn := ExtMessageBox.Alert('Ok', 'Items loaded.'); 94 | Free; 95 | end; 96 | end; 97 | Handler := ExtMessageBox.Show(ShowConfig); 98 | ShowConfig.Free; 99 | end; 100 | SelfSession.SetStyle('.x-window-dlg .ext-mb-download{background:transparent ' + 101 | 'url(' + SelfSession.ExtPath + '/examples/message-box/images/download.gif) no-repeat top left; height:46px}'); 102 | with TExtButton.AddTo(Buttons) do begin 103 | Id := 'Wait Dialog'; 104 | Text := Id; 105 | ShowConfig := TExtShowConfig.Create; 106 | with ShowConfig do begin 107 | Msg := 'Saving your data, please wait...'; 108 | Width := 300; 109 | Wait := true; 110 | Icon := 'ext-mb-download'; 111 | AnimateTarget := Id; 112 | ProgressText := 'Saving...'; 113 | WaitConfig := TExtWaitConfig.Create; 114 | with WaitConfig do begin 115 | Duration := 5000; 116 | Interval := 500; 117 | Fn := ExtMessageBox.Hide; 118 | Free; 119 | end; 120 | end; 121 | Handler := ExtMessageBox.Show(ShowConfig); 122 | ShowConfig.Free; 123 | end; 124 | SelfSession.AddShowSourceButton(Buttons, 'MessageBoxes'); 125 | end; 126 | 127 | procedure TMessageBoxes.ReadButtonAjax; begin 128 | ExtMessageBox.Alert('AJAX: Button clicked', 'You clicked the "' + SelfSession.Query['ButtonID'] + '" button') 129 | end; 130 | 131 | procedure TMessageBoxes.ReadButtonJS; begin 132 | ExtMessageBox.Alert('Browser Side: Button clicked', 'You clicked the "%0" button') 133 | end; 134 | 135 | end. 136 | -------------------------------------------------------------------------------- /ExtPascalSamples/SimpleLogin.pas: -------------------------------------------------------------------------------- 1 | unit SimpleLogin; 2 | 3 | interface 4 | 5 | uses 6 | Ext; 7 | 8 | type 9 | TSimpleLogin = class(TExtWindow) 10 | constructor Create; 11 | published 12 | procedure CheckLogin; 13 | end; 14 | 15 | implementation 16 | 17 | uses 18 | StrUtils, Session, ExtPascalUtils, ExtForm; 19 | 20 | procedure TSimpleLogin.CheckLogin; begin 21 | // if true {user account verification should be done here} then 22 | with TExtWindow.Create do begin 23 | Title := 'Login'; 24 | Width := 380; 25 | Height := 140; 26 | Plain := true; 27 | Layout := lyFit; 28 | Closable := false; 29 | with TExtPanel.AddTo(Items), SelfSession do begin 30 | Border := false; 31 | BodyStyle := SetPaddings(5, 8); 32 | HTML := 'Welcome, ' + AnsiReplaceStr(Query['UserName'], ' ', '  ') + 33 | '.
Password: ' + AnsiReplaceStr(Query['Password'], ' ', '  '); 34 | AddShowSourceButton(Buttons, 'SimpleLogin', 'CheckLogin'); 35 | end; 36 | Show; 37 | end 38 | // else 39 | // ExtMessageBox.Alert('Unknown', 'User is not known.'); 40 | end; 41 | 42 | constructor TSimpleLogin.Create; 43 | var 44 | UserName, Password : TExtFormTextField; 45 | begin 46 | inherited; 47 | SelfSession.SetCodePress; 48 | Title := 'Login'; 49 | Width := 366; 50 | Height := 137; 51 | Plain := true; 52 | Layout := lyFit; 53 | Closable := false; 54 | with TExtFormFormPanel.AddTo(Items) do begin 55 | LabelWidth := 70; 56 | Border := false; 57 | XType := xtForm; 58 | ButtonAlign := baRight; 59 | BodyStyle := SetPaddings(5, 5); 60 | DefaultType := xtTextField; 61 | Defaults := JSObject('width: 250'); 62 | UserName := TExtFormTextField.Create; 63 | Frame := true; 64 | with UserName.AddTo(Items) do begin 65 | Name := 'user'; 66 | FieldLabel := 'Username'; 67 | InputType := itText; 68 | end; 69 | Password := TExtFormTextField.Create; 70 | with Password.AddTo(Items) do begin 71 | Name := 'pass'; 72 | FieldLabel := 'Password'; 73 | InputType := itPassword; 74 | end; 75 | with TExtButton.AddTo(Buttons) do begin 76 | Text := 'LOGIN'; 77 | Handler := Ajax(CheckLogin, ['UserName', UserName.GetValue, 'Password', Password.GetValue]); 78 | end; 79 | SelfSession.AddShowSourceButton(Buttons, 'SimpleLogin'); 80 | end; 81 | end; 82 | 83 | end. 84 | -------------------------------------------------------------------------------- /ExtPascalSamples/UAC.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalSamples/UAC.res -------------------------------------------------------------------------------- /ExtPascalUML/Designer.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/Designer.pas -------------------------------------------------------------------------------- /ExtPascalUML/ExtPascalUML.EAP: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/ExtPascalUML.EAP -------------------------------------------------------------------------------- /ExtPascalUML/ExtPascalUML.dat: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/ExtPascalUML.dat -------------------------------------------------------------------------------- /ExtPascalUML/ExtPascalUML.dpr: -------------------------------------------------------------------------------- 1 | program ExtPascalUML; 2 | 3 | uses 4 | FCGIApp, ExtPascal, ExtPascalUtils, SysUtils, Classes, {$IFDEF MSWINDOWS}Services,{$ENDIF} 5 | epPrevalence, epUtils, epThread, epModel, epServer, epSupportGDB; 6 | 7 | {$IFDEF MSWINDOWS} 8 | type 9 | TServiceThread = class(TThread) 10 | procedure Execute; override; 11 | end; 12 | 13 | procedure TServiceThread.Execute; begin 14 | Application.Run(Self) 15 | end; 16 | {$ENDIF} 17 | 18 | begin 19 | DateSeparator := '/'; ShortDateFormat := 'd/M/yyyy'; 20 | TimeSeparator := ':'; ShortTimeFormat := 'hh:mm'; 21 | FileMode := fmShareDenyWrite + fmOpenReadWrite; 22 | {$IFDEF MSWINDOWS} 23 | Service := TService.Create(ServerName, ExtPascalVersion + ' - ' + GetEnvironment); 24 | with Service do try 25 | if Install then 26 | writeln('Service installed') 27 | else if Uninstall then 28 | writeln('Service uninstalled') 29 | else begin 30 | Prevalence := TPrevalence.Create(ServerName); 31 | Application := TFCGIApplication.Create(ServerName + ' ' + ExtPascalVersion + ' - ' + GetEnvironment, TepThread, StrToInt(GetIniParameter('Connection', 'Port', '2015'))); 32 | NoService := not Exists; 33 | Recover; 34 | if Exists then 35 | Run([TServiceThread.Create(true)]) 36 | else 37 | Application.Run; 38 | Snapshot; 39 | end; 40 | except 41 | on E : Exception do ReportEventLog(EventError, 1, E.Message); 42 | end; 43 | {$ELSE} 44 | Prevalence := TPrevalence.Create(ServerName); 45 | Application := TFCGIApplication.Create(ServerName + ' ' + ExtPascalVersion + ' - ' + GetEnvironment, TepThread, StrToInt(GetIniParameter('Connection', 'Port', '2015'))); 46 | Recover; 47 | Application.Run; 48 | Snapshot; 49 | {$ENDIF} 50 | end. 51 | -------------------------------------------------------------------------------- /ExtPascalUML/ExtPascalUML.ini: -------------------------------------------------------------------------------- 1 | [CONNECTION] 2 | PORT=2016 3 | SERVER=127.0.0.1 4 | [DIRECTORY] 5 | SNAPSHOT= 6 | BACKUP= 7 | LOG= 8 | [SERVER] 9 | ENVIRONMENT=Development 10 | TITLE=ExtPascalUML 11 | DEFAULTDOMAIN= 12 | EMAILSERVER= 13 | SECURITY=FALSE 14 | -------------------------------------------------------------------------------- /ExtPascalUML/ExtPascalUMLModel.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/ExtPascalUMLModel.pas -------------------------------------------------------------------------------- /ExtPascalUML/PipesDelphi.inc: -------------------------------------------------------------------------------- 1 | { 2 | This file is part of the Free Pascal run time library. 3 | Copyright (c) 1998 by Michael Van Canneyt 4 | 5 | Win part of pipe stream. 6 | 7 | See the file COPYING.FPC, included in this distribution, 8 | for details about the copyright. 9 | 10 | This program is distributed in the hope that it will be useful, 11 | but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 13 | 14 | **********************************************************************} 15 | 16 | uses windows; 17 | 18 | Const piInheritablePipe : TSecurityAttributes = ( 19 | nlength:SizeOF(TSecurityAttributes); 20 | lpSecurityDescriptor:Nil; 21 | Binherithandle:True); 22 | piNonInheritablePipe : TSecurityAttributes = ( 23 | nlength:SizeOF(TSecurityAttributes); 24 | lpSecurityDescriptor:Nil; 25 | Binherithandle:False); 26 | 27 | 28 | PipeBufSize = 1024; 29 | 30 | 31 | Function CreatePipeHandles (Var Inhandle,OutHandle : THandle) : Boolean; 32 | 33 | begin 34 | Result := CreatePipe (Inhandle,OutHandle,@piInheritablePipe,PipeBufSize); 35 | end; 36 | 37 | 38 | Function TInputPipeStream.GetNumBytesAvailable: DWord; 39 | begin 40 | if not PeekNamedPipe(Handle, nil, 0, nil, @Result, nil) then 41 | Result := 0; 42 | end; 43 | 44 | -------------------------------------------------------------------------------- /ExtPascalUML/PipesDelphi.pas: -------------------------------------------------------------------------------- 1 | { 2 | This file is part of the Free Pascal run time library. 3 | Copyright (c) 1999-2000 by Michael Van Canneyt 4 | 5 | Implementation of pipe stream. 6 | 7 | See the file COPYING.FPC, included in this distribution, 8 | for details about the copyright. 9 | 10 | This program is distributed in the hope that it will be useful, 11 | but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 13 | 14 | **********************************************************************} 15 | 16 | { $mode objfpc} 17 | 18 | Unit PipesDelphi; 19 | 20 | Interface 21 | 22 | Uses sysutils,Classes; 23 | 24 | Type 25 | EPipeError = Class(EStreamError); 26 | ENoReadPipe = Class(EPipeError); 27 | ENoWritePipe = Class (EPipeError); 28 | EPipeSeek = Class (EPipeError); 29 | EPipeCreation = Class (EPipeError); 30 | DWord = cardinal; 31 | 32 | { TInputPipeStream } 33 | 34 | TInputPipeStream = Class(THandleStream) 35 | Private 36 | FPos : Int64; 37 | function GetNumBytesAvailable: DWord; 38 | public 39 | Function Write (Const Buffer; Count : Longint) :Longint; Override; 40 | Function Seek (Offset : Longint;Origin : Word) : longint;override; 41 | Function Read (Var Buffer; Count : Longint) : longint; Override; 42 | property NumBytesAvailable: DWord read GetNumBytesAvailable; 43 | end; 44 | 45 | TOutputPipeStream = Class(THandleStream) 46 | Public 47 | Function Seek (Offset : Longint;Origin : Word) : longint;override; 48 | Function Read (Var Buffer; Count : Longint) : longint; Override; 49 | end; 50 | 51 | Function CreatePipeHandles (Var Inhandle,OutHandle : THandle) : Boolean; 52 | Procedure CreatePipeStreams (Var InPipe : TInputPipeStream; 53 | Var OutPipe : TOutputPipeStream); 54 | 55 | Const EPipeMsg = 'Failed to create pipe.'; 56 | ENoReadMSg = 'Cannot read from OuputPipeStream.'; 57 | ENoWriteMsg = 'Cannot write to InputPipeStream.'; 58 | ENoSeekMsg = 'Cannot seek on pipes'; 59 | 60 | 61 | Implementation 62 | 63 | {$i PipesDelphi.inc} 64 | 65 | Procedure CreatePipeStreams (Var InPipe : TInputPipeStream; 66 | Var OutPipe : TOutputPipeStream); 67 | 68 | Var InHandle,OutHandle : THandle; 69 | 70 | begin 71 | if CreatePipeHandles (InHandle, OutHandle) then 72 | begin 73 | InPipe:=TInputPipeStream.Create (InHandle); 74 | OutPipe:=TOutputPipeStream.Create (OutHandle); 75 | end 76 | Else 77 | Raise EPipeCreation.Create (EPipeMsg) 78 | end; 79 | 80 | Function TInputPipeStream.Write (Const Buffer; Count : Longint) : longint; 81 | 82 | begin 83 | Raise ENoWritePipe.Create (ENoWriteMsg); 84 | end; 85 | 86 | Function TInputPipeStream.Read (Var Buffer; Count : Longint) : longint; 87 | 88 | begin 89 | Result:=Inherited Read(Buffer,Count); 90 | Inc(FPos,Result); 91 | end; 92 | 93 | Function TInputPipeStream.Seek (Offset : Longint;Origin : Word) : longint; 94 | 95 | Const BufSize = 100; 96 | 97 | Var Buf : array[1..BufSize] of Byte; 98 | 99 | begin 100 | { Try to fake seek by reading and discarding } 101 | if Not((Origin=soFromCurrent) and (Offset>=0) or 102 | ((Origin=soFrombeginning) and (OffSet>=FPos))) then 103 | Raise EPipeSeek.Create(ENoSeekMSg); 104 | if Origin=soFromBeginning then 105 | Dec(Offset,FPos); 106 | While ((Offset Div BufSize)>0) 107 | and (Read(Buf,SizeOf(Buf))=BufSize) do 108 | Dec(Offset,BufSize); 109 | If (Offset>0) then 110 | Read(Buf,BufSize); 111 | Result:=FPos; 112 | end; 113 | 114 | Function TOutputPipeStream.Read(Var Buffer; Count : Longint) : longint; 115 | 116 | begin 117 | Raise ENoReadPipe.Create (ENoReadMsg); 118 | end; 119 | 120 | Function TOutputPipeStream.Seek (Offset : Longint;Origin : Word) : longint; 121 | 122 | begin 123 | Raise EPipeSeek.Create (ENoSeekMsg); 124 | end; 125 | 126 | end. 127 | -------------------------------------------------------------------------------- /ExtPascalUML/epCommon.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/epCommon.pas -------------------------------------------------------------------------------- /ExtPascalUML/epDesignerServer.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/epDesignerServer.pas -------------------------------------------------------------------------------- /ExtPascalUML/epDirectives.inc: -------------------------------------------------------------------------------- 1 | {$IFDEF DEBUG}{$D+}{$ELSE}{$D-}{$ENDIF} 2 | {$IFDEF FPC}{$PACKRECORDS 1}{$Z1}{$PACKSET 1}{$define tkLString:=tkAString}{$ENDIF} 3 | -------------------------------------------------------------------------------- /ExtPascalUML/epGDB.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/epGDB.pas -------------------------------------------------------------------------------- /ExtPascalUML/epGenerator.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/epGenerator.pas -------------------------------------------------------------------------------- /ExtPascalUML/epImporter.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/epImporter.pas -------------------------------------------------------------------------------- /ExtPascalUML/epModel.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/epModel.pas -------------------------------------------------------------------------------- /ExtPascalUML/epObjectList.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/epObjectList.pas -------------------------------------------------------------------------------- /ExtPascalUML/epPrevalence.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/epPrevalence.pas -------------------------------------------------------------------------------- /ExtPascalUML/epProperties.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/epProperties.pas -------------------------------------------------------------------------------- /ExtPascalUML/epScheduler.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/epScheduler.pas -------------------------------------------------------------------------------- /ExtPascalUML/epServer.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/epServer.pas -------------------------------------------------------------------------------- /ExtPascalUML/epStateMachine.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/epStateMachine.pas -------------------------------------------------------------------------------- /ExtPascalUML/epSupportGDB.pas: -------------------------------------------------------------------------------- 1 | unit epSupportGDB; 2 | 3 | interface 4 | 5 | function Length(A : pchar): integer; cdecl; 6 | function Equal(A, B : pchar): boolean; cdecl; 7 | function Diff(A, B : pchar): boolean; cdecl; 8 | function Pos(A, B : pchar): integer; cdecl; 9 | 10 | implementation 11 | 12 | function Length(A : pchar): integer; cdecl; begin 13 | Result := system.length(ansistring(A)) 14 | end; 15 | 16 | function Equal(A, B : pchar): boolean; cdecl; begin 17 | Result := ansistring(A) = ansistring(B) 18 | end; 19 | 20 | function Diff(A, B : pchar): boolean; cdecl; begin 21 | Result := ansistring(A) <> ansistring(B) 22 | end; 23 | 24 | function Pos(A, B : pchar): integer; cdecl; begin 25 | Result := system.pos(ansistring(A), ansistring(B)) 26 | end; 27 | 28 | begin 29 | Length(nil); 30 | Equal(nil, nil); // force link functions 31 | Diff(nil, nil); 32 | Pos(nil, nil); 33 | end. 34 | -------------------------------------------------------------------------------- /ExtPascalUML/epThread.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/epThread.pas -------------------------------------------------------------------------------- /ExtPascalUML/epWorkFlow.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/epWorkFlow.pas -------------------------------------------------------------------------------- /ExtPascalUML/images/abstract.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/abstract.png -------------------------------------------------------------------------------- /ExtPascalUML/images/abstract1.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/abstract1.png -------------------------------------------------------------------------------- /ExtPascalUML/images/add.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/add.png -------------------------------------------------------------------------------- /ExtPascalUML/images/addfavourite.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/addfavourite.png -------------------------------------------------------------------------------- /ExtPascalUML/images/advance.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/advance.png -------------------------------------------------------------------------------- /ExtPascalUML/images/back.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/back.png -------------------------------------------------------------------------------- /ExtPascalUML/images/cancel.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/cancel.png -------------------------------------------------------------------------------- /ExtPascalUML/images/commit.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/commit.png -------------------------------------------------------------------------------- /ExtPascalUML/images/delete.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/delete.png -------------------------------------------------------------------------------- /ExtPascalUML/images/edit.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/edit.png -------------------------------------------------------------------------------- /ExtPascalUML/images/execute.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/execute.png -------------------------------------------------------------------------------- /ExtPascalUML/images/exit.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/exit.png -------------------------------------------------------------------------------- /ExtPascalUML/images/filter.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/filter.png -------------------------------------------------------------------------------- /ExtPascalUML/images/find.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/find.png -------------------------------------------------------------------------------- /ExtPascalUML/images/first.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/first.png -------------------------------------------------------------------------------- /ExtPascalUML/images/format.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/format.png -------------------------------------------------------------------------------- /ExtPascalUML/images/gotofavourite.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/gotofavourite.png -------------------------------------------------------------------------------- /ExtPascalUML/images/help.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/help.png -------------------------------------------------------------------------------- /ExtPascalUML/images/info.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/info.png -------------------------------------------------------------------------------- /ExtPascalUML/images/last.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/last.png -------------------------------------------------------------------------------- /ExtPascalUML/images/logofreepascal.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/logofreepascal.jpg -------------------------------------------------------------------------------- /ExtPascalUML/images/logoturbodelphi.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/logoturbodelphi.jpg -------------------------------------------------------------------------------- /ExtPascalUML/images/next.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/next.png -------------------------------------------------------------------------------- /ExtPascalUML/images/nextpage.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/nextpage.png -------------------------------------------------------------------------------- /ExtPascalUML/images/objects.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/objects.png -------------------------------------------------------------------------------- /ExtPascalUML/images/objects1.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/objects1.png -------------------------------------------------------------------------------- /ExtPascalUML/images/package.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/package.png -------------------------------------------------------------------------------- /ExtPascalUML/images/pitbrowser.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/pitbrowser.jpg -------------------------------------------------------------------------------- /ExtPascalUML/images/pitinnu.html: -------------------------------------------------------------------------------- 1 | pitinnu - When less is Superior 2 |
3 | 1. Melhor contagem de pontos de função;
4 | 2. Versões nativas multiplataforma para MacOS X (Carbon), Linux e FreeBSD (GTK2 e Qt);
5 | 3. Acesso, via Web, com Firefox e IE através de plugins;
6 | 4. Gerador de relatórios e gráficos;
7 | 5. Auditoria;
8 | 6. Suporte à internacionalização;
9 | 7. Clusterização e load-balance;
10 | 8. Integração com SGBDs relacionais;
11 | 9. Comparador visual de modelos;
12 | 10.Certificação digital.
13 |
14 | O que é o pitbrowser?
15 | 16 |
17 | O pitbrowser é uma interface para manipulação de dados, informações e processos de negócios que permite aos usuários desenvolverem suas atividades profissionais de forma mais intuitiva e prática.
18 |
19 | O pitbrowser se adapta ao usuário, oferecendo-lhe, sob a forma de Tarefas, as atividades pertinentes ao desenvolvimento de seus trabalhos de acordo com o perfil de cada um e de forma independente dos sistemas de origem.
20 |
21 | Ao invés de "navegar" em inúmeros sistemas, telas e opções de menus para se chegar a um resultado, o pitbrowser simplifica o dia a dia de seus usuários, apresentando-lhes as Tarefas que de fato fazem parte de sua rotina, de forma padronizada e objetiva.
22 |
23 | Na medida em que mais "pacotes de negócios" sejam desenvolvidos e colocados em produção, estes apresentarão suas Tarefas, via pitbrowser, para os usuários pertinentes, sob a forma de Wizards (Assistentes) e Workflows (Fluxos de Trabalho).
24 |
25 | Sugestões, Dúvidas e Informe de Erros acesse: pitinnu Support
26 |
27 | Recursos projetados para as próximas versões
28 | 29 | 30 | -------------------------------------------------------------------------------- /ExtPascalUML/images/pitinnu.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/pitinnu.ico -------------------------------------------------------------------------------- /ExtPascalUML/images/pitinnu.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/pitinnu.png -------------------------------------------------------------------------------- /ExtPascalUML/images/pitinnu16.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/pitinnu16.ico -------------------------------------------------------------------------------- /ExtPascalUML/images/pitinnu24.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/pitinnu24.png -------------------------------------------------------------------------------- /ExtPascalUML/images/pitinnu32.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/pitinnu32.png -------------------------------------------------------------------------------- /ExtPascalUML/images/pitinnu_install.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/pitinnu_install.jpg -------------------------------------------------------------------------------- /ExtPascalUML/images/previous.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/previous.png -------------------------------------------------------------------------------- /ExtPascalUML/images/prevpage.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/prevpage.png -------------------------------------------------------------------------------- /ExtPascalUML/images/print.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/print.png -------------------------------------------------------------------------------- /ExtPascalUML/images/refresh.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/refresh.png -------------------------------------------------------------------------------- /ExtPascalUML/images/task.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/task.png -------------------------------------------------------------------------------- /ExtPascalUML/images/upclass.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/ExtPascalUML/images/upclass.png -------------------------------------------------------------------------------- /ExtPascalUML/ux/Ext.ux.form.LovCombo-debug.css: -------------------------------------------------------------------------------- 1 | /** vim: ts=4:sw=4:nu:fdc=4:nospell 2 | * 3 | * Ext.ux.form.LovCombo CSS File 4 | * 5 | * @author Ing.Jozef Sakáloš 6 | * @copyright (c) 2008, by Ing. Jozef Sakáloš 7 | * @date 5. April 2008 8 | * @version $Id: Ext.ux.form.LovCombo.css 189 2008-04-16 21:01:06Z jozo $ 9 | * 10 | * @license Ext.ux.form.LovCombo.css is licensed under the terms of the Open Source 11 | * LGPL 3.0 license. Commercial use is permitted to the extent that the 12 | * code/component(s) do NOT become part of another Open Source or Commercially 13 | * licensed development library or toolkit without explicit permission. 14 | * 15 | * License details: http://www.gnu.org/licenses/lgpl.html 16 | */ 17 | 18 | .ux-lovcombo-icon { 19 | width:16px; 20 | height:16px; 21 | float:left; 22 | background-position: -1px -1px ! important; 23 | background-repeat:no-repeat ! important; 24 | } 25 | .ux-lovcombo-icon-checked { 26 | background: transparent url(../ext/resources/images/default/menu/checked.gif); 27 | } 28 | .ux-lovcombo-icon-unchecked { 29 | background: transparent url(../ext/resources/images/default/menu/unchecked.gif); 30 | } 31 | 32 | /* eof */ 33 | -------------------------------------------------------------------------------- /ExtPascalUML/ux/Ext.ux.form.LovCombo.css: -------------------------------------------------------------------------------- 1 | .ux-lovcombo-icon{width:16px;height:16px;float:left;background-position:-1px-1px!important;background-repeat:no-repeat!important}.ux-lovcombo-icon-checked{background:transparent url(../ext/resources/images/default/menu/checked.gif)}.ux-lovcombo-icon-unchecked{background:transparent url(../ext/resources/images/default/menu/unchecked.gif)} -------------------------------------------------------------------------------- /ExtPascalUML/ux/Ext.ux.form.LovCombo.js: -------------------------------------------------------------------------------- 1 | if('function'!==typeof RegExp.escape){RegExp.escape=function(s){if('string'!==typeof s){return s}return s.replace(/([.*+?^=!:${}()|[\]\/\\])/g,'\\$1')}}Ext.ns('Ext.ux.form');Ext.ux.form.LovCombo=Ext.extend(Ext.form.ComboBox,{checkField:'checked',separator:',',initComponent:function(){if(!this.tpl){this.tpl=''+'
'+''+'
{'+(this.displayField||'text')+'}
'+'
'+''}Ext.ux.form.LovCombo.superclass.initComponent.apply(this,arguments);this.on({scope:this,beforequery:this.onBeforeQuery,blur:this.onRealBlur});this.onLoad=this.onLoad.createSequence(function(){if(this.el){var v=this.el.dom.value;this.el.dom.value='';this.el.dom.value=v}})},initEvents:function(){Ext.ux.form.LovCombo.superclass.initEvents.apply(this,arguments);this.keyNav.tab=false},clearValue:function(){this.value='';this.setRawValue(this.value);this.store.clearFilter();this.store.each(function(r){r.set(this.checkField,false)},this);if(this.hiddenField){this.hiddenField.value=''}this.applyEmptyText()},getCheckedDisplay:function(){var a=new RegExp(this.separator,"g");return this.getCheckedValue(this.displayField).replace(a,this.separator+' ')},getCheckedValue:function(a){a=a||this.valueField;var c=[];var b=this.store.snapshot||this.store.data;b.each(function(r){if(r.get(this.checkField)){c.push(r.get(a))}},this);return c.join(this.separator)},onBeforeQuery:function(a){a.query=a.query.replace(new RegExp(this.getCheckedDisplay()+'[ '+this.separator+']*'),'')},onRealBlur:function(){this.list.hide();var a=this.getRawValue();var b=a.split(new RegExp(RegExp.escape(this.separator)+' *'));var c=[];var d=this.store.snapshot||this.store.data;Ext.each(b,function(v){d.each(function(r){if(v===r.get(this.displayField)){c.push(r.get(this.valueField))}},this)},this);this.setValue(c.join(this.separator));this.store.clearFilter()},onSelect:function(a,b){if(this.fireEvent('beforeselect',this,a,b)!==false){a.set(this.checkField,!a.get(this.checkField));if(this.store.isFiltered()){this.doQuery(this.allQuery)}this.setValue(this.getCheckedValue());this.fireEvent('select',this,a,b)}},setValue:function(v){if(v){v=''+v;if(this.valueField){this.store.clearFilter();this.store.each(function(r){var a=!(!v.match('(^|'+this.separator+')'+RegExp.escape(r.get(this.valueField))+'('+this.separator+'|$)'));r.set(this.checkField,a)},this);this.value=this.getCheckedValue();this.setRawValue(this.getCheckedDisplay());if(this.hiddenField){this.hiddenField.value=this.value}}else{this.value=v;this.setRawValue(v);if(this.hiddenField){this.hiddenField.value=v}}if(this.el){this.el.removeClass(this.emptyClass)}}else{this.clearValue()}},selectAll:function(){this.store.each(function(a){a.set(this.checkField,true)},this);this.doQuery(this.allQuery);this.setValue(this.getCheckedValue())},deselectAll:function(){this.clearValue()}});Ext.reg('lovcombo',Ext.ux.form.LovCombo); -------------------------------------------------------------------------------- /ExtPascalUML/ux/Ext.ux.grid.RecordForm-debug.css: -------------------------------------------------------------------------------- 1 | /** vim: ts=4:sw=4:nu:fdc=4:nospell 2 | * 3 | * recordform css file 4 | * 5 | * @author Ing.Jozef Sakáloš 6 | * @copyright (c) 2008, by Ing. Jozef Sakáloš 7 | * @date 5. April 2008 8 | * @version $Id: recordform.css 187 2008-04-16 00:03:34Z jozo $ 9 | */ 10 | 11 | #west-content a { 12 | text-decoration:none; 13 | } 14 | #west-content a:hover { 15 | text-decoration:underline; 16 | } 17 | #west { 18 | width:280px; 19 | } 20 | #center { 21 | width:640px; 22 | } 23 | #adsense-top { 24 | margin: 10px 0 10px 0; 25 | } 26 | #west-content { 27 | font-family:arial, sans-serif; 28 | } 29 | #description { 30 | color:#777777; 31 | text-align:justify; 32 | } 33 | #description em { 34 | font-style:italic; 35 | font-weight:bold; 36 | } 37 | #description p { 38 | margin: 2px 0 8px 0; 39 | } 40 | .ux-grid3-dirty-row { 41 | background:#ffffa8; 42 | } 43 | .ux-grid3-new-row { 44 | background:#c8ffc8; 45 | } 46 | /* eof */ 47 | 48 | -------------------------------------------------------------------------------- /ExtPascalUML/ux/Ext.ux.grid.RecordForm.css: -------------------------------------------------------------------------------- 1 | #west-content a{text-decoration:none}#west-content a:hover{text-decoration:underline}#west{width:280px}#center{width:640px}#adsense-top{margin:10px 0 10px 0}#west-content{font-family:arial,sans-serif}#description{color:#777777;text-align:justify}#description em{font-style:italic;font-weight:bold}#description p{margin:2px 0 8px 0}.ux-grid3-dirty-row{background:#ffffa8}.ux-grid3-new-row{background:#c8ffc8} -------------------------------------------------------------------------------- /ExtPascalUML/ux/Ext.ux.grid.RecordForm.js: -------------------------------------------------------------------------------- 1 | Ext.ns('Ext.ux.grid');Ext.ux.grid.RecordForm=function(a){Ext.apply(this,a);Ext.ux.grid.RecordForm.superclass.constructor.call(this)};Ext.extend(Ext.ux.grid.RecordForm,Ext.util.Observable,{autoHide:true,cancelIconCls:'icon-cancel',cancelText:'Cancel',columnCount:1,defaultFormConfig:{border:false,frame:true,autoHeight:true,labelWidth:100},defaultWindowConfig:{border:false,width:480,autoHeight:true,layout:'fit',closeAction:'hide',modal:true,plugins:[new Ext.ux.IconMenu({defaultItems:[]})]},dirtyRowCls:'ux-grid3-dirty-row',focusDefer:200,mapping:{'auto':'textfield','boolean':'checkbox','date':'datefield','float':'numberfield','int':'numberfield','string':'textfield'},newRowCls:'ux-grid3-new-row',okIconCls:'icon-ok',okText:'OK',showButtons:true,init:function(a){a.afterRender=a.afterRender.createSequence(function(){if('function'===typeof a.view.getRowClass){a.view.getRowClass=a.view.getRowClass.createSequence(this.getRowClass,this)}else{a.view.getRowClass=this.getRowClass.createDelegate(this)}if(this.autoShow){this.show({data:{}})}},this);this.grid=a;a.reconfigure=a.reconfigure.createSequence(this.reconfigure,this);this.reconfigure()},afterUpdateRecord:Ext.emptyFn,createFormConfig:function(){if(this.form){return}var b=this.grid.getColumnModel();var d=this.grid.store.recordType.prototype.fields;var e=this.grid.store;this.form=Ext.apply({xtype:'form',items:[{layout:'column',anchor:'100%',border:false,monitorValid:true,autoHeight:true,defaults:{columnWidth:1/this.columnCount,autoHeight:true,border:false,layout:'form',hideLabel:true},items:(function(){var a=[];for(var i=0;i 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | -------------------------------------------------------------------------------- /codepress/codepress.css: -------------------------------------------------------------------------------- 1 | body { 2 | margin-top:13px; 3 | _margin-top:14px; 4 | background:white; 5 | margin-left:32px; 6 | font-family:monospace; 7 | font-size:13px; 8 | white-space:pre; 9 | background-image:url("images/line-numbers.png"); 10 | background-repeat:repeat-y; 11 | background-position:0 3px; 12 | line-height:16px; 13 | height:100%; 14 | } 15 | pre {margin:0;} 16 | html>body{background-position:0 2px;} 17 | P {margin:0;padding:0;border:0;outline:0;display:block;white-space:pre;} 18 | b, i, s, u, a, em, tt, ins, big, cite, strong, var, dfn {text-decoration:none;font-weight:normal;font-style:normal;font-size:13px;} 19 | 20 | body.hide-line-numbers {background:white;margin-left:16px;} 21 | body.show-line-numbers {background-image:url("images/line-numbers.png");margin-left:32px;} -------------------------------------------------------------------------------- /codepress/codepress.html: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | CodePress - Real Time Syntax Highlighting Editor written in JavaScript 5 | 6 | 7 | 25 | 26 | 27 | 28 | 33 | 34 | 35 | -------------------------------------------------------------------------------- /codepress/codepress.js: -------------------------------------------------------------------------------- 1 | CodePress=function(c){var d=document.createElement('iframe');d.textarea=c;d.textarea.disabled=true;d.textarea.style.overflow='hidden';d.style.height=d.textarea.clientHeight+'px';d.style.width=d.textarea.clientWidth+'px';d.textarea.style.overflow='auto';d.style.border='1px solid gray';d.frameBorder=0;d.style.visibility='hidden';d.style.position='absolute';d.options=d.textarea.className;d.initialize=function(){d.editor=d.contentWindow.CodePress;d.editor.body=d.contentWindow.document.getElementsByTagName('body')[0];d.editor.setCode(d.textarea.value);d.setOptions();d.editor.syntaxHighlight('init');d.textarea.style.display='none';d.style.position='static';d.style.visibility='visible';d.style.display='inline'}d.edit=function(a,b){if(a)d.textarea.value=document.getElementById(a)?document.getElementById(a).value:a;if(!d.textarea.disabled)return;d.language=b?b:d.getLanguage();d.src=CodePress.path+'codepress.html?language='+d.language+'&ts='+(new Date).getTime();if(d.attachEvent)d.attachEvent('onload',d.initialize);else d.addEventListener('load',d.initialize,false)}d.getLanguage=function(){for(language in CodePress.languages)if(d.options.match('\\b'+language+'\\b'))return CodePress.languages[language]?language:'generic'}d.setOptions=function(){if(d.options.match('autocomplete-off'))d.toggleAutoComplete();if(d.options.match('readonly-on'))d.toggleReadOnly();if(d.options.match('linenumbers-off'))d.toggleLineNumbers()}d.getCode=function(){return d.textarea.disabled?d.editor.getCode():d.textarea.value}d.setCode=function(a){d.textarea.disabled?d.editor.setCode(a):d.textarea.value=a}d.toggleAutoComplete=function(){d.editor.autocomplete=(d.editor.autocomplete)?false:true}d.toggleReadOnly=function(){d.textarea.readOnly=(d.textarea.readOnly)?false:true;if(d.style.display!='none')d.editor.readOnly(d.textarea.readOnly?true:false)}d.toggleLineNumbers=function(){var a=d.editor.body.className;d.editor.body.className=(a==''||a=='show-line-numbers')?'hide-line-numbers':'show-line-numbers'}d.toggleEditor=function(){if(d.textarea.disabled){d.textarea.value=d.getCode();d.textarea.disabled=false;d.style.display='none';d.textarea.style.display='inline'}else{d.textarea.disabled=true;d.setCode(d.textarea.value);d.editor.syntaxHighlight('init');d.style.display='inline';d.textarea.style.display='none'}}d.edit();return d}CodePress.languages={csharp:'C#',css:'CSS',generic:'Generic',html:'HTML',java:'Java',javascript:'JavaScript',perl:'Perl',ruby:'Ruby',php:'PHP',text:'Text',sql:'SQL',vbscript:'VBScript',pascal:'Pascal'}CodePress.run=function(){s=document.getElementsByTagName('script');for(var i=0,n=s.length;i */ 68 | cite, s cite { 69 | color:red; 70 | font-weight:bold; 71 | } -------------------------------------------------------------------------------- /codepress/languages/autoit.css: -------------------------------------------------------------------------------- 1 | /** 2 | * CodePress color styles for AutoIt syntax highlighting 3 | */ 4 | 5 | u {font-style:normal;color:#000090;font-weight:bold;font-family:Monospace;} 6 | var {color:#AA0000;font-weight:bold;font-style:normal;} 7 | em {color:#FF33FF;} 8 | ins {color:#AC00A9;} 9 | i {color:#F000FF;} 10 | b {color:#FF0000;} 11 | a {color:#0080FF;font-weight:bold;} 12 | s, s u, s b {color:#9999CC;font-weight:normal;} 13 | cite, cite *{color:#009933;font-weight:normal;} -------------------------------------------------------------------------------- /codepress/languages/csharp.css: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress color styles for Java syntax highlighting 3 | * By Edwin de Jonge 4 | */ 5 | 6 | b {color:#7F0055;font-weight:bold;font-style:normal;} /* reserved words */ 7 | a {color:#2A0088;font-weight:bold;font-style:normal;} /* types */ 8 | i, i b, i s {color:#3F7F5F;font-weight:bold;} /* comments */ 9 | s, s b {color:#2A00FF;font-weight:normal;} /* strings */ -------------------------------------------------------------------------------- /codepress/languages/csharp.js: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress regular expressions for C# syntax highlighting 3 | * By Edwin de Jonge 4 | */ 5 | 6 | Language.syntax = [ // C# 7 | { input : /\"(.*?)(\"|
|<\/P>)/g, output : '"$1$2' }, // strings double quote 8 | { input : /\'(.?)(\'|
|<\/P>)/g, output : '\'$1$2' }, // strings single quote 9 | { input : /\b(abstract|as|base|break|case|catch|checked|continue|default|delegate|do|else|event|explicit|extern|false|finally|fixed|for|foreach|get|goto|if|implicit|in|interface|internal|is|lock|namespace|new|null|object|operator|out|override|params|partial|private|protected|public|readonly|ref|return|set|sealed|sizeof|static|stackalloc|switch|this|throw|true|try|typeof|unchecked|unsafe|using|value|virtual|while)\b/g, output : '$1' }, // reserved words 10 | { input : /\b(bool|byte|char|class|double|float|int|interface|long|string|struct|void)\b/g, output : '$1' }, // types 11 | { input : /([^:]|^)\/\/(.*?)(//$2$3' }, // comments // 12 | { input : /\/\*(.*?)\*\//g, output : '/*$1*/' } // comments /* */ 13 | ]; 14 | 15 | Language.snippets = []; 16 | 17 | Language.complete = [ // Auto complete only for 1 character 18 | {input : '\'',output : '\'$0\'' }, 19 | {input : '"', output : '"$0"' }, 20 | {input : '(', output : '\($0\)' }, 21 | {input : '[', output : '\[$0\]' }, 22 | {input : '{', output : '{\n\t$0\n}' } 23 | ]; 24 | 25 | Language.shortcuts = []; -------------------------------------------------------------------------------- /codepress/languages/css.css: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress color styles for CSS syntax highlighting 3 | */ 4 | 5 | b, b a, b u {color:#000080;} /* tags, ids, classes */ 6 | i, i b, i s, i a, i u {color:gray;} /* comments */ 7 | s, s b {color:#a0a0dd;} /* parameters */ 8 | a {color:#0000ff;} /* keys */ 9 | u {color:red;} /* values */ 10 | 11 | -------------------------------------------------------------------------------- /codepress/languages/css.js: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress regular expressions for CSS syntax highlighting 3 | */ 4 | 5 | // CSS 6 | Language.syntax = [ 7 | { input : /(.*?){(.*?)}/g,output : '$1{$2}' }, // tags, ids, classes, values 8 | { input : /([\w-]*?):([^\/])/g,output : '$1:$2' }, // keys 9 | { input : /\((.*?)\)/g,output : '($1)' }, // parameters 10 | { input : /\/\*(.*?)\*\//g,output : '/*$1*/'} // comments 11 | ] 12 | 13 | Language.snippets = [] 14 | 15 | Language.complete = [ 16 | { input : '\'',output : '\'$0\'' }, 17 | { input : '"', output : '"$0"' }, 18 | { input : '(', output : '\($0\)' }, 19 | { input : '[', output : '\[$0\]' }, 20 | { input : '{', output : '{\n\t$0\n}' } 21 | ] 22 | 23 | Language.shortcuts = [] 24 | -------------------------------------------------------------------------------- /codepress/languages/generic.css: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress color styles for generic syntax highlighting 3 | */ 4 | 5 | b {color:#7F0055;font-weight:bold;} /* reserved words */ 6 | u {color:darkblue;font-weight:bold;} /* special words */ 7 | i, i b, i s, i u, i em {color:green;font-weight:normal;} /* comments */ 8 | s, s b, s em {color:#2A00FF;font-weight:normal;} /* strings */ 9 | em {font-weight:bold;} /* special chars */ -------------------------------------------------------------------------------- /codepress/languages/generic.js: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress regular expressions for generic syntax highlighting 3 | */ 4 | 5 | // generic languages 6 | Language.syntax = [ 7 | { input : /\"(.*?)(\"|
|<\/P>)/g, output : '"$1$2' }, // strings double quote 8 | { input : /\'(.*?)(\'|
|<\/P>)/g, output : '\'$1$2' }, // strings single quote 9 | { input : /\b(abstract|continue|for|new|switch|default|goto|boolean|do|if|private|this|break|double|protected|throw|byte|else|import|public|throws|case|return|catch|extends|int|short|try|char|final|interface|static|void|class|finally|long|const|float|while|function|label)\b/g, output : '$1' }, // reserved words 10 | { input : /([\(\){}])/g, output : '$1' }, // special chars; 11 | { input : /([^:]|^)\/\/(.*?)(//$2$3' }, // comments // 12 | { input : /\/\*(.*?)\*\//g, output : '/*$1*/' } // comments /* */ 13 | ] 14 | 15 | Language.snippets = [] 16 | 17 | Language.complete = [ 18 | { input : '\'', output : '\'$0\'' }, 19 | { input : '"', output : '"$0"' }, 20 | { input : '(', output : '\($0\)' }, 21 | { input : '[', output : '\[$0\]' }, 22 | { input : '{', output : '{\n\t$0\n}' } 23 | ] 24 | 25 | Language.shortcuts = [] 26 | -------------------------------------------------------------------------------- /codepress/languages/html.css: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress color styles for HTML syntax highlighting 3 | */ 4 | 5 | b {color:#000080;} /* tags */ 6 | ins, ins b, ins s, ins em {color:gray;} /* comments */ 7 | s, s b {color:#7777e4;} /* attribute values */ 8 | a {color:green;} /* links */ 9 | u {color:#E67300;} /* forms */ 10 | big {color:#db0000;} /* images */ 11 | em, em b {color:#800080;} /* style */ 12 | strong {color:#800000;} /* script */ 13 | tt i {color:darkblue;font-weight:bold;} /* script reserved words */ 14 | -------------------------------------------------------------------------------- /codepress/languages/html.js: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress regular expressions for HTML syntax highlighting 3 | */ 4 | 5 | // HTML 6 | Language.syntax = [ 7 | { input : /(<[^!]*?>)/g, output : '$1' }, // all tags 8 | { input : /(<a .*?>|<\/a>)/g, output : '$1' }, // links 9 | { input : /(<img .*?>)/g, output : '$1' }, // images 10 | { input : /(<\/?(button|textarea|form|input|select|option|label).*?>)/g, output : '$1' }, // forms 11 | { input : /(<style.*?>)(.*?)(<\/style>)/g, output : '$1$2$3' }, // style tags 12 | { input : /(<script.*?>)(.*?)(<\/script>)/g, output : '$1$2$3' }, // script tags 13 | { input : /=(".*?")/g, output : '=$1' }, // atributes double quote 14 | { input : /=('.*?')/g, output : '=$1' }, // atributes single quote 15 | { input : /(<!--.*?-->.)/g, output : '$1' }, // comments 16 | { input : /\b(alert|window|document|break|continue|do|for|new|this|void|case|default|else|function|return|typeof|while|if|label|switch|var|with|catch|boolean|int|try|false|throws|null|true|goto)\b/g, output : '$1' } // script reserved words 17 | ] 18 | 19 | Language.snippets = [ 20 | { input : 'aref', output : '' }, 21 | { input : 'h1', output : '

$0

' }, 22 | { input : 'h2', output : '

$0

' }, 23 | { input : 'h3', output : '

$0

' }, 24 | { input : 'h4', output : '

$0

' }, 25 | { input : 'h5', output : '
$0
' }, 26 | { input : 'h6', output : '
$0
' }, 27 | { input : 'html', output : '\n\t$0\n' }, 28 | { input : 'head', output : '\n\t\n\t$0\n\t\n' }, 29 | { input : 'img', output : '' }, 30 | { input : 'input', output : '' }, 31 | { input : 'label', output : '' }, 32 | { input : 'legend', output : '\n\t$0\n' }, 33 | { input : 'link', output : '' }, 34 | { input : 'base', output : '' }, 35 | { input : 'body', output : '\n\t$0\n' }, 36 | { input : 'css', output : '' }, 37 | { input : 'div', output : '
\n\t$0\n
' }, 38 | { input : 'divid', output : '
\n\t\n
' }, 39 | { input : 'dl', output : '
\n\t
\n\t\t$0\n\t
\n\t
\n
' }, 40 | { input : 'fieldset', output : '
\n\t$0\n
' }, 41 | { input : 'form', output : '
\n\t\n
' }, 42 | { input : 'meta', output : '' }, 43 | { input : 'p', output : '

$0

' }, 44 | { input : 'script', output : '' }, 45 | { input : 'scriptsrc', output : '' }, 46 | { input : 'span', output : '$0' }, 47 | { input : 'table', output : '\n\t\n\t\n
' }, 48 | { input : 'style', output : '' } 49 | ] 50 | 51 | Language.complete = [ 52 | { input : '\'',output : '\'$0\'' }, 53 | { input : '"', output : '"$0"' }, 54 | { input : '(', output : '\($0\)' }, 55 | { input : '[', output : '\[$0\]' }, 56 | { input : '{', output : '{\n\t$0\n}' } 57 | ] 58 | 59 | Language.shortcuts = [] 60 | -------------------------------------------------------------------------------- /codepress/languages/java.css: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress color styles for Java syntax highlighting 3 | */ 4 | 5 | b {color:#7F0055;font-weight:bold;font-style:normal;} /* reserved words */ 6 | i, i b, i s {color:#3F7F5F;font-weight:bold;} /* comments */ 7 | s, s b {color:#2A00FF;font-weight:normal;} /* strings */ 8 | -------------------------------------------------------------------------------- /codepress/languages/java.js: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress regular expressions for Java syntax highlighting 3 | */ 4 | 5 | // Java 6 | Language.syntax = [ 7 | { input : /\"(.*?)(\"|
|<\/P>)/g, output : '"$1$2'}, // strings double quote 8 | { input : /\'(.*?)(\'|
|<\/P>)/g, output : '\'$1$2'}, // strings single quote 9 | { input : /\b(abstract|continue|for|new|switch|assert|default|goto|package|synchronized|boolean|do|if|private|this|break|double|implements|protected|throw|byte|else|import|public|throws|case|enum|instanceof|return|transient|catch|extends|int|short|try|char|final|interface|static|void|class|finally|long|strictfp|volatile|const|float|native|super|while)\b/g, output : '$1'}, // reserved words 10 | { input : /([^:]|^)\/\/(.*?)(//$2$3'}, // comments // 11 | { input : /\/\*(.*?)\*\//g, output : '/*$1*/' }// comments /* */ 12 | ] 13 | 14 | Language.snippets = [] 15 | 16 | Language.complete = [ 17 | { input : '\'',output : '\'$0\'' }, 18 | { input : '"', output : '"$0"' }, 19 | { input : '(', output : '\($0\)' }, 20 | { input : '[', output : '\[$0\]' }, 21 | { input : '{', output : '{\n\t$0\n}' } 22 | ] 23 | 24 | Language.shortcuts = [] 25 | -------------------------------------------------------------------------------- /codepress/languages/javascript.css: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress color styles for JavaScript syntax highlighting 3 | */ 4 | 5 | b {color:blue;font-weight:bold;} /* reserved words */ 6 | u {color:darkblue;font-weight:bold;} /* special words */ 7 | i, i b, i s, i u {color:magenta;font-weight:normal;} /* comments */ 8 | s, s b, s u {color:red;font-weight:normal;} /* strings */ 9 | a {color:green;font-weight:bold} /* numbers */ 10 | 11 | -------------------------------------------------------------------------------- /codepress/languages/javascript.js: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress regular expressions for JavaScript syntax highlighting 3 | */ 4 | 5 | // JavaScript 6 | Language.syntax = [ 7 | { input : /\"(.*?)(\"|
|<\/P>)/g, output : '"$1$2' }, // strings double quote 8 | { input : /\'(.*?)(\'|
|<\/P>)/g, output : '\'$1$2' }, // strings single quote 9 | { input : /\b(break|continue|do|for|new|this|void|case|default|else|function|return|typeof|while|if|label|switch|var|with|catch|boolean|int|try|false|throws|null|true|goto)\b/g, output : '$1' }, // reserved words 10 | { input : /\b(alert|isNaN|parent|Array|parseFloat|parseInt|blur|clearTimeout|prompt|prototype|close|confirm|length|Date|location|Math|document|element|name|self|elements|setTimeout|navigator|status|String|escape|Number|submit|eval|Object|event|onblur|focus|onerror|onfocus|onclick|top|onload|toString|onunload|unescape|open|valueOf|window|onmouseover)\b/g, output : '$1' }, // special words 11 | { input : /([^:]|^)\/\/(.*?)(//$2$3' }, // comments // 12 | { input : /\/\*(.*?)\*\//g, output : '/*$1*/' }, // comments /* */ 13 | { input : /\b([+-]?[\d\.]+)\b/g,output:'$1'} // Numbers 14 | ] 15 | 16 | Language.snippets = [ 17 | { input : 'dw', output : 'document.write(\'$0\');' }, 18 | { input : 'getid', output : 'document.getElementById(\'$0\')' }, 19 | { input : 'fun', output : 'function $0(){\n\t\n}' }, 20 | { input : 'func', output : 'function $0(){\n\t\n}' } 21 | ] 22 | 23 | Language.complete = [ 24 | { input : '\'',output : '\'$0\'' }, 25 | { input : '"', output : '"$0"' }, 26 | { input : '(', output : '\($0\)' }, 27 | { input : '[', output : '\[$0\]' }, 28 | { input : '{', output : '{\n\t$0\n}' } 29 | ] 30 | 31 | Language.shortcuts = [] 32 | -------------------------------------------------------------------------------- /codepress/languages/pascal.css: -------------------------------------------------------------------------------- 1 | /* CodePress color styles for Pascal, by Wanderlan Santos dos Anjos */ 2 | b{color:blue;font-weight:bold} /* reserved words */ 3 | a{color:green;font-weight:bold} /* numbers */ 4 | i,i b,i a{color:magenta;font-style:italic} /* comments */ 5 | s,s b,s a,s i{color:red;font-weight:normal} /* strings */ 6 | u,u b,u a{color:green;font-weight:bold} /* directives */ 7 | 8 | -------------------------------------------------------------------------------- /codepress/languages/pascal.js: -------------------------------------------------------------------------------- 1 | // CodePress regex for Object Pascal(Delphi or FPC) 2 | // by Wanderlan Santos dos Anjos 3 | Language.syntax=[ 4 | // Strings 5 | {input:/\'(.*?)(\'|
|<\/br>|<\/P>|\n)/gi,output:"'$1'"}, 6 | // Reserved words 7 | {input:/\b(absolute|abstract|and|array|as|asm|begin|case|cdecl|class|const|constructor|destructor|div|do|downto|else|end|except|exports|external|file|finalization|finally|for|forward|function|goto|if|implementation|in|index|inherited|initialization|inline|interface|is|label|library|mod|nil|not|object|of|on|or|out|operator|override|packed|pascal|procedure|program|property|private|protected|published|public|raise|record|register|reintroduce|repeat|resourcestring|safecall|set|shl|shr|stdcall|string|then|threadvar|to|try|type|unit|until|uses|var|virtual|while|with|xor)\b/gi,output:'$1'}, 8 | // Numbers 9 | {input:/\b([+-]?[\d\.]+)\b/g,output:'$1'}, 10 | // Hexa numbers 11 | {input:/\b($[\dABCDEF]+)\b/gi,output:'$1'}, 12 | // Chars hexa 13 | {input:/\b(#$[\dABCDEF]+)\b/gi,output:'$1'}, 14 | // Chars 15 | {input:/\b(#\d+)\b/g,output:'$1'}, 16 | // Comments // 17 | {input:/([^:]|^)\/\/(.*?)(
|<\/br>|<\/P>|\n)/g,output:'$1//$2$3'}, 18 | // Comments (**) 19 | {input:/\(\*(.*?)\*\)/g,output:'(*$1*)'}, 20 | // Comments {} 21 | {input:/\{(.*?)\}/g,output:'{$1}'}, 22 | // Directives {$} 23 | {input:/\{\$(.*?)\}/g,output:'{$$$1}'}] 24 | Language.snippets=[] 25 | Language.complete=[ 26 | {input:'\'',output:'\'$0\''}, 27 | {input:'(',output:'\($0\)'}, 28 | {input:'[',output:'\[$0\]'}, 29 | {input:'begin',output:'{\n\t$0\nend;'}] 30 | Language.shortcuts=[] 31 | -------------------------------------------------------------------------------- /codepress/languages/perl.css: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress color styles for Perl syntax highlighting 3 | * By J. Nick Koston 4 | */ 5 | 6 | b {color:#7F0055;font-weight:bold;} /* reserved words */ 7 | i, i b, i s, i em, i a, i u {color:gray;font-weight:normal;} /* comments */ 8 | s, s b, s a, s em, s u {color:#2A00FF;font-weight:normal;} /* strings */ 9 | a {color:#006700;font-weight:bold;} /* variables */ 10 | em {color:darkblue;font-weight:bold;} /* functions */ 11 | u {font-weight:bold;} /* special chars */ -------------------------------------------------------------------------------- /codepress/languages/perl.js: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress regular expressions for Perl syntax highlighting 3 | * By J. Nick Koston 4 | */ 5 | 6 | // Perl 7 | Language.syntax = [ 8 | { input : /\"(.*?)(\"|
|<\/P>)/g, output : '"$1$2' }, // strings double quote 9 | { input : /\'(.*?)(\'|
|<\/P>)/g, output : '\'$1$2' }, // strings single quote 10 | { input : /([\$\@\%][\w\.]*)/g, output : '$1' }, // vars 11 | { input : /(sub\s+)([\w\.]*)/g, output : '$1$2' }, // functions 12 | { input : /\b(abs|accept|alarm|atan2|bind|binmode|bless|caller|chdir|chmod|chomp|chop|chown|chr|chroot|close|closedir|connect|continue|cos|crypt|dbmclose|dbmopen|defined|delete|die|do|dump|each|else|elsif|endgrent|endhostent|endnetent|endprotoent|endpwent|eof|eval|exec|exists|exit|fcntl|fileno|find|flock|for|foreach|fork|format|formlinegetc|getgrent|getgrgid|getgrnam|gethostbyaddr|gethostbyname|gethostent|getlogin|getnetbyaddr|getnetbyname|getnetent|getpeername|getpgrp|getppid|getpriority|getprotobyname|getprotobynumber|getprotoent|getpwent|getpwnam|getpwuid|getservbyaddr|getservbyname|getservbyport|getservent|getsockname|getsockopt|glob|gmtime|goto|grep|hex|hostname|if|import|index|int|ioctl|join|keys|kill|last|lc|lcfirst|length|link|listen|LoadExternals|local|localtime|log|lstat|map|mkdir|msgctl|msgget|msgrcv|msgsnd|my|next|no|oct|open|opendir|ordpack|package|pipe|pop|pos|print|printf|push|pwd|qq|quotemeta|qw|rand|read|readdir|readlink|recv|redo|ref|rename|require|reset|return|reverse|rewinddir|rindex|rmdir|scalar|seek|seekdir|select|semctl|semget|semop|send|setgrent|sethostent|setnetent|setpgrp|setpriority|setprotoent|setpwent|setservent|setsockopt|shift|shmctl|shmget|shmread|shmwrite|shutdown|sin|sleep|socket|socketpair|sort|splice|split|sprintf|sqrt|srand|stat|stty|study|sub|substr|symlink|syscall|sysopen|sysread|system|syswritetell|telldir|tie|tied|time|times|tr|truncate|uc|ucfirst|umask|undef|unless|unlink|until|unpack|unshift|untie|use|utime|values|vec|waitpid|wantarray|warn|while|write)\b/g, output : '$1' }, // reserved words 13 | { input : /([\(\){}])/g, output : '$1' }, // special chars 14 | { input : /#(.*?)(
|<\/P>)/g, output : '#$1$2' } // comments 15 | ] 16 | 17 | Language.snippets = [] 18 | 19 | Language.complete = [ 20 | { input : '\'',output : '\'$0\'' }, 21 | { input : '"', output : '"$0"' }, 22 | { input : '(', output : '\($0\)' }, 23 | { input : '[', output : '\[$0\]' }, 24 | { input : '{', output : '{\n\t$0\n}' } 25 | ] 26 | 27 | Language.shortcuts = [] 28 | -------------------------------------------------------------------------------- /codepress/languages/php.css: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress color styles for PHP syntax highlighting 3 | */ 4 | 5 | b {color:#000080;} /* tags */ 6 | big, big b, big em, big ins, big s, strong i, strong i b, strong i s, strong i u, strong i a, strong i a u, strong i s u {color:gray;font-weight:normal;} /* comments */ 7 | s, s b, strong s u, strong s cite {color:#5656fa;font-weight:normal;} /* attributes and strings */ 8 | strong a, strong a u {color:#006700;font-weight:bold;} /* variables */ 9 | em {color:#800080;font-style:normal;} /* style */ 10 | ins {color:#800000;} /* script */ 11 | strong u {color:#7F0055;font-weight:bold;} /* reserved words */ 12 | cite, s cite {color:red;font-weight:bold;} /* */ 13 | -------------------------------------------------------------------------------- /codepress/languages/php.js: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress regular expressions for PHP syntax highlighting 3 | */ 4 | 5 | // PHP 6 | Language.syntax = [ 7 | { input : /(<[^!\?]*?>)/g, output : '$1' }, // all tags 8 | { input : /(<style.*?>)(.*?)(<\/style>)/g, output : '$1$2$3' }, // style tags 9 | { input : /(<script.*?>)(.*?)(<\/script>)/g, output : '$1$2$3' }, // script tags 10 | { input : /\"(.*?)(\"|
|<\/P>)/g, output : '"$1$2' }, // strings double quote 11 | { input : /\'(.*?)(\'|
|<\/P>)/g, output : '\'$1$2'}, // strings single quote 12 | { input : /(<\?)/g, output : '$1' }, // ' }, // .*?> 14 | { input : /(<\?php|<\?=|<\?|\?>)/g, output : '$1' }, // php tags 15 | { input : /(\$[\w\.]*)/g, output : '$1' }, // vars 16 | { input : /\b(false|true|and|or|xor|__FILE__|exception|__LINE__|array|as|break|case|class|const|continue|declare|default|die|do|echo|else|elseif|empty|enddeclare|endfor|endforeach|endif|endswitch|endwhile|eval|exit|extends|for|foreach|function|global|if|include|include_once|isset|list|new|print|require|require_once|return|static|switch|unset|use|while|__FUNCTION__|__CLASS__|__METHOD__|final|php_user_filter|interface|implements|extends|public|private|protected|abstract|clone|try|catch|throw|this)\b/g, output : '$1' }, // reserved words 17 | { input : /([^:])\/\/(.*?)(//$2$3' }, // php comments // 18 | { input : /([^:])#(.*?)(#$2$3' }, // php comments # 19 | { input : /\/\*(.*?)\*\//g, output : '/*$1*/' }, // php comments /* */ 20 | { input : /(<!--.*?-->.)/g, output : '$1' } // html comments 21 | ] 22 | 23 | Language.snippets = [ 24 | { input : 'if', output : 'if($0){\n\t\n}' }, 25 | { input : 'ifelse', output : 'if($0){\n\t\n}\nelse{\n\t\n}' }, 26 | { input : 'else', output : '}\nelse {\n\t' }, 27 | { input : 'elseif', output : '}\nelseif($0) {\n\t' }, 28 | { input : 'do', output : 'do{\n\t$0\n}\nwhile();' }, 29 | { input : 'inc', output : 'include_once("$0");' }, 30 | { input : 'fun', output : 'function $0(){\n\t\n}' }, 31 | { input : 'func', output : 'function $0(){\n\t\n}' }, 32 | { input : 'while', output : 'while($0){\n\t\n}' }, 33 | { input : 'for', output : 'for($0,,){\n\t\n}' }, 34 | { input : 'fore', output : 'foreach($0 as ){\n\t\n}' }, 35 | { input : 'foreach', output : 'foreach($0 as ){\n\t\n}' }, 36 | { input : 'echo', output : 'echo \'$0\';' }, 37 | { input : 'switch', output : 'switch($0) {\n\tcase "": break;\n\tdefault: ;\n}' }, 38 | { input : 'case', output : 'case "$0" : break;' }, 39 | { input : 'ret0', output : 'return false;' }, 40 | { input : 'retf', output : 'return false;' }, 41 | { input : 'ret1', output : 'return true;' }, 42 | { input : 'rett', output : 'return true;' }, 43 | { input : 'ret', output : 'return $0;' }, 44 | { input : 'def', output : 'define(\'$0\',\'\');' }, 45 | { input : '' } 46 | ] 47 | 48 | Language.complete = [ 49 | { input : '\'', output : '\'$0\'' }, 50 | { input : '"', output : '"$0"' }, 51 | { input : '(', output : '\($0\)' }, 52 | { input : '[', output : '\[$0\]' }, 53 | { input : '{', output : '{\n\t$0\n}' } 54 | ] 55 | 56 | Language.shortcuts = [ 57 | { input : '[space]', output : ' ' }, 58 | { input : '[enter]', output : '
' } , 59 | { input : '[j]', output : 'testing' }, 60 | { input : '[7]', output : '&' } 61 | ] -------------------------------------------------------------------------------- /codepress/languages/ruby.css: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress color styles for Ruby syntax highlighting 3 | */ 4 | 5 | b {color:#7F0055;font-weight:bold;} /* reserved words */ 6 | i, i b, i s, i em, i a, i u {color:gray;font-weight:normal;} /* comments */ 7 | s, s b, s a, s em, s u {color:#2A00FF;font-weight:normal;} /* strings */ 8 | a {color:#006700;font-weight:bold;} /* variables */ 9 | em {color:darkblue;font-weight:bold;} /* functions */ 10 | u {font-weight:bold;} /* special chars */ -------------------------------------------------------------------------------- /codepress/languages/ruby.js: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress regular expressions for Perl syntax highlighting 3 | */ 4 | 5 | // Ruby 6 | Language.syntax = [ 7 | { input : /\"(.*?)(\"|
|<\/P>)/g, output : '"$1$2' }, // strings double quote 8 | { input : /\'(.*?)(\'|
|<\/P>)/g, output : '\'$1$2' }, // strings single quote 9 | { input : /([\$\@\%]+)([\w\.]*)/g, output : '$1$2' }, // vars 10 | { input : /(def\s+)([\w\.]*)/g, output : '$1$2' }, // functions 11 | { input : /\b(alias|and|BEGIN|begin|break|case|class|def|defined|do|else|elsif|END|end|ensure|false|for|if|in|module|next|nil|not|or|redo|rescue|retry|return|self|super|then|true|undef|unless|until|when|while|yield)\b/g, output : '$1' }, // reserved words 12 | { input : /([\(\){}])/g, output : '$1' }, // special chars 13 | { input : /#(.*?)(
|<\/P>)/g, output : '#$1$2' } // comments 14 | ]; 15 | 16 | Language.snippets = [] 17 | 18 | Language.complete = [ 19 | { input : '\'',output : '\'$0\'' }, 20 | { input : '"', output : '"$0"' }, 21 | { input : '(', output : '\($0\)' }, 22 | { input : '[', output : '\[$0\]' }, 23 | { input : '{', output : '{\n\t$0\n}' } 24 | ] 25 | 26 | Language.shortcuts = [] 27 | -------------------------------------------------------------------------------- /codepress/languages/sql.css: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress color styles for SQL syntax highlighting 3 | * By Merlin Moncure 4 | */ 5 | 6 | b {color:#0000FF;font-style:normal;font-weight:bold;} /* reserved words */ 7 | u {color:#FF0000;font-style:normal;} /* types */ 8 | a {color:#CD6600;font-style:normal;font-weight:bold;} /* commands */ 9 | i, i b, i u, i a, i s {color:#A9A9A9;font-weight:normal;font-style:italic;} /* comments */ 10 | s, s b, s u, s a, s i {color:#2A00FF;font-weight:normal;} /* strings */ 11 | -------------------------------------------------------------------------------- /codepress/languages/sql.js: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress regular expressions for SQL syntax highlighting 3 | * By Merlin Moncure 4 | */ 5 | 6 | // SQL 7 | Language.syntax = [ 8 | { input : /\'(.*?)(\')/g, output : '\'$1$2' }, // strings single quote 9 | { input : /\b(add|after|aggregate|alias|all|and|as|authorization|between|by|cascade|cache|cache|called|case|check|column|comment|constraint|createdb|createuser|cycle|database|default|deferrable|deferred|diagnostics|distinct|domain|each|else|elseif|elsif|encrypted|except|exception|for|foreign|from|from|full|function|get|group|having|if|immediate|immutable|in|increment|initially|increment|index|inherits|inner|input|intersect|into|invoker|is|join|key|language|left|like|limit|local|loop|match|maxvalue|minvalue|natural|nextval|no|nocreatedb|nocreateuser|not|null|of|offset|oids|on|only|operator|or|order|outer|owner|partial|password|perform|plpgsql|primary|record|references|replace|restrict|return|returns|right|row|rule|schema|security|sequence|session|sql|stable|statistics|table|temp|temporary|then|time|to|transaction|trigger|type|unencrypted|union|unique|user|using|valid|value|values|view|volatile|when|where|with|without|zone)\b/gi, output : '$1' }, // reserved words 10 | { input : /\b(bigint|bigserial|bit|boolean|box|bytea|char|character|cidr|circle|date|decimal|double|float4|float8|inet|int2|int4|int8|integer|interval|line|lseg|macaddr|money|numeric|oid|path|point|polygon|precision|real|refcursor|serial|serial4|serial8|smallint|text|timestamp|varbit|varchar)\b/gi, output : '$1' }, // types 11 | { input : /\b(abort|alter|analyze|begin|checkpoint|close|cluster|comment|commit|copy|create|deallocate|declare|delete|drop|end|execute|explain|fetch|grant|insert|listen|load|lock|move|notify|prepare|reindex|reset|restart|revoke|rollback|select|set|show|start|truncate|unlisten|update)\b/gi, output : '$1' }, // commands 12 | { input : /([^:]|^)\-\-(.*?)(--$2$3' } // comments // 13 | ] 14 | 15 | Language.snippets = [ 16 | { input : 'select', output : 'select $0 from where ' } 17 | ] 18 | 19 | Language.complete = [ 20 | { input : '\'', output : '\'$0\'' }, 21 | { input : '"', output : '"$0"' }, 22 | { input : '(', output : '\($0\)' }, 23 | { input : '[', output : '\[$0\]' }, 24 | { input : '{', output : '{\n\t$0\n}' } 25 | ] 26 | 27 | Language.shortcuts = [] 28 | 29 | 30 | 31 | -------------------------------------------------------------------------------- /codepress/languages/text.css: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress color styles for Text syntax highlighting 3 | */ 4 | 5 | /* do nothing as expected */ 6 | -------------------------------------------------------------------------------- /codepress/languages/text.js: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress regular expressions for Text syntax highlighting 3 | */ 4 | 5 | // plain text 6 | Language.syntax = [] 7 | Language.snippets = [] 8 | Language.complete = [] 9 | Language.shortcuts = [] 10 | -------------------------------------------------------------------------------- /codepress/languages/vbscript.css: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress color styles for ASP-VB syntax highlighting 3 | * By Martin D. Kirk 4 | */ 5 | 6 | /* tags */ 7 | b { 8 | color:#000080; 9 | } 10 | /* comments */ 11 | big, big b, big em, big ins, big s, strong i, strong i b, strong i s, strong i u, strong i a, strong i a u, strong i s u { 12 | color:gray; 13 | font-weight:normal; 14 | } 15 | /* ASP comments */ 16 | strong dfn, strong dfn a,strong dfn var, strong dfn a u, strong dfn u{ 17 | color:gray; 18 | font-weight:normal; 19 | } 20 | /* attributes */ 21 | s, s b, span s u, span s cite, strong span s { 22 | color:#5656fa ; 23 | font-weight:normal; 24 | } 25 | /* strings */ 26 | strong s,strong s b, strong s u, strong s cite { 27 | color:#009900; 28 | font-weight:normal; 29 | } 30 | strong ins{ 31 | color:#000000; 32 | font-weight:bold; 33 | } 34 | /* Syntax */ 35 | strong a, strong a u { 36 | color:#0000FF; 37 | font-weight:; 38 | } 39 | /* Native Keywords */ 40 | strong u { 41 | color:#990099; 42 | font-weight:bold; 43 | } 44 | /* Numbers */ 45 | strong var{ 46 | color:#FF0000; 47 | } 48 | /* ASP Language */ 49 | span{ 50 | color:#990000; 51 | font-weight:bold; 52 | } 53 | strong i,strong a i, strong u i { 54 | color:#009999; 55 | } 56 | /* style */ 57 | em { 58 | color:#800080; 59 | font-style:normal; 60 | } 61 | /* script */ 62 | ins { 63 | color:#800000; 64 | font-weight:bold; 65 | } 66 | 67 | /* */ 68 | cite, s cite { 69 | color:red; 70 | font-weight:bold; 71 | } -------------------------------------------------------------------------------- /codepress/languages/xsl.css: -------------------------------------------------------------------------------- 1 | /* 2 | * CodePress color styles for HTML syntax highlighting 3 | * By RJ Bruneel 4 | */ 5 | 6 | b {color:#000080;} /* tags */ 7 | ins, ins b, ins s, ins em {color:gray;} /* comments */ 8 | s, s b {color:#7777e4;} /* attribute values */ 9 | a {color:#E67300;} /* links */ 10 | u {color:#CC66CC;} /* forms */ 11 | big {color:#db0000;} /* images */ 12 | em, em b {color:#800080;} /* style */ 13 | strong {color:#800000;} /* script */ 14 | tt i {color:darkblue;font-weight:bold;} /* script reserved words */ 15 | xsl {color:green;} /* xsl */ 16 | -------------------------------------------------------------------------------- /codepress/license.txt: -------------------------------------------------------------------------------- 1 | BECAUSE OF SIZE LIMITATION WHERE REMOVE GNU LESSER LICENSE OF CodePress. 2 | Please read at http://www.opensource.org/licenses/lgpl-2.1.php -------------------------------------------------------------------------------- /docs/Configuração do Ambiente ExtPascal.doc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/docs/Configuração do Ambiente ExtPascal.doc -------------------------------------------------------------------------------- /docs/ExtPascal-Advanced-Configuration-eng-v6.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/docs/ExtPascal-Advanced-Configuration-eng-v6.pdf -------------------------------------------------------------------------------- /docs/XDAPrevalenceEnglish.ppt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/docs/XDAPrevalenceEnglish.ppt -------------------------------------------------------------------------------- /fcgiapp_pkg.lpk: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | -------------------------------------------------------------------------------- /fcgiapp_pkg.pas: -------------------------------------------------------------------------------- 1 | { This file was automatically created by Lazarus. Do not edit! 2 | This source is only used to compile and install the package. 3 | } 4 | 5 | unit fcgiapp_pkg; 6 | 7 | interface 8 | 9 | uses 10 | FCGIApp, BlockSocket, ExtPascalClasses, ExtPascalUtils, LazarusPackageIntf; 11 | 12 | implementation 13 | 14 | procedure Register; 15 | begin 16 | end; 17 | 18 | initialization 19 | RegisterPackage('fcgiapp_pkg', @Register); 20 | end. 21 | -------------------------------------------------------------------------------- /images/CGIGateway.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/images/CGIGateway.png -------------------------------------------------------------------------------- /images/ExtPascal.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/images/ExtPascal.gif -------------------------------------------------------------------------------- /images/ExtPascal.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/images/ExtPascal.ico -------------------------------------------------------------------------------- /images/ExtPascal.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/images/ExtPascal.png -------------------------------------------------------------------------------- /images/ExtPascal.ppt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/images/ExtPascal.ppt -------------------------------------------------------------------------------- /images/ExtPascalLogo.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/images/ExtPascalLogo.ico -------------------------------------------------------------------------------- /images/ExtPascalLogo.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/images/ExtPascalLogo.png -------------------------------------------------------------------------------- /images/ExtPascalLogo.ppt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/images/ExtPascalLogo.ppt -------------------------------------------------------------------------------- /images/WebServerEmbedded.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/images/WebServerEmbedded.png -------------------------------------------------------------------------------- /images/cgigateway.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/images/cgigateway.gif -------------------------------------------------------------------------------- /images/filedownload.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/images/filedownload.png -------------------------------------------------------------------------------- /images/fileupload.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/images/fileupload.png -------------------------------------------------------------------------------- /images/login.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/farshadmohajeri/extpascal/f18ef91962767d0f31735596fcb46d54e382e7e7/images/login.png --------------------------------------------------------------------------------