├── shared └── help │ ├── Make CHM Help.bat │ ├── Make H2 Help.bat │ ├── Make PDF Help.bat │ ├── Make HTML Help.bat │ ├── Make WINHELP Help.bat │ ├── Make Xml Help.bat │ └── kylix.dtx ├── helpsync ├── Diff │ └── Demos │ │ ├── DiffDemo.res │ │ ├── Merge3Demo.res │ │ ├── MergeDemo.res │ │ ├── MergeAfterDemo.res │ │ ├── DiffDemo.dpr │ │ ├── MergeDemo.dpr │ │ ├── Merge3Demo.dpr │ │ ├── MergeAfterDemo.dpr │ │ ├── DiffMainUnit.dfm │ │ ├── DiffMainUnit.pas │ │ ├── DiffDemo.dproj │ │ └── DiffDemos.groupproj └── MediaWikiApi │ ├── MediaWikiApi.pas │ └── Demos │ ├── EditProject.res │ ├── MoveProject.res │ ├── DeleteProject.res │ ├── UploadFileProject.res │ ├── QueryAllPagesProject.res │ ├── QueryAllUsersProject.res │ ├── QueryBlocksProject.res │ ├── DeleteRevisionProject.res │ ├── QueryBackLinksProject.res │ ├── QueryPageInfosProject.res │ ├── QueryAllCategoriesProject.res │ ├── QueryPageLinkInfosProject.res │ ├── QueryCategoryMembersProject.res │ ├── QuerySiteInfoGeneralProject.res │ ├── QueryUserInfoGroupsProject.res │ ├── QueryUserInfoOptionsProject.res │ ├── QueryUserInfoRightsProject.res │ ├── QueryPageBackLinkInfosProject.res │ ├── QueryPageCategoryInfosProject.res │ ├── QueryPageTemplateInfosProject.res │ ├── QuerySiteInfoDBReplLagProject.res │ ├── QuerySiteInfoExtensionsProject.res │ ├── QuerySiteInfoMagicWordsProject.res │ ├── QuerySiteInfoNamespacesProject.res │ ├── QuerySiteInfoStatisticsProject.res │ ├── QuerySiteInfoUserGroupsProject.res │ ├── QueryUserInfoBlockInfoProject.res │ ├── QueryUserInfoRateLimitsProject.res │ ├── QuerySiteInfoInterWikiMapProject.res │ ├── QueryPageExternalLinkInfosProject.res │ ├── QuerySiteInfoNamespaceAliasesProject.res │ ├── QueryUserInfoChangeableGroupsProject.res │ ├── QuerySiteInfoSpecialPageAliasesProject.res │ ├── EditProject.dpr │ ├── MoveProject.dpr │ ├── DeleteProject.dpr │ ├── UploadFileProject.dpr │ ├── QueryBlocksProject.dpr │ ├── QueryAllPagesProject.dpr │ ├── QueryAllUsersProject.dpr │ ├── DeleteRevisionProject.dpr │ ├── QueryBackLinksProject.dpr │ ├── QueryPageInfosProject.dpr │ ├── QueryAllCategoriesProject.dpr │ ├── QueryPageLinkInfosProject.dpr │ ├── QueryUserInfoGroupsProject.dpr │ ├── QueryUserInfoRightsProject.dpr │ ├── QueryCategoryMembersProject.dpr │ ├── QuerySiteInfoGeneralProject.dpr │ ├── QueryUserInfoOptionsProject.dpr │ ├── QueryPageBackLinkInfosProject.dpr │ ├── QueryPageCategoryInfosProject.dpr │ ├── QueryPageTemplateInfosProject.dpr │ ├── QuerySiteInfoDBReplLagProject.dpr │ ├── QueryUserInfoBlockInfoProject.dpr │ ├── QuerySiteInfoExtensionsProject.dpr │ ├── QuerySiteInfoMagicWordsProject.dpr │ ├── QuerySiteInfoNamespacesProject.dpr │ ├── QuerySiteInfoStatisticsProject.dpr │ ├── QuerySiteInfoUserGroupsProject.dpr │ ├── QueryUserInfoRateLimitsProject.dpr │ ├── QueryPageExternalLinkInfosProject.dpr │ ├── QuerySiteInfoInterWikiMapProject.dpr │ ├── QuerySiteInfoNamespaceAliasesProject.dpr │ ├── QueryUserInfoChangeableGroupsProject.dpr │ ├── QuerySiteInfoSpecialPageAliasesProject.dpr │ ├── QuerySiteInfoExtensionsMainUnit.dfm │ ├── QuerySiteInfoGeneralMainUnit.dfm │ ├── QuerySiteInfoMagicWordsMainUnit.dfm │ ├── QuerySiteInfoNamespacesMainUnit.dfm │ ├── QuerySiteInfoStatisticsMainUnit.dfm │ ├── QueryUserInfoBlockInfoMainUnit.dfm │ ├── QueryUserInfoGroupsMainUnit.dfm │ ├── QueryUserInfoOptionsMainUnit.dfm │ ├── QueryUserInfoRateLimitsMainUnit.dfm │ ├── QueryUserInfoRightsMainUnit.dfm │ ├── QuerySiteInfoNamespaceAliasesMainUnit.dfm │ ├── QuerySiteInfoSpecialPageAliasesMainUnit.dfm │ ├── QueryUserInfoChangeableGroupsMainUnit.dfm │ ├── QuerySiteInfoDBReplLagMainUnit.dfm │ ├── QuerySiteInfoUserGroupsMainUnit.dfm │ ├── QuerySiteInfoInterWikiMapMainUnit.dfm │ ├── QueryAllPagesMainUnit.dfm │ ├── QueryAllUsersMainUnit.dfm │ ├── QueryBlocksMainUnit.dfm │ ├── QueryAllCategoriesMainUnit.dfm │ ├── UserMergeMainUnit.dfm │ ├── QueryPageInfosMainUnit.dfm │ ├── QueryCategoryMembersMainUnit.dfm │ ├── QueryUserInfoGroupsMainUnit.pas │ ├── QueryUserInfoRightsMainUnit.pas │ ├── QuerySiteInfoGeneralMainUnit.pas │ ├── QueryUserInfoBlockInfoMainUnit.pas │ ├── QuerySiteInfoMagicWordsMainUnit.pas │ ├── QuerySiteInfoNamespacesMainUnit.pas │ ├── QuerySiteInfoStatisticsMainUnit.pas │ ├── QuerySiteInfoNamespaceAliasesMainUnit.pas │ ├── QueryBackLinksMainUnit.dfm │ ├── QuerySiteInfoDBReplLagMainUnit.pas │ ├── QuerySiteInfoSpecialPageAliasesMainUnit.pas │ ├── QueryPageLinkInfosMainUnit.dfm │ ├── QueryPageBackLinkInfosMainUnit.dfm │ ├── QueryPageExternalLinkInfosMainUnit.dfm │ ├── QuerySiteInfoUserGroupsMainUnit.pas │ ├── QuerySiteInfoInterWikiMapMainUnit.pas │ ├── QueryPageCategoryInfosMainUnit.dfm │ ├── QueryPageTemplateInfosMainUnit.dfm │ ├── QueryUserInfoOptionsMainUnit.pas │ ├── QueryUserInfoChangeableGroupsMainUnit.pas │ ├── DeleteMainUnit.dfm │ ├── QueryAllCategoriesMainUnit.pas │ ├── EditMainUnit.dfm │ ├── MoveMainUnit.dfm │ ├── QueryAllUsersMainUnit.pas │ ├── QueryBlocksMainUnit.pas │ ├── QueryUserInfoRateLimitsMainUnit.pas │ ├── QueryBackLinksMainUnit.pas │ ├── EditProject.dproj │ ├── MoveProject.dproj │ ├── DeleteProject.dproj │ ├── UploadFileProject.dproj │ ├── UploadMainUnit.dfm │ ├── QueryBlocksProject.dproj │ ├── QueryAllPagesMainUnit.pas │ ├── QueryAllPagesProject.dproj │ ├── QueryAllUsersProject.dproj │ ├── QueryBackLinksProject.dproj │ ├── QueryPageInfosProject.dproj │ ├── QueryAllCategoriesProject.dproj │ ├── QueryPageLinkInfosProject.dproj │ ├── QueryUserInfoGroupsProject.dproj │ └── QueryUserInfoRightsProject.dproj ├── .github └── workflows │ ├── build_results_jcl.yml │ ├── build_results_jvcl.yml │ └── build_results_base.yml └── ccnet ├── server └── xsl │ ├── buildresults-jedi.xsl │ ├── jedi_all.xsl │ ├── modifications-jedi.xsl │ └── jedi.xsl └── webdashboard ├── xsl ├── buildresults-jedi.xsl ├── jedi_all.xsl └── jedi.xsl └── dashboard.config /shared/help/Make CHM Help.bat: -------------------------------------------------------------------------------- 1 | "%DMCC%" -config "CHM" -noshow -w3 JEDI.dox 2 | -------------------------------------------------------------------------------- /shared/help/Make H2 Help.bat: -------------------------------------------------------------------------------- 1 | "%DMCC%" -config "H2" -noshow -w3 JEDI.dox 2 | -------------------------------------------------------------------------------- /shared/help/Make PDF Help.bat: -------------------------------------------------------------------------------- 1 | "%DMCC%" -config "PDF" -noshow -w3 JEDI.dox 2 | -------------------------------------------------------------------------------- /shared/help/Make HTML Help.bat: -------------------------------------------------------------------------------- 1 | "%DMCC%" -config "HTML" -noshow -w3 JEDI.dox 2 | -------------------------------------------------------------------------------- /shared/help/Make WINHELP Help.bat: -------------------------------------------------------------------------------- 1 | "%DMCC%" -config "HLP" -noshow -w3 JEDI.dox 2 | -------------------------------------------------------------------------------- /helpsync/Diff/Demos/DiffDemo.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/Diff/Demos/DiffDemo.res -------------------------------------------------------------------------------- /helpsync/Diff/Demos/Merge3Demo.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/Diff/Demos/Merge3Demo.res -------------------------------------------------------------------------------- /helpsync/Diff/Demos/MergeDemo.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/Diff/Demos/MergeDemo.res -------------------------------------------------------------------------------- /shared/help/Make Xml Help.bat: -------------------------------------------------------------------------------- 1 | "%DMCC%" -config "XML" -noshow -w3 JEDI.dox 2 | "%XMLLINKS%" JEDI.dox XML "JEDI_Help:%%id" 3 | -------------------------------------------------------------------------------- /helpsync/Diff/Demos/MergeAfterDemo.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/Diff/Demos/MergeAfterDemo.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/MediaWikiApi.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/MediaWikiApi.pas -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/EditProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/EditProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/MoveProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/MoveProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/DeleteProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/DeleteProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/UploadFileProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/UploadFileProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllPagesProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QueryAllPagesProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllUsersProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QueryAllUsersProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryBlocksProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QueryBlocksProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/DeleteRevisionProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/DeleteRevisionProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryBackLinksProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QueryBackLinksProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageInfosProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QueryPageInfosProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllCategoriesProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QueryAllCategoriesProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageLinkInfosProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QueryPageLinkInfosProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryCategoryMembersProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QueryCategoryMembersProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoGeneralProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QuerySiteInfoGeneralProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoGroupsProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QueryUserInfoGroupsProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoOptionsProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QueryUserInfoOptionsProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoRightsProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QueryUserInfoRightsProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageBackLinkInfosProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QueryPageBackLinkInfosProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageCategoryInfosProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QueryPageCategoryInfosProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageTemplateInfosProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QueryPageTemplateInfosProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoDBReplLagProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QuerySiteInfoDBReplLagProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoExtensionsProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QuerySiteInfoExtensionsProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoMagicWordsProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QuerySiteInfoMagicWordsProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoNamespacesProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QuerySiteInfoNamespacesProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoStatisticsProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QuerySiteInfoStatisticsProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoUserGroupsProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QuerySiteInfoUserGroupsProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoBlockInfoProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QueryUserInfoBlockInfoProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoRateLimitsProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QueryUserInfoRateLimitsProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoInterWikiMapProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QuerySiteInfoInterWikiMapProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageExternalLinkInfosProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QueryPageExternalLinkInfosProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoNamespaceAliasesProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QuerySiteInfoNamespaceAliasesProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoChangeableGroupsProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QueryUserInfoChangeableGroupsProject.res -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoSpecialPageAliasesProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/project-jedi/tools/HEAD/helpsync/MediaWikiApi/Demos/QuerySiteInfoSpecialPageAliasesProject.res -------------------------------------------------------------------------------- /shared/help/kylix.dtx: -------------------------------------------------------------------------------- 1 | 2 | @@kylix.inc 3 | 4 | Summary 5 | The kylix.inc contains linux specific detections. 6 | 7 | Description 8 | The kylix.inc file is included by jedi.inc. 9 | 10 | Do not include kylix.inc directly in your code, rather use 11 | {$I jedi.inc} to detect kylix versions. 12 | -------------------------------------------------------------------------------- /.github/workflows/build_results_jcl.yml: -------------------------------------------------------------------------------- 1 | name: Update JCL badges 2 | 3 | on: 4 | push: 5 | branches: master 6 | paths: 7 | - 'build_results/jcl.xml' 8 | workflow_dispatch: 9 | 10 | jobs: 11 | jcl_badges: 12 | uses: ./.github/workflows/build_results_base.yml 13 | with: 14 | base_name: jcl 15 | -------------------------------------------------------------------------------- /.github/workflows/build_results_jvcl.yml: -------------------------------------------------------------------------------- 1 | name: Update JVCL badges 2 | 3 | on: 4 | push: 5 | branches: master 6 | paths: 7 | - 'build_results/jvcl.xml' 8 | workflow_dispatch: 9 | 10 | jobs: 11 | jvcl_badges: 12 | uses: ./.github/workflows/build_results_base.yml 13 | with: 14 | base_name: jvcl 15 | -------------------------------------------------------------------------------- /helpsync/Diff/Demos/DiffDemo.dpr: -------------------------------------------------------------------------------- 1 | program DiffDemo; 2 | 3 | uses 4 | Forms, 5 | SimpleDiff in '..\SimpleDiff.pas', 6 | DiffMainUnit in 'DiffMainUnit.pas' {FormMain}; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.MainFormOnTaskbar := True; 13 | Application.CreateForm(TFormMain, FormMain); 14 | Application.Run; 15 | end. 16 | 17 | -------------------------------------------------------------------------------- /helpsync/Diff/Demos/MergeDemo.dpr: -------------------------------------------------------------------------------- 1 | program MergeDemo; 2 | 3 | uses 4 | Forms, 5 | MergeMainUnit in 'MergeMainUnit.pas' {FormMain}, 6 | SimpleDiff in '..\SimpleDiff.pas'; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.MainFormOnTaskbar := True; 13 | Application.CreateForm(TFormMain, FormMain); 14 | Application.Run; 15 | end. 16 | 17 | -------------------------------------------------------------------------------- /helpsync/Diff/Demos/Merge3Demo.dpr: -------------------------------------------------------------------------------- 1 | program Merge3Demo; 2 | 3 | uses 4 | Forms, 5 | SimpleDiff in '..\SimpleDiff.pas', 6 | Merge3MainUnit in 'Merge3MainUnit.pas' {FormMain}; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.MainFormOnTaskbar := True; 13 | Application.CreateForm(TFormMain, FormMain); 14 | Application.Run; 15 | end. 16 | 17 | -------------------------------------------------------------------------------- /helpsync/Diff/Demos/MergeAfterDemo.dpr: -------------------------------------------------------------------------------- 1 | program MergeAfterDemo; 2 | 3 | uses 4 | Forms, 5 | SimpleDiff in '..\SimpleDiff.pas', 6 | MergeAfterMainUnit in 'MergeAfterMainUnit.pas' {FormMain}; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.MainFormOnTaskbar := True; 13 | Application.CreateForm(TFormMain, FormMain); 14 | Application.Run; 15 | end. 16 | 17 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/EditProject.dpr: -------------------------------------------------------------------------------- 1 | program EditProject; 2 | 3 | uses 4 | Forms, 5 | EditMainUnit in 'EditMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/MoveProject.dpr: -------------------------------------------------------------------------------- 1 | program MoveProject; 2 | 3 | uses 4 | Forms, 5 | MoveMainUnit in 'MoveMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/DeleteProject.dpr: -------------------------------------------------------------------------------- 1 | program DeleteProject; 2 | 3 | uses 4 | Forms, 5 | DeleteMainUnit in 'DeleteMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/UploadFileProject.dpr: -------------------------------------------------------------------------------- 1 | program UploadFileProject; 2 | 3 | uses 4 | Forms, 5 | MediaWikiUtils in '..\MediaWikiUtils.pas', 6 | MediaWikiApi in '..\MediaWikiApi.pas', 7 | UploadMainUnit in 'UploadMainUnit.pas' {MainForm}; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryBlocksProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryBlocksProject; 2 | 3 | uses 4 | Forms, 5 | QueryBlocksMainUnit in 'QueryBlocksMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllPagesProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryAllPagesProject; 2 | 3 | uses 4 | Forms, 5 | QueryAllPagesMainUnit in 'QueryAllPagesMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllUsersProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryAllUsersProject; 2 | 3 | uses 4 | Forms, 5 | QueryAllUsersMainUnit in 'QueryAllUsersMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/DeleteRevisionProject.dpr: -------------------------------------------------------------------------------- 1 | program DeleteRevisionProject; 2 | 3 | uses 4 | Forms, 5 | DeleteRevisionMainUnit in 'DeleteRevisionMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryBackLinksProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryBackLinksProject; 2 | 3 | uses 4 | Forms, 5 | QueryBackLinksMainUnit in 'QueryBackLinksMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageInfosProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryPageInfosProject; 2 | 3 | uses 4 | Forms, 5 | QueryPageInfosMainUnit in 'QueryPageInfosMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllCategoriesProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryAllCategoriesProject; 2 | 3 | uses 4 | Forms, 5 | QueryAllCategoriesMainUnit in 'QueryAllCategoriesMainUnit.pas' {MainForm}, 6 | MediaWikiApi in '..\MediaWikiApi.pas', 7 | MediaWikiUtils in '..\MediaWikiUtils.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageLinkInfosProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryPageLinkInfosProject; 2 | 3 | uses 4 | Forms, 5 | QueryPageLinkInfosMainUnit in 'QueryPageLinkInfosMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoGroupsProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryUserInfoGroupsProject; 2 | 3 | uses 4 | Forms, 5 | QueryUserInfoGroupsMainUnit in 'QueryUserInfoGroupsMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoRightsProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryUserInfoRightsProject; 2 | 3 | uses 4 | Forms, 5 | QueryUserInfoRightsMainUnit in 'QueryUserInfoRightsMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryCategoryMembersProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryCategoryMembersProject; 2 | 3 | uses 4 | Forms, 5 | QueryCategoryMembersMainUnit in 'QueryCategoryMembersMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoGeneralProject.dpr: -------------------------------------------------------------------------------- 1 | program QuerySiteInfoGeneralProject; 2 | 3 | uses 4 | Forms, 5 | QuerySiteInfoGeneralMainUnit in 'QuerySiteInfoGeneralMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoOptionsProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryUserInfoOptionsProject; 2 | 3 | uses 4 | Forms, 5 | QueryUserInfoOptionsMainUnit in 'QueryUserInfoOptionsMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageBackLinkInfosProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryPageBackLinkInfosProject; 2 | 3 | uses 4 | Forms, 5 | QueryPageBackLinkInfosMainUnit in 'QueryPageBackLinkInfosMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageCategoryInfosProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryPageCategoryInfosProject; 2 | 3 | uses 4 | Forms, 5 | QueryPageCategoryInfosMainUnit in 'QueryPageCategoryInfosMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageTemplateInfosProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryPageTemplateInfosProject; 2 | 3 | uses 4 | Forms, 5 | QueryPageTemplateInfosMainUnit in 'QueryPageTemplateInfosMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoDBReplLagProject.dpr: -------------------------------------------------------------------------------- 1 | program QuerySiteInfoDBReplLagProject; 2 | 3 | uses 4 | Forms, 5 | QuerySiteInfoDBReplLagMainUnit in 'QuerySiteInfoDBReplLagMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoBlockInfoProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryUserInfoBlockInfoProject; 2 | 3 | uses 4 | Forms, 5 | QueryUserInfoBlockInfoMainUnit in 'QueryUserInfoBlockInfoMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoExtensionsProject.dpr: -------------------------------------------------------------------------------- 1 | program QuerySiteInfoExtensionsProject; 2 | 3 | uses 4 | Forms, 5 | QuerySiteInfoExtensionsMainUnit in 'QuerySiteInfoExtensionsMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoMagicWordsProject.dpr: -------------------------------------------------------------------------------- 1 | program QuerySiteInfoMagicWordsProject; 2 | 3 | uses 4 | Forms, 5 | QuerySiteInfoMagicWordsMainUnit in 'QuerySiteInfoMagicWordsMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoNamespacesProject.dpr: -------------------------------------------------------------------------------- 1 | program QuerySiteInfoNamespacesProject; 2 | 3 | uses 4 | Forms, 5 | QuerySiteInfoNamespacesMainUnit in 'QuerySiteInfoNamespacesMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoStatisticsProject.dpr: -------------------------------------------------------------------------------- 1 | program QuerySiteInfoStatisticsProject; 2 | 3 | uses 4 | Forms, 5 | QuerySiteInfoStatisticsMainUnit in 'QuerySiteInfoStatisticsMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoUserGroupsProject.dpr: -------------------------------------------------------------------------------- 1 | program QuerySiteInfoUserGroupsProject; 2 | 3 | uses 4 | Forms, 5 | QuerySiteInfoUserGroupsMainUnit in 'QuerySiteInfoUserGroupsMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoRateLimitsProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryUserInfoRateLimitsProject; 2 | 3 | uses 4 | Forms, 5 | QueryUserInfoRateLimitsMainUnit in 'QueryUserInfoRateLimitsMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageExternalLinkInfosProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryPageExternalLinkInfosProject; 2 | 3 | uses 4 | Forms, 5 | QueryPageExternalLinkInfosMainUnit in 'QueryPageExternalLinkInfosMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoInterWikiMapProject.dpr: -------------------------------------------------------------------------------- 1 | program QuerySiteInfoInterWikiMapProject; 2 | 3 | uses 4 | Forms, 5 | QuerySiteInfoInterWikiMapMainUnit in 'QuerySiteInfoInterWikiMapMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoNamespaceAliasesProject.dpr: -------------------------------------------------------------------------------- 1 | program QuerySiteInfoNamespaceAliasesProject; 2 | 3 | uses 4 | Forms, 5 | QuerySiteInfoNamespaceAliasesMainUnit in 'QuerySiteInfoNamespaceAliasesMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoChangeableGroupsProject.dpr: -------------------------------------------------------------------------------- 1 | program QueryUserInfoChangeableGroupsProject; 2 | 3 | uses 4 | Forms, 5 | QueryUserInfoChangeableGroupsMainUnit in 'QueryUserInfoChangeableGroupsMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoSpecialPageAliasesProject.dpr: -------------------------------------------------------------------------------- 1 | program QuerySiteInfoSpecialPageAliasesProject; 2 | 3 | uses 4 | Forms, 5 | QuerySiteInfoSpecialPageAliasesMainUnit in 'QuerySiteInfoSpecialPageAliasesMainUnit.pas' {MainForm}, 6 | MediaWikiUtils in '..\MediaWikiUtils.pas', 7 | MediaWikiApi in '..\MediaWikiApi.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TMainForm, MainForm); 15 | Application.Run; 16 | end. 17 | 18 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoExtensionsMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoGeneralMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoMagicWordsMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoNamespacesMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoStatisticsMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoBlockInfoMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoGroupsMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoOptionsMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoRateLimitsMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoRightsMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoNamespaceAliasesMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoSpecialPageAliasesMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoChangeableGroupsMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /ccnet/server/xsl/buildresults-jedi.xsl: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 15 | 16 |
12 | 13 | Execution result 14 |
17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | -------------------------------------------------------------------------------- /ccnet/webdashboard/xsl/buildresults-jedi.xsl: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 15 | 16 |
12 | 13 | Execution result 14 |
17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoDBReplLagMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | object CheckBoxAllDB: TCheckBox 45 | Left = 336 46 | Top = 80 47 | Width = 97 48 | Height = 17 49 | Caption = 'All DB' 50 | TabOrder = 3 51 | end 52 | end 53 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoUserGroupsMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | object CheckBoxUserCount: TCheckBox 45 | Left = 336 46 | Top = 80 47 | Width = 97 48 | Height = 17 49 | Caption = 'User count' 50 | TabOrder = 3 51 | end 52 | end 53 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoInterWikiMapMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object MemoResult: TMemo 19 | Left = 16 20 | Top = 8 21 | Width = 297 22 | Height = 273 23 | ReadOnly = True 24 | TabOrder = 0 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 1 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 2 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | object CheckBoxLocal: TCheckBox 45 | Left = 336 46 | Top = 80 47 | Width = 97 48 | Height = 17 49 | Caption = 'Local wiki map' 50 | TabOrder = 3 51 | end 52 | end 53 | -------------------------------------------------------------------------------- /ccnet/server/xsl/jedi_all.xsl: -------------------------------------------------------------------------------- 1 | 2 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | JCL 17 | 18 | 19 | 20 | 21 | 22 | JCL 23 | 24 | 25 | 26 | 27 | 28 | JVCL 29 | 30 | 31 | 32 | 33 | 34 | JVCL 35 | 36 | 37 | -------------------------------------------------------------------------------- /ccnet/webdashboard/dashboard.config: -------------------------------------------------------------------------------- 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 | xsl\header.xsl 28 | xsl\jedi_all.xsl 29 | xsl\buildresults-jedi.xsl 30 | xsl\modifications.xsl 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | -------------------------------------------------------------------------------- /ccnet/webdashboard/xsl/jedi_all.xsl: -------------------------------------------------------------------------------- 1 | 2 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | JCL 17 | 18 | 19 | 20 | 21 | 22 | JCL 23 | 24 | 25 | 26 | 27 | 28 | JVCL 29 | 30 | 31 | 32 | 33 | 34 | JVCL 35 | 36 | 37 | -------------------------------------------------------------------------------- /.github/workflows/build_results_base.yml: -------------------------------------------------------------------------------- 1 | run-name: Build ${{ inputs.base_name }} badges 2 | 3 | on: 4 | workflow_call: 5 | inputs: 6 | base_name: 7 | required: true 8 | type: string 9 | 10 | jobs: 11 | badges: 12 | runs-on: ubuntu-latest 13 | defaults: 14 | run: 15 | working-directory: ./build_results 16 | 17 | permissions: 18 | # Give the default GITHUB_TOKEN write permission to commit and push the 19 | # added or changed files to the repository. 20 | contents: write 21 | 22 | steps: 23 | - name: Checkout current repository to Master branch 24 | uses: actions/checkout@v3 25 | - name: Setup NodeJs 16.x 26 | uses: actions/setup-node@v3 27 | with: 28 | node-version: '16.x' 29 | cache: 'npm' 30 | cache-dependency-path: build_results/package-lock.json 31 | #- name: Cache dependencies and build outputs to improve workflow execution time. 32 | # uses: actions/cache@v3 33 | # with: 34 | # path: node_modules 35 | # key: ${{ runner.os }}-js-${{ hashFiles('package-lock.json') }} 36 | - name: Install dependencies 37 | run: npm install 38 | - name: Generate badges file 39 | run: node ${{ inputs.base_name }}.js 40 | # Commit all changed files back to the repository 41 | - uses: stefanzweifel/git-auto-commit-action@v4 42 | with: 43 | commit_message: Automated badges generation 44 | file_pattern: 'build_results/*.md build_results/badges/*.svg' 45 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllPagesMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxPages: TLabel 19 | Left = 335 20 | Top = 73 21 | Width = 56 22 | Height = 13 23 | Caption = '&Max Pages:' 24 | FocusControl = EditMaxPages 25 | end 26 | object LabelStartPage: TLabel 27 | Left = 335 28 | Top = 100 29 | Width = 28 30 | Height = 13 31 | Caption = '&Start:' 32 | end 33 | object MemoResult: TMemo 34 | Left = 16 35 | Top = 8 36 | Width = 297 37 | Height = 273 38 | ReadOnly = True 39 | TabOrder = 0 40 | end 41 | object ButtonQueryAsync: TButton 42 | Left = 336 43 | Top = 8 44 | Width = 97 45 | Height = 25 46 | Caption = 'Async Query' 47 | TabOrder = 1 48 | OnClick = ButtonQueryAsyncClick 49 | end 50 | object ButtonQuerySync: TButton 51 | Left = 336 52 | Top = 39 53 | Width = 97 54 | Height = 25 55 | Caption = 'Sync Query' 56 | TabOrder = 2 57 | OnClick = ButtonQuerySyncClick 58 | end 59 | object EditMaxPages: TEdit 60 | Left = 400 61 | Top = 70 62 | Width = 33 63 | Height = 21 64 | TabOrder = 3 65 | Text = '10' 66 | end 67 | object EditStartPage: TEdit 68 | Left = 376 69 | Top = 97 70 | Width = 57 71 | Height = 21 72 | Font.Charset = DEFAULT_CHARSET 73 | Font.Color = clBtnFace 74 | Font.Height = -11 75 | Font.Name = 'Tahoma' 76 | Font.Style = [] 77 | ParentFont = False 78 | ReadOnly = True 79 | TabOrder = 4 80 | end 81 | end 82 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllUsersMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxUsers: TLabel 19 | Left = 335 20 | Top = 73 21 | Width = 54 22 | Height = 13 23 | Caption = '&Max Users:' 24 | FocusControl = EditMaxUsers 25 | end 26 | object LabelStartUser: TLabel 27 | Left = 335 28 | Top = 100 29 | Width = 28 30 | Height = 13 31 | Caption = '&Start:' 32 | end 33 | object MemoResult: TMemo 34 | Left = 16 35 | Top = 8 36 | Width = 297 37 | Height = 273 38 | ReadOnly = True 39 | TabOrder = 0 40 | end 41 | object ButtonQueryAsync: TButton 42 | Left = 336 43 | Top = 8 44 | Width = 97 45 | Height = 25 46 | Caption = 'Async Query' 47 | TabOrder = 1 48 | OnClick = ButtonQueryAsyncClick 49 | end 50 | object ButtonQuerySync: TButton 51 | Left = 336 52 | Top = 39 53 | Width = 97 54 | Height = 25 55 | Caption = 'Sync Query' 56 | TabOrder = 2 57 | OnClick = ButtonQuerySyncClick 58 | end 59 | object EditMaxUsers: TEdit 60 | Left = 400 61 | Top = 70 62 | Width = 33 63 | Height = 21 64 | TabOrder = 3 65 | Text = '10' 66 | end 67 | object EditStartUser: TEdit 68 | Left = 376 69 | Top = 97 70 | Width = 57 71 | Height = 21 72 | Font.Charset = DEFAULT_CHARSET 73 | Font.Color = clBtnFace 74 | Font.Height = -11 75 | Font.Name = 'Tahoma' 76 | Font.Style = [] 77 | ParentFont = False 78 | ReadOnly = True 79 | TabOrder = 4 80 | end 81 | end 82 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryBlocksMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxBlocks: TLabel 19 | Left = 335 20 | Top = 100 21 | Width = 56 22 | Height = 13 23 | Caption = '&Max Blocks:' 24 | FocusControl = EditMaxBlocks 25 | end 26 | object LabelStartBlock: TLabel 27 | Left = 335 28 | Top = 127 29 | Width = 28 30 | Height = 13 31 | Caption = '&Start:' 32 | end 33 | object MemoResult: TMemo 34 | Left = 16 35 | Top = 8 36 | Width = 297 37 | Height = 273 38 | ReadOnly = True 39 | TabOrder = 0 40 | end 41 | object ButtonQueryAsync: TButton 42 | Left = 336 43 | Top = 8 44 | Width = 97 45 | Height = 25 46 | Caption = 'Async Query' 47 | TabOrder = 1 48 | OnClick = ButtonQueryAsyncClick 49 | end 50 | object ButtonQuerySync: TButton 51 | Left = 336 52 | Top = 39 53 | Width = 97 54 | Height = 25 55 | Caption = 'Sync Query' 56 | TabOrder = 2 57 | OnClick = ButtonQuerySyncClick 58 | end 59 | object EditMaxBlocks: TEdit 60 | Left = 400 61 | Top = 97 62 | Width = 33 63 | Height = 21 64 | TabOrder = 3 65 | Text = '10' 66 | end 67 | object EditStartBlock: TEdit 68 | Left = 376 69 | Top = 124 70 | Width = 57 71 | Height = 21 72 | Font.Charset = DEFAULT_CHARSET 73 | Font.Color = clBtnFace 74 | Font.Height = -11 75 | Font.Name = 'Tahoma' 76 | Font.Style = [] 77 | ParentFont = False 78 | ReadOnly = True 79 | TabOrder = 4 80 | end 81 | end 82 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllCategoriesMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxCategories: TLabel 19 | Left = 335 20 | Top = 73 21 | Width = 79 22 | Height = 13 23 | Caption = '&Max Categories:' 24 | FocusControl = EditMaxCategories 25 | end 26 | object LabelStartCategory: TLabel 27 | Left = 335 28 | Top = 100 29 | Width = 28 30 | Height = 13 31 | Caption = '&Start:' 32 | end 33 | object MemoResult: TMemo 34 | Left = 16 35 | Top = 8 36 | Width = 297 37 | Height = 273 38 | ReadOnly = True 39 | TabOrder = 0 40 | end 41 | object ButtonQueryAsync: TButton 42 | Left = 336 43 | Top = 8 44 | Width = 97 45 | Height = 25 46 | Caption = 'Async Query' 47 | TabOrder = 1 48 | OnClick = ButtonQueryAsyncClick 49 | end 50 | object ButtonQuerySync: TButton 51 | Left = 336 52 | Top = 39 53 | Width = 97 54 | Height = 25 55 | Caption = 'Sync Query' 56 | TabOrder = 2 57 | OnClick = ButtonQuerySyncClick 58 | end 59 | object EditMaxCategories: TEdit 60 | Left = 400 61 | Top = 70 62 | Width = 33 63 | Height = 21 64 | TabOrder = 3 65 | Text = '10' 66 | end 67 | object EditStartCategory: TEdit 68 | Left = 376 69 | Top = 97 70 | Width = 57 71 | Height = 21 72 | Font.Charset = DEFAULT_CHARSET 73 | Font.Color = clBtnFace 74 | Font.Height = -11 75 | Font.Name = 'Tahoma' 76 | Font.Style = [] 77 | ParentFont = False 78 | ReadOnly = True 79 | TabOrder = 4 80 | end 81 | end 82 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/UserMergeMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 466 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelPage: TLabel 19 | Left = 335 20 | Top = 73 21 | Width = 16 22 | Height = 13 23 | Caption = '&To:' 24 | FocusControl = EditToUser 25 | end 26 | object ButtonQueryAsync: TButton 27 | Left = 336 28 | Top = 8 29 | Width = 97 30 | Height = 25 31 | Caption = 'Async Query' 32 | TabOrder = 0 33 | OnClick = ButtonQueryAsyncClick 34 | end 35 | object ButtonQuerySync: TButton 36 | Left = 336 37 | Top = 39 38 | Width = 97 39 | Height = 25 40 | Caption = 'Sync Query' 41 | TabOrder = 1 42 | OnClick = ButtonQuerySyncClick 43 | end 44 | object EditToUser: TEdit 45 | Left = 369 46 | Top = 70 47 | Width = 64 48 | Height = 21 49 | TabOrder = 2 50 | end 51 | object ButtonMergeAsync: TButton 52 | Left = 336 53 | Top = 122 54 | Width = 97 55 | Height = 25 56 | Caption = 'Async Merge' 57 | TabOrder = 3 58 | OnClick = ButtonMergeAsyncClick 59 | end 60 | object ButtonMergeSync: TButton 61 | Left = 336 62 | Top = 153 63 | Width = 97 64 | Height = 25 65 | Caption = 'Sync Merge' 66 | TabOrder = 4 67 | OnClick = ButtonMergeSyncClick 68 | end 69 | object ListBoxUserList: TListBox 70 | Left = 16 71 | Top = 8 72 | Width = 297 73 | Height = 278 74 | ItemHeight = 13 75 | TabOrder = 5 76 | end 77 | object CheckBoxDeleteUser: TCheckBox 78 | Left = 336 79 | Top = 99 80 | Width = 97 81 | Height = 17 82 | Caption = 'Delete User' 83 | TabOrder = 6 84 | end 85 | end 86 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageInfosMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxLinks: TLabel 19 | Left = 335 20 | Top = 100 21 | Width = 50 22 | Height = 13 23 | Caption = '&Max Links:' 24 | FocusControl = EditMaxLinks 25 | end 26 | object LabelStartLink: TLabel 27 | Left = 335 28 | Top = 127 29 | Width = 28 30 | Height = 13 31 | Caption = '&Start:' 32 | end 33 | object LabelPageTitle: TLabel 34 | Left = 333 35 | Top = 73 36 | Width = 51 37 | Height = 13 38 | Caption = '&Page Title:' 39 | end 40 | object MemoResult: TMemo 41 | Left = 16 42 | Top = 8 43 | Width = 297 44 | Height = 273 45 | ReadOnly = True 46 | TabOrder = 0 47 | end 48 | object ButtonQueryAsync: TButton 49 | Left = 336 50 | Top = 8 51 | Width = 97 52 | Height = 25 53 | Caption = 'Async Query' 54 | TabOrder = 1 55 | OnClick = ButtonQueryAsyncClick 56 | end 57 | object ButtonQuerySync: TButton 58 | Left = 336 59 | Top = 39 60 | Width = 97 61 | Height = 25 62 | Caption = 'Sync Query' 63 | TabOrder = 2 64 | OnClick = ButtonQuerySyncClick 65 | end 66 | object EditMaxLinks: TEdit 67 | Left = 400 68 | Top = 97 69 | Width = 33 70 | Height = 21 71 | TabOrder = 3 72 | Text = '10' 73 | end 74 | object EditStartLink: TEdit 75 | Left = 376 76 | Top = 124 77 | Width = 57 78 | Height = 21 79 | TabOrder = 4 80 | end 81 | object EditPageTitle: TEdit 82 | Left = 390 83 | Top = 70 84 | Width = 43 85 | Height = 21 86 | TabOrder = 5 87 | Text = 'JEDI_Code_Library' 88 | end 89 | end 90 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryCategoryMembersMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxCategoryMembers: TLabel 19 | Left = 335 20 | Top = 100 21 | Width = 70 22 | Height = 13 23 | Caption = '&Max Members:' 24 | FocusControl = EditMaxCategoryMembers 25 | end 26 | object LabelStartCategoryMember: TLabel 27 | Left = 335 28 | Top = 127 29 | Width = 28 30 | Height = 13 31 | Caption = '&Start:' 32 | end 33 | object LabelCategory: TLabel 34 | Left = 335 35 | Top = 73 36 | Width = 49 37 | Height = 13 38 | Caption = '&Category:' 39 | FocusControl = EditCategory 40 | end 41 | object MemoResult: TMemo 42 | Left = 16 43 | Top = 8 44 | Width = 297 45 | Height = 273 46 | ReadOnly = True 47 | TabOrder = 0 48 | end 49 | object ButtonQueryAsync: TButton 50 | Left = 336 51 | Top = 8 52 | Width = 97 53 | Height = 25 54 | Caption = 'Async Query' 55 | TabOrder = 1 56 | OnClick = ButtonQueryAsyncClick 57 | end 58 | object ButtonQuerySync: TButton 59 | Left = 336 60 | Top = 39 61 | Width = 97 62 | Height = 25 63 | Caption = 'Sync Query' 64 | TabOrder = 2 65 | OnClick = ButtonQuerySyncClick 66 | end 67 | object EditMaxCategoryMembers: TEdit 68 | Left = 400 69 | Top = 97 70 | Width = 33 71 | Height = 21 72 | TabOrder = 3 73 | Text = '10' 74 | end 75 | object EditStartCategoryMember: TEdit 76 | Left = 376 77 | Top = 124 78 | Width = 57 79 | Height = 21 80 | TabOrder = 4 81 | end 82 | object EditCategory: TEdit 83 | Left = 390 84 | Top = 70 85 | Width = 43 86 | Height = 21 87 | TabOrder = 5 88 | Text = 'Category:Template' 89 | end 90 | end 91 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoGroupsMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QueryUserInfoGroupsMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiUserInfoGroupsDone(Sender: TMediaWikiApi; Infos: TStrings); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQueryUserInfoGroupsDone := MediaWikiUserInfoGroupsDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QueryUserInfoGroupsAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | begin 44 | MemoResult.Lines.Clear; 45 | FMediaWikiApi.OnQueryUserInfoGroupsDone := nil; 46 | FMediaWikiApi.QueryUserInfoGroups(MemoResult.Lines); 47 | end; 48 | 49 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 50 | begin 51 | Action := caFree; 52 | // logout is not required 53 | //FMediaWikiApi.Logout; 54 | FMediaWikiApi.Free; 55 | end; 56 | 57 | procedure TMainForm.FormCreate(Sender: TObject); 58 | begin 59 | FMediaWikiApi := TMediaWikiApi.Create; 60 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 61 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 62 | FMediaWikiApi.HttpCli.FollowRelocation := False; 63 | // login is not mandatory 64 | //FMediaWikiApi.Login() 65 | end; 66 | 67 | procedure TMainForm.MediaWikiUserInfoGroupsDone(Sender: TMediaWikiApi; Infos: TStrings); 68 | begin 69 | MemoResult.Lines.Assign(Infos); 70 | end; 71 | 72 | end. 73 | 74 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoRightsMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QueryUserInfoRightsMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiUserInfoRightsDone(Sender: TMediaWikiApi; Infos: TStrings); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQueryUserInfoRightsDone := MediaWikiUserInfoRightsDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QueryUserInfoRightsAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | begin 44 | MemoResult.Lines.Clear; 45 | FMediaWikiApi.OnQueryUserInfoRightsDone := nil; 46 | FMediaWikiApi.QueryUserInfoRights(MemoResult.Lines); 47 | end; 48 | 49 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 50 | begin 51 | Action := caFree; 52 | // logout is not required 53 | //FMediaWikiApi.Logout; 54 | FMediaWikiApi.Free; 55 | end; 56 | 57 | procedure TMainForm.FormCreate(Sender: TObject); 58 | begin 59 | FMediaWikiApi := TMediaWikiApi.Create; 60 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 61 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 62 | FMediaWikiApi.HttpCli.FollowRelocation := False; 63 | // login is not mandatory 64 | //FMediaWikiApi.Login() 65 | end; 66 | 67 | procedure TMainForm.MediaWikiUserInfoRightsDone(Sender: TMediaWikiApi; Infos: TStrings); 68 | begin 69 | MemoResult.Lines.Assign(Infos); 70 | end; 71 | 72 | end. 73 | 74 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoGeneralMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QuerySiteInfoGeneralMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiSiteInfoGeneralDone(Sender: TMediaWikiApi; Infos: TStrings); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQuerySiteInfoGeneralDone := MediaWikiSiteInfoGeneralDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QuerySiteInfoGeneralAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | begin 44 | MemoResult.Lines.Clear; 45 | FMediaWikiApi.OnQuerySiteInfoGeneralDone := nil; 46 | FMediaWikiApi.QuerySiteInfoGeneral(MemoResult.Lines); 47 | end; 48 | 49 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 50 | begin 51 | Action := caFree; 52 | // logout is not required 53 | //FMediaWikiApi.Logout; 54 | FMediaWikiApi.Free; 55 | end; 56 | 57 | procedure TMainForm.FormCreate(Sender: TObject); 58 | begin 59 | FMediaWikiApi := TMediaWikiApi.Create; 60 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 61 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 62 | FMediaWikiApi.HttpCli.FollowRelocation := False; 63 | // login is not mandatory 64 | //FMediaWikiApi.Login() 65 | end; 66 | 67 | procedure TMainForm.MediaWikiSiteInfoGeneralDone(Sender: TMediaWikiApi; Infos: TStrings); 68 | begin 69 | MemoResult.Lines.Assign(Infos); 70 | end; 71 | 72 | end. 73 | 74 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoBlockInfoMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QueryUserInfoBlockInfoMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiUserInfoBlockInfoDone(Sender: TMediaWikiApi; Infos: TStrings); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQueryUserInfoBlockInfoDone := MediaWikiUserInfoBlockInfoDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QueryUserInfoBlockInfoAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | begin 44 | MemoResult.Lines.Clear; 45 | FMediaWikiApi.OnQueryUserInfoBlockInfoDone := nil; 46 | FMediaWikiApi.QueryUserInfoBlockInfo(MemoResult.Lines); 47 | end; 48 | 49 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 50 | begin 51 | Action := caFree; 52 | // logout is not required 53 | //FMediaWikiApi.Logout; 54 | FMediaWikiApi.Free; 55 | end; 56 | 57 | procedure TMainForm.FormCreate(Sender: TObject); 58 | begin 59 | FMediaWikiApi := TMediaWikiApi.Create; 60 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 61 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 62 | FMediaWikiApi.HttpCli.FollowRelocation := False; 63 | // login is not mandatory 64 | //FMediaWikiApi.Login() 65 | end; 66 | 67 | procedure TMainForm.MediaWikiUserInfoBlockInfoDone(Sender: TMediaWikiApi; Infos: TStrings); 68 | begin 69 | MemoResult.Lines.Assign(Infos); 70 | end; 71 | 72 | end. 73 | 74 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoMagicWordsMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QuerySiteInfoMagicWordsMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiSiteInfoMagicWordsDone(Sender: TMediaWikiApi; Infos: TStrings); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQuerySiteInfoMagicWordsDone := MediaWikiSiteInfoMagicWordsDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QuerySiteInfoMagicWordsAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | begin 44 | MemoResult.Lines.Clear; 45 | FMediaWikiApi.OnQuerySiteInfoMagicWordsDone := nil; 46 | FMediaWikiApi.QuerySiteInfoMagicWords(MemoResult.Lines); 47 | end; 48 | 49 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 50 | begin 51 | Action := caFree; 52 | // logout is not required 53 | //FMediaWikiApi.Logout; 54 | FMediaWikiApi.Free; 55 | end; 56 | 57 | procedure TMainForm.FormCreate(Sender: TObject); 58 | begin 59 | FMediaWikiApi := TMediaWikiApi.Create; 60 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 61 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 62 | FMediaWikiApi.HttpCli.FollowRelocation := False; 63 | // login is not mandatory 64 | //FMediaWikiApi.Login() 65 | end; 66 | 67 | procedure TMainForm.MediaWikiSiteInfoMagicWordsDone(Sender: TMediaWikiApi; Infos: TStrings); 68 | begin 69 | MemoResult.Lines.Assign(Infos); 70 | end; 71 | 72 | end. 73 | 74 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoNamespacesMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QuerySiteInfoNamespacesMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiSiteInfoNamespacesDone(Sender: TMediaWikiApi; Infos: TStrings); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQuerySiteInfoNamespacesDone := MediaWikiSiteInfoNamespacesDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QuerySiteInfoNamespacesAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | begin 44 | MemoResult.Lines.Clear; 45 | FMediaWikiApi.OnQuerySiteInfoNamespacesDone := nil; 46 | FMediaWikiApi.QuerySiteInfoNamespaces(MemoResult.Lines); 47 | end; 48 | 49 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 50 | begin 51 | Action := caFree; 52 | // logout is not required 53 | //FMediaWikiApi.Logout; 54 | FMediaWikiApi.Free; 55 | end; 56 | 57 | procedure TMainForm.FormCreate(Sender: TObject); 58 | begin 59 | FMediaWikiApi := TMediaWikiApi.Create; 60 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 61 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 62 | FMediaWikiApi.HttpCli.FollowRelocation := False; 63 | // login is not mandatory 64 | //FMediaWikiApi.Login() 65 | end; 66 | 67 | procedure TMainForm.MediaWikiSiteInfoNamespacesDone(Sender: TMediaWikiApi; Infos: TStrings); 68 | begin 69 | MemoResult.Lines.Assign(Infos); 70 | end; 71 | 72 | end. 73 | 74 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoStatisticsMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QuerySiteInfoStatisticsMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiSiteInfoStatisticsDone(Sender: TMediaWikiApi; Infos: TStrings); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQuerySiteInfoStatisticsDone := MediaWikiSiteInfoStatisticsDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QuerySiteInfoStatisticsAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | begin 44 | MemoResult.Lines.Clear; 45 | FMediaWikiApi.OnQuerySiteInfoStatisticsDone := nil; 46 | FMediaWikiApi.QuerySiteInfoStatistics(MemoResult.Lines); 47 | end; 48 | 49 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 50 | begin 51 | Action := caFree; 52 | // logout is not required 53 | //FMediaWikiApi.Logout; 54 | FMediaWikiApi.Free; 55 | end; 56 | 57 | procedure TMainForm.FormCreate(Sender: TObject); 58 | begin 59 | FMediaWikiApi := TMediaWikiApi.Create; 60 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 61 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 62 | FMediaWikiApi.HttpCli.FollowRelocation := False; 63 | // login is not mandatory 64 | //FMediaWikiApi.Login() 65 | end; 66 | 67 | procedure TMainForm.MediaWikiSiteInfoStatisticsDone(Sender: TMediaWikiApi; Infos: TStrings); 68 | begin 69 | MemoResult.Lines.Assign(Infos); 70 | end; 71 | 72 | end. 73 | 74 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoNamespaceAliasesMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QuerySiteInfoNamespaceAliasesMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiSiteInfoNamespaceAliasesDone(Sender: TMediaWikiApi; Infos: TStrings); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQuerySiteInfoNamespaceAliasesDone := MediaWikiSiteInfoNamespaceAliasesDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QuerySiteInfoNamespaceAliasesAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | begin 44 | MemoResult.Lines.Clear; 45 | FMediaWikiApi.OnQuerySiteInfoNamespaceAliasesDone := nil; 46 | FMediaWikiApi.QuerySiteInfoNamespaceAliases(MemoResult.Lines); 47 | end; 48 | 49 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 50 | begin 51 | Action := caFree; 52 | // logout is not required 53 | //FMediaWikiApi.Logout; 54 | FMediaWikiApi.Free; 55 | end; 56 | 57 | procedure TMainForm.FormCreate(Sender: TObject); 58 | begin 59 | FMediaWikiApi := TMediaWikiApi.Create; 60 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 61 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 62 | FMediaWikiApi.HttpCli.FollowRelocation := False; 63 | // login is not mandatory 64 | //FMediaWikiApi.Login() 65 | end; 66 | 67 | procedure TMainForm.MediaWikiSiteInfoNamespaceAliasesDone(Sender: TMediaWikiApi; Infos: TStrings); 68 | begin 69 | MemoResult.Lines.Assign(Infos); 70 | end; 71 | 72 | end. 73 | 74 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryBackLinksMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxLinks: TLabel 19 | Left = 335 20 | Top = 100 21 | Width = 50 22 | Height = 13 23 | Caption = '&Max Links:' 24 | FocusControl = EditMaxLinks 25 | end 26 | object LabelStartLink: TLabel 27 | Left = 335 28 | Top = 127 29 | Width = 28 30 | Height = 13 31 | Caption = '&Start:' 32 | end 33 | object LabelPageTitle: TLabel 34 | Left = 333 35 | Top = 73 36 | Width = 51 37 | Height = 13 38 | Caption = '&Page Title:' 39 | end 40 | object MemoResult: TMemo 41 | Left = 16 42 | Top = 8 43 | Width = 297 44 | Height = 273 45 | ReadOnly = True 46 | TabOrder = 0 47 | end 48 | object ButtonQueryAsync: TButton 49 | Left = 336 50 | Top = 8 51 | Width = 97 52 | Height = 25 53 | Caption = 'Async Query' 54 | TabOrder = 1 55 | OnClick = ButtonQueryAsyncClick 56 | end 57 | object ButtonQuerySync: TButton 58 | Left = 336 59 | Top = 39 60 | Width = 97 61 | Height = 25 62 | Caption = 'Sync Query' 63 | TabOrder = 2 64 | OnClick = ButtonQuerySyncClick 65 | end 66 | object EditMaxLinks: TEdit 67 | Left = 400 68 | Top = 97 69 | Width = 33 70 | Height = 21 71 | TabOrder = 3 72 | Text = '10' 73 | end 74 | object EditStartLink: TEdit 75 | Left = 376 76 | Top = 124 77 | Width = 57 78 | Height = 21 79 | Font.Charset = DEFAULT_CHARSET 80 | Font.Color = clBtnFace 81 | Font.Height = -11 82 | Font.Name = 'Tahoma' 83 | Font.Style = [] 84 | ParentFont = False 85 | ReadOnly = True 86 | TabOrder = 4 87 | end 88 | object EditPageTitle: TEdit 89 | Left = 390 90 | Top = 70 91 | Width = 43 92 | Height = 21 93 | TabOrder = 5 94 | Text = 'JEDI_Code_Library' 95 | end 96 | end 97 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoDBReplLagMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QuerySiteInfoDBReplLagMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | CheckBoxAllDB: TCheckBox; 17 | procedure FormCreate(Sender: TObject); 18 | procedure ButtonQuerySyncClick(Sender: TObject); 19 | procedure ButtonQueryAsyncClick(Sender: TObject); 20 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 21 | private 22 | FMediaWikiApi: TMediaWikiApi; 23 | procedure MediaWikiSiteInfoDBReplLagDone(Sender: TMediaWikiApi; Infos: TStrings); 24 | public 25 | end; 26 | 27 | var 28 | MainForm: TMainForm; 29 | 30 | implementation 31 | 32 | {$R *.dfm} 33 | 34 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 35 | begin 36 | MemoResult.Lines.Clear; 37 | FMediaWikiApi.OnQuerySiteInfoDBReplLagDone := MediaWikiSiteInfoDBReplLagDone; 38 | FMediaWikiApi.QueryInit; 39 | FMediaWikiApi.QuerySiteInfoDBReplLagAsync(CheckBoxAllDB.Checked); 40 | FMediaWikiApi.QueryExecuteAsync; 41 | end; 42 | 43 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 44 | begin 45 | MemoResult.Lines.Clear; 46 | FMediaWikiApi.OnQuerySiteInfoDBReplLagDone := nil; 47 | FMediaWikiApi.QuerySiteInfoDBReplLag(CheckBoxAllDB.Checked, MemoResult.Lines); 48 | end; 49 | 50 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 51 | begin 52 | Action := caFree; 53 | // logout is not required 54 | //FMediaWikiApi.Logout; 55 | FMediaWikiApi.Free; 56 | end; 57 | 58 | procedure TMainForm.FormCreate(Sender: TObject); 59 | begin 60 | FMediaWikiApi := TMediaWikiApi.Create; 61 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 62 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 63 | FMediaWikiApi.HttpCli.FollowRelocation := False; 64 | // login is not mandatory 65 | //FMediaWikiApi.Login() 66 | end; 67 | 68 | procedure TMainForm.MediaWikiSiteInfoDBReplLagDone(Sender: TMediaWikiApi; Infos: TStrings); 69 | begin 70 | MemoResult.Lines.Assign(Infos); 71 | end; 72 | 73 | end. 74 | 75 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoSpecialPageAliasesMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QuerySiteInfoSpecialPageAliasesMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiSiteInfoSpecialPageAliasesDone(Sender: TMediaWikiApi; Infos: TStrings); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQuerySiteInfoSpecialPageAliasesDone := MediaWikiSiteInfoSpecialPageAliasesDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QuerySiteInfoSpecialPageAliasesAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | begin 44 | MemoResult.Lines.Clear; 45 | FMediaWikiApi.OnQuerySiteInfoSpecialPageAliasesDone := nil; 46 | FMediaWikiApi.QuerySiteInfoSpecialPageAliases(MemoResult.Lines); 47 | end; 48 | 49 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 50 | begin 51 | Action := caFree; 52 | // logout is not required 53 | //FMediaWikiApi.Logout; 54 | FMediaWikiApi.Free; 55 | end; 56 | 57 | procedure TMainForm.FormCreate(Sender: TObject); 58 | begin 59 | FMediaWikiApi := TMediaWikiApi.Create; 60 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 61 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 62 | FMediaWikiApi.HttpCli.FollowRelocation := False; 63 | // login is not mandatory 64 | //FMediaWikiApi.Login() 65 | end; 66 | 67 | procedure TMainForm.MediaWikiSiteInfoSpecialPageAliasesDone(Sender: TMediaWikiApi; Infos: TStrings); 68 | begin 69 | MemoResult.Lines.Assign(Infos); 70 | end; 71 | 72 | end. 73 | 74 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageLinkInfosMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxLinks: TLabel 19 | Left = 335 20 | Top = 100 21 | Width = 50 22 | Height = 13 23 | Caption = '&Max Links:' 24 | FocusControl = EditMaxLinks 25 | end 26 | object LabelPage: TLabel 27 | Left = 335 28 | Top = 73 29 | Width = 28 30 | Height = 13 31 | Caption = '&Page:' 32 | end 33 | object LabelStartLink: TLabel 34 | Left = 335 35 | Top = 127 36 | Width = 28 37 | Height = 13 38 | Caption = '&Start:' 39 | FocusControl = EditStartLink 40 | end 41 | object MemoResult: TMemo 42 | Left = 16 43 | Top = 8 44 | Width = 297 45 | Height = 273 46 | ReadOnly = True 47 | TabOrder = 0 48 | end 49 | object ButtonQueryAsync: TButton 50 | Left = 336 51 | Top = 8 52 | Width = 97 53 | Height = 25 54 | Caption = 'Async Query' 55 | TabOrder = 1 56 | OnClick = ButtonQueryAsyncClick 57 | end 58 | object ButtonQuerySync: TButton 59 | Left = 336 60 | Top = 39 61 | Width = 97 62 | Height = 25 63 | Caption = 'Sync Query' 64 | TabOrder = 2 65 | OnClick = ButtonQuerySyncClick 66 | end 67 | object EditMaxLinks: TEdit 68 | Left = 400 69 | Top = 97 70 | Width = 33 71 | Height = 21 72 | TabOrder = 3 73 | Text = '10' 74 | end 75 | object EditPage: TEdit 76 | Left = 376 77 | Top = 70 78 | Width = 57 79 | Height = 21 80 | TabOrder = 4 81 | Text = 'JEDI_Code_Library' 82 | end 83 | object EditStartLink: TEdit 84 | Left = 376 85 | Top = 124 86 | Width = 57 87 | Height = 21 88 | Font.Charset = DEFAULT_CHARSET 89 | Font.Color = clBtnFace 90 | Font.Height = -11 91 | Font.Name = 'Tahoma' 92 | Font.Style = [] 93 | ParentFont = False 94 | ReadOnly = True 95 | TabOrder = 5 96 | end 97 | end 98 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageBackLinkInfosMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxLinks: TLabel 19 | Left = 335 20 | Top = 100 21 | Width = 50 22 | Height = 13 23 | Caption = '&Max Links:' 24 | FocusControl = EditMaxLinks 25 | end 26 | object LabelPage: TLabel 27 | Left = 335 28 | Top = 73 29 | Width = 28 30 | Height = 13 31 | Caption = '&Page:' 32 | end 33 | object LabelStartLink: TLabel 34 | Left = 335 35 | Top = 127 36 | Width = 28 37 | Height = 13 38 | Caption = '&Start:' 39 | FocusControl = EditStartLink 40 | end 41 | object MemoResult: TMemo 42 | Left = 16 43 | Top = 8 44 | Width = 297 45 | Height = 273 46 | ReadOnly = True 47 | TabOrder = 0 48 | end 49 | object ButtonQueryAsync: TButton 50 | Left = 336 51 | Top = 8 52 | Width = 97 53 | Height = 25 54 | Caption = 'Async Query' 55 | TabOrder = 1 56 | OnClick = ButtonQueryAsyncClick 57 | end 58 | object ButtonQuerySync: TButton 59 | Left = 336 60 | Top = 39 61 | Width = 97 62 | Height = 25 63 | Caption = 'Sync Query' 64 | TabOrder = 2 65 | OnClick = ButtonQuerySyncClick 66 | end 67 | object EditMaxLinks: TEdit 68 | Left = 400 69 | Top = 97 70 | Width = 33 71 | Height = 21 72 | TabOrder = 3 73 | Text = '10' 74 | end 75 | object EditPage: TEdit 76 | Left = 376 77 | Top = 70 78 | Width = 57 79 | Height = 21 80 | TabOrder = 4 81 | Text = 'JEDI_Code_Library' 82 | end 83 | object EditStartLink: TEdit 84 | Left = 376 85 | Top = 124 86 | Width = 57 87 | Height = 21 88 | Font.Charset = DEFAULT_CHARSET 89 | Font.Color = clBtnFace 90 | Font.Height = -11 91 | Font.Name = 'Tahoma' 92 | Font.Style = [] 93 | ParentFont = False 94 | ReadOnly = True 95 | TabOrder = 5 96 | end 97 | end 98 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageExternalLinkInfosMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxLinks: TLabel 19 | Left = 335 20 | Top = 100 21 | Width = 50 22 | Height = 13 23 | Caption = '&Max Links:' 24 | FocusControl = EditMaxLinks 25 | end 26 | object LabelPage: TLabel 27 | Left = 335 28 | Top = 73 29 | Width = 28 30 | Height = 13 31 | Caption = '&Page:' 32 | end 33 | object LabelStartLink: TLabel 34 | Left = 335 35 | Top = 127 36 | Width = 28 37 | Height = 13 38 | Caption = '&Start:' 39 | FocusControl = EditStartLink 40 | end 41 | object MemoResult: TMemo 42 | Left = 16 43 | Top = 8 44 | Width = 297 45 | Height = 273 46 | ReadOnly = True 47 | TabOrder = 0 48 | end 49 | object ButtonQueryAsync: TButton 50 | Left = 336 51 | Top = 8 52 | Width = 97 53 | Height = 25 54 | Caption = 'Async Query' 55 | TabOrder = 1 56 | OnClick = ButtonQueryAsyncClick 57 | end 58 | object ButtonQuerySync: TButton 59 | Left = 336 60 | Top = 39 61 | Width = 97 62 | Height = 25 63 | Caption = 'Sync Query' 64 | TabOrder = 2 65 | OnClick = ButtonQuerySyncClick 66 | end 67 | object EditMaxLinks: TEdit 68 | Left = 400 69 | Top = 97 70 | Width = 33 71 | Height = 21 72 | TabOrder = 3 73 | Text = '10' 74 | end 75 | object EditPage: TEdit 76 | Left = 376 77 | Top = 70 78 | Width = 57 79 | Height = 21 80 | TabOrder = 4 81 | Text = 'JEDI_Code_Library' 82 | end 83 | object EditStartLink: TEdit 84 | Left = 376 85 | Top = 124 86 | Width = 57 87 | Height = 21 88 | Font.Charset = DEFAULT_CHARSET 89 | Font.Color = clBtnFace 90 | Font.Height = -11 91 | Font.Name = 'Tahoma' 92 | Font.Style = [] 93 | ParentFont = False 94 | ReadOnly = True 95 | TabOrder = 5 96 | end 97 | end 98 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoUserGroupsMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QuerySiteInfoUserGroupsMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | CheckBoxUserCount: TCheckBox; 17 | procedure FormCreate(Sender: TObject); 18 | procedure ButtonQuerySyncClick(Sender: TObject); 19 | procedure ButtonQueryAsyncClick(Sender: TObject); 20 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 21 | private 22 | FMediaWikiApi: TMediaWikiApi; 23 | procedure MediaWikiSiteInfoUserGroupsDone(Sender: TMediaWikiApi; Infos: TStrings); 24 | public 25 | end; 26 | 27 | var 28 | MainForm: TMainForm; 29 | 30 | implementation 31 | 32 | {$R *.dfm} 33 | 34 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 35 | begin 36 | MemoResult.Lines.Clear; 37 | FMediaWikiApi.OnQuerySiteInfoUserGroupsDone := MediaWikiSiteInfoUserGroupsDone; 38 | FMediaWikiApi.QueryInit; 39 | FMediaWikiApi.QuerySiteInfoUserGroupsAsync(CheckBoxUserCount.Checked); 40 | FMediaWikiApi.QueryExecuteAsync; 41 | end; 42 | 43 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 44 | begin 45 | MemoResult.Lines.Clear; 46 | FMediaWikiApi.OnQuerySiteInfoUserGroupsDone := nil; 47 | FMediaWikiApi.QuerySiteInfoUserGroups(CheckBoxUserCount.Checked, MemoResult.Lines); 48 | end; 49 | 50 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 51 | begin 52 | Action := caFree; 53 | // logout is not required 54 | //FMediaWikiApi.Logout; 55 | FMediaWikiApi.Free; 56 | end; 57 | 58 | procedure TMainForm.FormCreate(Sender: TObject); 59 | begin 60 | FMediaWikiApi := TMediaWikiApi.Create; 61 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 62 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 63 | FMediaWikiApi.HttpCli.FollowRelocation := False; 64 | // login is not mandatory 65 | //FMediaWikiApi.Login() 66 | end; 67 | 68 | procedure TMainForm.MediaWikiSiteInfoUserGroupsDone(Sender: TMediaWikiApi; Infos: TStrings); 69 | begin 70 | MemoResult.Lines.Assign(Infos); 71 | end; 72 | 73 | end. 74 | 75 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QuerySiteInfoInterWikiMapMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QuerySiteInfoInterWikiMapMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | CheckBoxLocal: TCheckBox; 17 | procedure FormCreate(Sender: TObject); 18 | procedure ButtonQuerySyncClick(Sender: TObject); 19 | procedure ButtonQueryAsyncClick(Sender: TObject); 20 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 21 | private 22 | FMediaWikiApi: TMediaWikiApi; 23 | procedure MediaWikiSiteInfoInterWikiMapDone(Sender: TMediaWikiApi; Infos: TStrings); 24 | public 25 | end; 26 | 27 | var 28 | MainForm: TMainForm; 29 | 30 | implementation 31 | 32 | {$R *.dfm} 33 | 34 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 35 | begin 36 | MemoResult.Lines.Clear; 37 | FMediaWikiApi.OnQuerySiteInfoInterWikiMapDone := MediaWikiSiteInfoInterWikiMapDone; 38 | FMediaWikiApi.QueryInit; 39 | FMediaWikiApi.QuerySiteInfoInterWikiMapAsync(CheckBoxLocal.Checked); 40 | FMediaWikiApi.QueryExecuteAsync; 41 | end; 42 | 43 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 44 | begin 45 | MemoResult.Lines.Clear; 46 | FMediaWikiApi.OnQuerySiteInfoInterWikiMapDone := nil; 47 | FMediaWikiApi.QuerySiteInfoInterWikiMap(CheckBoxLocal.Checked, MemoResult.Lines); 48 | end; 49 | 50 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 51 | begin 52 | Action := caFree; 53 | // logout is not required 54 | //FMediaWikiApi.Logout; 55 | FMediaWikiApi.Free; 56 | end; 57 | 58 | procedure TMainForm.FormCreate(Sender: TObject); 59 | begin 60 | FMediaWikiApi := TMediaWikiApi.Create; 61 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 62 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 63 | FMediaWikiApi.HttpCli.FollowRelocation := False; 64 | // login is not mandatory 65 | //FMediaWikiApi.Login() 66 | end; 67 | 68 | procedure TMainForm.MediaWikiSiteInfoInterWikiMapDone(Sender: TMediaWikiApi; Infos: TStrings); 69 | begin 70 | MemoResult.Lines.Assign(Infos); 71 | end; 72 | 73 | end. 74 | 75 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageCategoryInfosMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxPages: TLabel 19 | Left = 335 20 | Top = 100 21 | Width = 79 22 | Height = 13 23 | Caption = '&Max Categories:' 24 | FocusControl = EditMaxCategories 25 | end 26 | object LabelPage: TLabel 27 | Left = 335 28 | Top = 73 29 | Width = 28 30 | Height = 13 31 | Caption = '&Page:' 32 | end 33 | object LabelStartCategory: TLabel 34 | Left = 335 35 | Top = 127 36 | Width = 28 37 | Height = 13 38 | Caption = '&Start:' 39 | FocusControl = EditStartCategory 40 | end 41 | object MemoResult: TMemo 42 | Left = 16 43 | Top = 8 44 | Width = 297 45 | Height = 273 46 | ReadOnly = True 47 | TabOrder = 0 48 | end 49 | object ButtonQueryAsync: TButton 50 | Left = 336 51 | Top = 8 52 | Width = 97 53 | Height = 25 54 | Caption = 'Async Query' 55 | TabOrder = 1 56 | OnClick = ButtonQueryAsyncClick 57 | end 58 | object ButtonQuerySync: TButton 59 | Left = 336 60 | Top = 39 61 | Width = 97 62 | Height = 25 63 | Caption = 'Sync Query' 64 | TabOrder = 2 65 | OnClick = ButtonQuerySyncClick 66 | end 67 | object EditMaxCategories: TEdit 68 | Left = 400 69 | Top = 97 70 | Width = 33 71 | Height = 21 72 | TabOrder = 3 73 | Text = '10' 74 | end 75 | object EditPage: TEdit 76 | Left = 376 77 | Top = 70 78 | Width = 57 79 | Height = 21 80 | TabOrder = 4 81 | Text = 'JEDI_Code_Library' 82 | end 83 | object EditStartCategory: TEdit 84 | Left = 376 85 | Top = 124 86 | Width = 57 87 | Height = 21 88 | Font.Charset = DEFAULT_CHARSET 89 | Font.Color = clBtnFace 90 | Font.Height = -11 91 | Font.Name = 'Tahoma' 92 | Font.Style = [] 93 | ParentFont = False 94 | ReadOnly = True 95 | TabOrder = 5 96 | end 97 | end 98 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageTemplateInfosMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMaxTemplates: TLabel 19 | Left = 335 20 | Top = 100 21 | Width = 76 22 | Height = 13 23 | Caption = '&Max Templates:' 24 | FocusControl = EditMaxTemplates 25 | end 26 | object LabelPage: TLabel 27 | Left = 335 28 | Top = 73 29 | Width = 28 30 | Height = 13 31 | Caption = '&Page:' 32 | end 33 | object LabelStartTemplate: TLabel 34 | Left = 335 35 | Top = 127 36 | Width = 28 37 | Height = 13 38 | Caption = '&Start:' 39 | FocusControl = EditStartTemplate 40 | end 41 | object MemoResult: TMemo 42 | Left = 16 43 | Top = 8 44 | Width = 297 45 | Height = 273 46 | ReadOnly = True 47 | TabOrder = 0 48 | end 49 | object ButtonQueryAsync: TButton 50 | Left = 336 51 | Top = 8 52 | Width = 97 53 | Height = 25 54 | Caption = 'Async Query' 55 | TabOrder = 1 56 | OnClick = ButtonQueryAsyncClick 57 | end 58 | object ButtonQuerySync: TButton 59 | Left = 336 60 | Top = 39 61 | Width = 97 62 | Height = 25 63 | Caption = 'Sync Query' 64 | TabOrder = 2 65 | OnClick = ButtonQuerySyncClick 66 | end 67 | object EditMaxTemplates: TEdit 68 | Left = 400 69 | Top = 97 70 | Width = 33 71 | Height = 21 72 | TabOrder = 3 73 | Text = '10' 74 | end 75 | object EditPage: TEdit 76 | Left = 376 77 | Top = 70 78 | Width = 57 79 | Height = 21 80 | TabOrder = 4 81 | Text = 'Template:SourceForge Hosted Site' 82 | end 83 | object EditStartTemplate: TEdit 84 | Left = 376 85 | Top = 124 86 | Width = 57 87 | Height = 21 88 | Font.Charset = DEFAULT_CHARSET 89 | Font.Color = clBtnFace 90 | Font.Height = -11 91 | Font.Name = 'Tahoma' 92 | Font.Style = [] 93 | ParentFont = False 94 | ReadOnly = True 95 | TabOrder = 5 96 | end 97 | end 98 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoOptionsMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QueryUserInfoOptionsMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiUserInfoOptionsDone(Sender: TMediaWikiApi; Infos: TStrings); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQueryUserInfoOptionsDone := MediaWikiUserInfoOptionsDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QueryUserInfoOptionsAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | begin 44 | MemoResult.Lines.Clear; 45 | FMediaWikiApi.OnQueryUserInfoOptionsDone := nil; 46 | FMediaWikiApi.QueryUserInfoOptions(MemoResult.Lines); 47 | end; 48 | 49 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 50 | begin 51 | Action := caFree; 52 | // logout is required 53 | FMediaWikiApi.Logout; 54 | FMediaWikiApi.Free; 55 | end; 56 | 57 | procedure TMainForm.FormCreate(Sender: TObject); 58 | var 59 | LoginName, LoginPassword: string; 60 | begin 61 | FMediaWikiApi := TMediaWikiApi.Create; 62 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 63 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 64 | FMediaWikiApi.HttpCli.FollowRelocation := False; 65 | // login is mandatory 66 | InputQuery('Login information', 'login name', LoginName); 67 | InputQuery('Login information', 'login password', LoginPassword); 68 | FMediaWikiApi.Login(LoginName, LoginPassword, True); 69 | end; 70 | 71 | procedure TMainForm.MediaWikiUserInfoOptionsDone(Sender: TMediaWikiApi; Infos: TStrings); 72 | begin 73 | MemoResult.Lines.Assign(Infos); 74 | end; 75 | 76 | end. 77 | 78 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoChangeableGroupsMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QueryUserInfoChangeableGroupsMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiUserInfoChangeableGroupsDone(Sender: TMediaWikiApi; Infos: TStrings); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQueryUserInfoChangeableGroupsDone := MediaWikiUserInfoChangeableGroupsDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QueryUserInfoChangeableGroupsAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | begin 44 | MemoResult.Lines.Clear; 45 | FMediaWikiApi.OnQueryUserInfoChangeableGroupsDone := nil; 46 | FMediaWikiApi.QueryUserInfoChangeableGroups(MemoResult.Lines); 47 | end; 48 | 49 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 50 | begin 51 | Action := caFree; 52 | // logout is required 53 | FMediaWikiApi.Logout; 54 | FMediaWikiApi.Free; 55 | end; 56 | 57 | procedure TMainForm.FormCreate(Sender: TObject); 58 | var 59 | LoginName, LoginPassword: string; 60 | begin 61 | FMediaWikiApi := TMediaWikiApi.Create; 62 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 63 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 64 | FMediaWikiApi.HttpCli.FollowRelocation := False; 65 | // login is mandatory 66 | InputQuery('Login information', 'login name', LoginName); 67 | InputQuery('Login information', 'login password', LoginPassword); 68 | FMediaWikiApi.Login(LoginName, LoginPassword, True); 69 | end; 70 | 71 | procedure TMainForm.MediaWikiUserInfoChangeableGroupsDone(Sender: TMediaWikiApi; Infos: TStrings); 72 | begin 73 | MemoResult.Lines.Assign(Infos); 74 | end; 75 | 76 | end. 77 | 78 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/DeleteMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelToken: TLabel 19 | Left = 335 20 | Top = 100 21 | Width = 33 22 | Height = 13 23 | Caption = '&Token:' 24 | end 25 | object LabelPage: TLabel 26 | Left = 335 27 | Top = 73 28 | Width = 28 29 | Height = 13 30 | Caption = '&Page:' 31 | FocusControl = EditPage 32 | end 33 | object LabelReason: TLabel 34 | Left = 335 35 | Top = 127 36 | Width = 40 37 | Height = 13 38 | Caption = '&Reason:' 39 | FocusControl = EditReason 40 | end 41 | object MemoResult: TMemo 42 | Left = 16 43 | Top = 8 44 | Width = 297 45 | Height = 273 46 | TabOrder = 0 47 | end 48 | object ButtonQueryAsync: TButton 49 | Left = 336 50 | Top = 8 51 | Width = 97 52 | Height = 25 53 | Caption = 'Async Query' 54 | TabOrder = 1 55 | OnClick = ButtonQueryAsyncClick 56 | end 57 | object ButtonQuerySync: TButton 58 | Left = 336 59 | Top = 39 60 | Width = 97 61 | Height = 25 62 | Caption = 'Sync Query' 63 | TabOrder = 2 64 | OnClick = ButtonQuerySyncClick 65 | end 66 | object EditToken: TEdit 67 | Left = 376 68 | Top = 97 69 | Width = 57 70 | Height = 21 71 | TabOrder = 3 72 | end 73 | object EditPage: TEdit 74 | Left = 369 75 | Top = 70 76 | Width = 64 77 | Height = 21 78 | TabOrder = 4 79 | end 80 | object EditReason: TEdit 81 | Left = 376 82 | Top = 124 83 | Width = 57 84 | Height = 21 85 | TabOrder = 5 86 | Text = 'Some reason' 87 | end 88 | object ButtonDeleteAsync: TButton 89 | Left = 335 90 | Top = 151 91 | Width = 97 92 | Height = 25 93 | Caption = 'Async Delete' 94 | TabOrder = 6 95 | OnClick = ButtonDeleteAsyncClick 96 | end 97 | object ButtonDeleteSync: TButton 98 | Left = 335 99 | Top = 182 100 | Width = 97 101 | Height = 25 102 | Caption = 'Sync Delete' 103 | TabOrder = 7 104 | OnClick = ButtonDeleteSyncClick 105 | end 106 | end 107 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllCategoriesMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QueryAllCategoriesMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | EditMaxCategories: TEdit; 17 | LabelMaxCategories: TLabel; 18 | EditStartCategory: TEdit; 19 | LabelStartCategory: TLabel; 20 | procedure FormCreate(Sender: TObject); 21 | procedure ButtonQuerySyncClick(Sender: TObject); 22 | procedure ButtonQueryAsyncClick(Sender: TObject); 23 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 24 | private 25 | FMediaWikiApi: TMediaWikiApi; 26 | FContinueInfo: TMediaWikiContinueInfo; 27 | procedure MediaWikiAllCategorieDone(Sender: TMediaWikiApi; CategorieInfos: TStrings; 28 | const ContinueInfo: TMediaWikiContinueInfo); 29 | public 30 | end; 31 | 32 | var 33 | MainForm: TMainForm; 34 | 35 | implementation 36 | 37 | {$R *.dfm} 38 | 39 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 40 | begin 41 | MemoResult.Lines.Clear; 42 | FMediaWikiApi.OnQueryAllCategoryInfoDone := MediaWikiAllCategorieDone; 43 | FMediaWikiApi.QueryInit; 44 | FMediaWikiApi.QueryAllCategoryInfoAsync(FContinueInfo, '', StrToInt(EditMaxCategories.Text), []); 45 | FMediaWikiApi.QueryExecuteAsync; 46 | end; 47 | 48 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 49 | begin 50 | MemoResult.Lines.Clear; 51 | FMediaWikiApi.OnQueryAllCategoryInfoDone := nil; 52 | FMediaWikiApi.QueryAllCategoryInfo(MemoResult.Lines, FContinueInfo, '', StrToInt(EditMaxCategories.Text), []); 53 | EditStartCategory.Text := FContinueInfo.ParameterValue; 54 | end; 55 | 56 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 57 | begin 58 | Action := caFree; 59 | // logout is not required 60 | //FMediaWikiApi.Logout; 61 | FMediaWikiApi.Free; 62 | end; 63 | 64 | procedure TMainForm.FormCreate(Sender: TObject); 65 | begin 66 | FMediaWikiApi := TMediaWikiApi.Create; 67 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 68 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 69 | FMediaWikiApi.HttpCli.FollowRelocation := False; 70 | // login is not mandatory 71 | //FMediaWikiApi.Login() 72 | end; 73 | 74 | procedure TMainForm.MediaWikiAllCategorieDone(Sender: TMediaWikiApi; 75 | CategorieInfos: TStrings; const ContinueInfo: TMediaWikiContinueInfo); 76 | begin 77 | MemoResult.Lines.Assign(CategorieInfos); 78 | FContinueInfo := ContinueInfo; 79 | EditStartCategory.Text := FContinueInfo.ParameterValue; 80 | end; 81 | 82 | end. 83 | 84 | -------------------------------------------------------------------------------- /ccnet/server/xsl/modifications-jedi.xsl: -------------------------------------------------------------------------------- 1 | 2 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 |
16 | Modifications since last build ( out of ) 17 |
...
27 | 28 | 29 | 30 | 31 | 32 | 33 | section-oddrow 34 | 35 | 36 | section-evenrow 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 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/EditMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelSummary: TLabel 19 | Left = 335 20 | Top = 100 21 | Width = 48 22 | Height = 13 23 | Caption = '&Summary:' 24 | FocusControl = EditSummary 25 | end 26 | object LabelEditToken: TLabel 27 | Left = 335 28 | Top = 127 29 | Width = 33 30 | Height = 13 31 | Caption = '&Token:' 32 | end 33 | object LabelPage: TLabel 34 | Left = 335 35 | Top = 73 36 | Width = 28 37 | Height = 13 38 | Caption = '&Page:' 39 | end 40 | object LabelRevID: TLabel 41 | Left = 335 42 | Top = 154 43 | Width = 34 44 | Height = 13 45 | Caption = '&RevID:' 46 | FocusControl = EditRevID 47 | end 48 | object MemoResult: TMemo 49 | Left = 16 50 | Top = 8 51 | Width = 297 52 | Height = 273 53 | TabOrder = 0 54 | end 55 | object ButtonQueryAsync: TButton 56 | Left = 336 57 | Top = 8 58 | Width = 97 59 | Height = 25 60 | Caption = 'Async Query' 61 | TabOrder = 1 62 | OnClick = ButtonQueryAsyncClick 63 | end 64 | object ButtonQuerySync: TButton 65 | Left = 336 66 | Top = 39 67 | Width = 97 68 | Height = 25 69 | Caption = 'Sync Query' 70 | TabOrder = 2 71 | OnClick = ButtonQuerySyncClick 72 | end 73 | object EditSummary: TEdit 74 | Left = 389 75 | Top = 97 76 | Width = 44 77 | Height = 21 78 | TabOrder = 3 79 | Text = 'Test edit' 80 | end 81 | object EditToken: TEdit 82 | Left = 376 83 | Top = 124 84 | Width = 57 85 | Height = 21 86 | TabOrder = 4 87 | end 88 | object EditPage: TEdit 89 | Left = 369 90 | Top = 70 91 | Width = 64 92 | Height = 21 93 | TabOrder = 5 94 | end 95 | object EditRevID: TEdit 96 | Left = 376 97 | Top = 151 98 | Width = 57 99 | Height = 21 100 | TabOrder = 6 101 | end 102 | object ButtonEditAsync: TButton 103 | Left = 335 104 | Top = 178 105 | Width = 97 106 | Height = 25 107 | Caption = 'Async Edit' 108 | TabOrder = 7 109 | OnClick = ButtonEditAsyncClick 110 | end 111 | object ButtonEditSync: TButton 112 | Left = 335 113 | Top = 209 114 | Width = 97 115 | Height = 25 116 | Caption = 'Sync Edit' 117 | TabOrder = 8 118 | OnClick = ButtonEditSyncClick 119 | end 120 | end 121 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/MoveMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelMoveToken: TLabel 19 | Left = 335 20 | Top = 127 21 | Width = 33 22 | Height = 13 23 | Caption = '&Token:' 24 | end 25 | object LabelFromPage: TLabel 26 | Left = 335 27 | Top = 73 28 | Width = 28 29 | Height = 13 30 | Caption = '&From:' 31 | FocusControl = EditFromPage 32 | end 33 | object LabelReason: TLabel 34 | Left = 335 35 | Top = 154 36 | Width = 40 37 | Height = 13 38 | Caption = '&Reason:' 39 | FocusControl = EditReason 40 | end 41 | object LabelToPage: TLabel 42 | Left = 334 43 | Top = 100 44 | Width = 16 45 | Height = 13 46 | Caption = '&To:' 47 | FocusControl = EditToPage 48 | end 49 | object MemoResult: TMemo 50 | Left = 16 51 | Top = 8 52 | Width = 297 53 | Height = 273 54 | TabOrder = 0 55 | end 56 | object ButtonQueryAsync: TButton 57 | Left = 336 58 | Top = 8 59 | Width = 97 60 | Height = 25 61 | Caption = 'Async Query' 62 | TabOrder = 1 63 | OnClick = ButtonQueryAsyncClick 64 | end 65 | object ButtonQuerySync: TButton 66 | Left = 336 67 | Top = 39 68 | Width = 97 69 | Height = 25 70 | Caption = 'Sync Query' 71 | TabOrder = 2 72 | OnClick = ButtonQuerySyncClick 73 | end 74 | object EditToken: TEdit 75 | Left = 376 76 | Top = 124 77 | Width = 57 78 | Height = 21 79 | TabOrder = 3 80 | end 81 | object EditFromPage: TEdit 82 | Left = 369 83 | Top = 70 84 | Width = 64 85 | Height = 21 86 | TabOrder = 4 87 | end 88 | object EditReason: TEdit 89 | Left = 376 90 | Top = 151 91 | Width = 57 92 | Height = 21 93 | TabOrder = 5 94 | Text = 'Some reason' 95 | end 96 | object ButtonMoveAsync: TButton 97 | Left = 335 98 | Top = 178 99 | Width = 97 100 | Height = 25 101 | Caption = 'Async Move' 102 | TabOrder = 6 103 | OnClick = ButtonMoveAsyncClick 104 | end 105 | object ButtonMoveSync: TButton 106 | Left = 335 107 | Top = 209 108 | Width = 97 109 | Height = 25 110 | Caption = 'Sync Move' 111 | TabOrder = 7 112 | OnClick = ButtonMoveSyncClick 113 | end 114 | object EditToPage: TEdit 115 | Left = 368 116 | Top = 97 117 | Width = 64 118 | Height = 21 119 | TabOrder = 8 120 | end 121 | end 122 | -------------------------------------------------------------------------------- /helpsync/Diff/Demos/DiffMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object FormMain: TFormMain 2 | Left = 0 3 | Top = 0 4 | BorderStyle = bsSingle 5 | Caption = 'FormMain' 6 | ClientHeight = 536 7 | ClientWidth = 456 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'Tahoma' 13 | Font.Style = [] 14 | OldCreateOrder = False 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object LabelLeft: TLabel 18 | Left = 8 19 | Top = 20 20 | Width = 23 21 | Height = 13 22 | Caption = '&Left:' 23 | FocusControl = MemoLeft 24 | end 25 | object LabelRight: TLabel 26 | Left = 231 27 | Top = 20 28 | Width = 29 29 | Height = 13 30 | Caption = '&Right:' 31 | FocusControl = MemoRight 32 | end 33 | object LabelDiff: TLabel 34 | Left = 8 35 | Top = 314 36 | Width = 21 37 | Height = 13 38 | Caption = '&Diff:' 39 | FocusControl = MemoDiff 40 | end 41 | object MemoLeft: TMemo 42 | Left = 8 43 | Top = 39 44 | Width = 217 45 | Height = 257 46 | Lines.Strings = ( 47 | 'The text begins here' 48 | 'This is some other text' 49 | 'Some lines are deleted' 50 | 'Some text continues here' 51 | 'Some text will be replaced' 52 | 'The text is not ended yet' 53 | 'Some text ends here') 54 | TabOrder = 1 55 | WordWrap = False 56 | end 57 | object MemoRight: TMemo 58 | Left = 231 59 | Top = 39 60 | Width = 217 61 | Height = 257 62 | Lines.Strings = ( 63 | 'The text begins here' 64 | 'This text is inserted' 65 | 'This is some other text' 66 | 'Some text continues here' 67 | 'Some text replaces the previous one' 68 | 'The text is not ended yet' 69 | 'Some text ends here') 70 | TabOrder = 3 71 | WordWrap = False 72 | end 73 | object ButtonDiff: TButton 74 | Left = 191 75 | Top = 302 76 | Width = 75 77 | Height = 25 78 | Caption = 'Diff' 79 | TabOrder = 4 80 | OnClick = ButtonDiffClick 81 | end 82 | object MemoDiff: TMemo 83 | Left = 8 84 | Top = 333 85 | Width = 440 86 | Height = 164 87 | TabOrder = 5 88 | WordWrap = False 89 | end 90 | object ButtonLoadLeft: TButton 91 | Left = 79 92 | Top = 8 93 | Width = 75 94 | Height = 25 95 | Caption = 'Load...' 96 | TabOrder = 0 97 | OnClick = ButtonLoadLeftClick 98 | end 99 | object ButtonLoadRight: TButton 100 | Left = 302 101 | Top = 8 102 | Width = 75 103 | Height = 25 104 | Caption = 'Load...' 105 | TabOrder = 2 106 | OnClick = ButtonLoadRightClick 107 | end 108 | object ButtonSaveDiff: TButton 109 | Left = 191 110 | Top = 503 111 | Width = 75 112 | Height = 25 113 | Caption = 'Save...' 114 | TabOrder = 6 115 | OnClick = ButtonSaveDiffClick 116 | end 117 | end 118 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllUsersMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QueryAllUsersMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | EditMaxUsers: TEdit; 17 | LabelMaxUsers: TLabel; 18 | EditStartUser: TEdit; 19 | LabelStartUser: TLabel; 20 | procedure FormCreate(Sender: TObject); 21 | procedure ButtonQuerySyncClick(Sender: TObject); 22 | procedure ButtonQueryAsyncClick(Sender: TObject); 23 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 24 | private 25 | FMediaWikiApi: TMediaWikiApi; 26 | FContinueInfo: TMediaWikiContinueInfo; 27 | procedure MediaWikiAllUserDone(Sender: TMediaWikiApi; const UserInfos: TMediaWikiAllUserInfos; 28 | const ContinueInfo: TMediaWikiContinueInfo); 29 | public 30 | end; 31 | 32 | var 33 | MainForm: TMainForm; 34 | 35 | implementation 36 | 37 | {$R *.dfm} 38 | 39 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 40 | begin 41 | MemoResult.Lines.Clear; 42 | FMediaWikiApi.OnQueryAllUserInfoDone := MediaWikiAllUserDone; 43 | FMediaWikiApi.QueryInit; 44 | FMediaWikiApi.QueryAllUserInfoAsync(FContinueInfo, '', '', StrToInt(EditMaxUsers.Text), []); 45 | FMediaWikiApi.QueryExecuteAsync; 46 | end; 47 | 48 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 49 | var 50 | UserInfos: TMediaWikiAllUserInfos; 51 | Index: Integer; 52 | begin 53 | MemoResult.Lines.Clear; 54 | FMediaWikiApi.OnQueryAllUserInfoDone := nil; 55 | FMediaWikiApi.QueryAllUserInfo(UserInfos, FContinueInfo, '', '', StrToInt(EditMaxUsers.Text), []); 56 | for Index := Low(UserInfos) to High(UserInfos) do 57 | MemoResult.Lines.Add(UserInfos[Index].UserName); 58 | EditStartUser.Text := FContinueInfo.ParameterValue; 59 | end; 60 | 61 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 62 | begin 63 | Action := caFree; 64 | // logout is not required 65 | //FMediaWikiApi.Logout; 66 | FMediaWikiApi.Free; 67 | end; 68 | 69 | procedure TMainForm.FormCreate(Sender: TObject); 70 | begin 71 | FMediaWikiApi := TMediaWikiApi.Create; 72 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 73 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 74 | FMediaWikiApi.HttpCli.FollowRelocation := False; 75 | // login is not mandatory 76 | //FMediaWikiApi.Login() 77 | end; 78 | 79 | procedure TMainForm.MediaWikiAllUserDone(Sender: TMediaWikiApi; 80 | const UserInfos: TMediaWikiAllUserInfos; const ContinueInfo: TMediaWikiContinueInfo); 81 | var 82 | Index: Integer; 83 | begin 84 | for Index := Low(UserInfos) to High(UserInfos) do 85 | MemoResult.Lines.Add(UserInfos[Index].UserName); 86 | FContinueInfo := ContinueInfo; 87 | EditStartUser.Text := FContinueInfo.ParameterValue; 88 | end; 89 | 90 | end. 91 | 92 | -------------------------------------------------------------------------------- /helpsync/Diff/Demos/DiffMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit DiffMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls; 8 | 9 | type 10 | TFormMain = class(TForm) 11 | MemoLeft: TMemo; 12 | MemoRight: TMemo; 13 | ButtonDiff: TButton; 14 | MemoDiff: TMemo; 15 | ButtonLoadLeft: TButton; 16 | ButtonLoadRight: TButton; 17 | ButtonSaveDiff: TButton; 18 | LabelLeft: TLabel; 19 | LabelRight: TLabel; 20 | LabelDiff: TLabel; 21 | procedure ButtonDiffClick(Sender: TObject); 22 | procedure ButtonLoadLeftClick(Sender: TObject); 23 | procedure ButtonLoadRightClick(Sender: TObject); 24 | procedure ButtonSaveDiffClick(Sender: TObject); 25 | private 26 | public 27 | end; 28 | 29 | var 30 | FormMain: TFormMain; 31 | 32 | implementation 33 | 34 | {$R *.dfm} 35 | 36 | uses 37 | SimpleDiff; 38 | 39 | procedure TFormMain.ButtonDiffClick(Sender: TObject); 40 | var 41 | StringsDiff: TStringsSimpleDiff; 42 | StringDiff: TStringSimpleDiff; 43 | I: Integer; 44 | begin 45 | MemoDiff.Lines.Clear; 46 | StringsDiff := TStringsSimpleDiff.Create; 47 | try 48 | StringsDiff.Diff(MemoLeft.Lines, MemoRight.Lines); 49 | for I := 0 to StringsDiff.Count - 1 do 50 | begin 51 | StringDiff := StringsDiff.StringDiffs[I]; 52 | if IsModify(StringDiff.Flags) then 53 | begin 54 | MemoDiff.Lines.Add(Format('(%d)M-%s', [StringDiff.LeftIndex + 1, StringDiff.LeftValue])); 55 | MemoDiff.Lines.Add(Format('(%d)M+%s', [StringDiff.RightIndex + 1, StringDiff.RightValue])); 56 | end 57 | else 58 | if IsInsert(StringDiff.Flags) then 59 | begin 60 | MemoDiff.Lines.Add(Format('(%d)+%s', [StringDiff.RightIndex + 1, StringDiff.RightValue])); 61 | end 62 | else 63 | if IsDelete(StringDiff.Flags) then 64 | begin 65 | MemoDiff.Lines.Add(Format('(%d)-%s', [StringDiff.LeftIndex + 1, StringDiff.LeftValue])); 66 | end; 67 | end; 68 | finally 69 | StringsDiff.Free; 70 | end; 71 | end; 72 | 73 | procedure TFormMain.ButtonLoadLeftClick(Sender: TObject); 74 | var 75 | AFileName: string; 76 | begin 77 | AFileName := ''; 78 | if PromptForFileName(AFileName, '', '', 'Choose the left file...') then 79 | MemoLeft.Lines.LoadFromFile(AFileName); 80 | end; 81 | 82 | procedure TFormMain.ButtonLoadRightClick(Sender: TObject); 83 | var 84 | AFileName: string; 85 | begin 86 | AFileName := ''; 87 | if PromptForFileName(AFileName, '', '', 'Choose the right file...') then 88 | MemoRight.Lines.LoadFromFile(AFileName); 89 | end; 90 | 91 | procedure TFormMain.ButtonSaveDiffClick(Sender: TObject); 92 | var 93 | AFileName: string; 94 | begin 95 | AFileName := ''; 96 | if PromptForFileName(AFileName, '', '', 'Choose the right file...', '', True) then 97 | MemoDiff.Lines.SaveToFile(AFileName); 98 | end; 99 | 100 | end. 101 | 102 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryBlocksMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QueryBlocksMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | EditMaxBlocks: TEdit; 17 | LabelMaxBlocks: TLabel; 18 | EditStartBlock: TEdit; 19 | LabelStartBlock: TLabel; 20 | procedure FormCreate(Sender: TObject); 21 | procedure ButtonQuerySyncClick(Sender: TObject); 22 | procedure ButtonQueryAsyncClick(Sender: TObject); 23 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 24 | private 25 | FMediaWikiApi: TMediaWikiApi; 26 | FContinueInfo: TMediaWikiContinueInfo; 27 | procedure MediaWikiBlockDone(Sender: TMediaWikiApi; const BlockInfos: TMediaWikiBlockInfos; 28 | const ContinueInfo: TMediaWikiContinueInfo); 29 | public 30 | end; 31 | 32 | var 33 | MainForm: TMainForm; 34 | 35 | implementation 36 | 37 | {$R *.dfm} 38 | 39 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 40 | begin 41 | MemoResult.Lines.Clear; 42 | FMediaWikiApi.OnQueryBlockInfoDone := MediaWikiBlockDone; 43 | FMediaWikiApi.QueryInit; 44 | FMediaWikiApi.QueryBlockInfoAsync(FContinueInfo, 0.0, 0.0, '', '', '', StrToInt(EditMaxBlocks.Text), []); 45 | FMediaWikiApi.QueryExecuteAsync; 46 | end; 47 | 48 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 49 | var 50 | BlockInfos: TMediaWikiBlockInfos; 51 | Index: Integer; 52 | begin 53 | MemoResult.Lines.Clear; 54 | FMediaWikiApi.OnQueryBlockInfoDone := nil; 55 | FMediaWikiApi.QueryBlockInfo(BlockInfos, FContinueInfo, 0.0, 0.0, '', '', '', StrToInt(EditMaxBlocks.Text), []); 56 | for Index := Low(BlockInfos) to High(BlockInfos) do 57 | MemoResult.Lines.Add(BlockInfos[Index].BlockUser); 58 | EditStartBlock.Text := FContinueInfo.ParameterValue; 59 | end; 60 | 61 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 62 | begin 63 | Action := caFree; 64 | // logout is not required 65 | //FMediaWikiApi.Logout; 66 | FMediaWikiApi.Free; 67 | end; 68 | 69 | procedure TMainForm.FormCreate(Sender: TObject); 70 | begin 71 | FMediaWikiApi := TMediaWikiApi.Create; 72 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 73 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 74 | FMediaWikiApi.HttpCli.FollowRelocation := False; 75 | // login is not mandatory 76 | //FMediaWikiApi.Login() 77 | end; 78 | 79 | procedure TMainForm.MediaWikiBlockDone(Sender: TMediaWikiApi; 80 | const BlockInfos: TMediaWikiBlockInfos; const ContinueInfo: TMediaWikiContinueInfo); 81 | var 82 | Index: Integer; 83 | begin 84 | for Index := Low(BlockInfos) to High(BlockInfos) do 85 | MemoResult.Lines.Add(BlockInfos[Index].BlockUser); 86 | FContinueInfo := ContinueInfo; 87 | EditStartBlock.Text := FContinueInfo.ParameterValue; 88 | end; 89 | 90 | end. 91 | 92 | -------------------------------------------------------------------------------- /helpsync/Diff/Demos/DiffDemo.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {3874efd5-0298-479e-a5ae-2d140e0be2e3} 4 | Debug 5 | AnyCPU 6 | DCC32 7 | DiffDemo.exe 8 | DiffDemo.dpr 9 | 10 | 11 | 7.0 12 | False 13 | False 14 | 0 15 | RELEASE 16 | 17 | 18 | 7.0 19 | DEBUG 20 | 21 | 22 | Delphi.Personality 23 | 24 | 25 | FalseTrueFalseFalseFalse1000FalseFalseFalseFalseFalse103612521.0.0.01.0.0.0DiffDemo.dpr 26 | 27 | 28 | 29 | 30 | MainSource 31 | 32 | 33 | 34 |
FormMain
35 | 36 | 37 | -------------------------------------------------------------------------------- /helpsync/Diff/Demos/DiffDemos.groupproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {84bea47b-3627-4f78-9dc3-42918447befe} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality 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 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoRateLimitsMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QueryUserInfoRateLimitsMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | procedure FormCreate(Sender: TObject); 17 | procedure ButtonQuerySyncClick(Sender: TObject); 18 | procedure ButtonQueryAsyncClick(Sender: TObject); 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 20 | private 21 | FMediaWikiApi: TMediaWikiApi; 22 | procedure MediaWikiUserInfoRateLimitsDone(Sender: TMediaWikiApi; const Infos: TMediaWikiRateLimits); 23 | public 24 | end; 25 | 26 | var 27 | MainForm: TMainForm; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 34 | begin 35 | MemoResult.Lines.Clear; 36 | FMediaWikiApi.OnQueryUserInfoRateLimitsDone := MediaWikiUserInfoRateLimitsDone; 37 | FMediaWikiApi.QueryInit; 38 | FMediaWikiApi.QueryUserInfoRateLimitsAsync; 39 | FMediaWikiApi.QueryExecuteAsync; 40 | end; 41 | 42 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 43 | var 44 | Infos: TMediaWikiRateLimits; 45 | Index: Integer; 46 | begin 47 | MemoResult.Lines.Clear; 48 | FMediaWikiApi.OnQueryUserInfoRateLimitsDone := nil; 49 | FMediaWikiApi.QueryUserInfoRateLimits(Infos); 50 | for Index := Low(Infos) to High(Infos) do 51 | begin 52 | MemoResult.Lines.Add('action = ' + Infos[Index].RateLimitAction); 53 | MemoResult.Lines.Add('group = ' + Infos[Index].RateLimitGroup); 54 | MemoResult.Lines.Add('hits = ' + IntToStr(Infos[Index].RateLimitHits)); 55 | MemoResult.Lines.Add('seconds = ' + IntToStr(Infos[Index].RateLimitSeconds)); 56 | MemoResult.Lines.Add(''); 57 | end; 58 | end; 59 | 60 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 61 | begin 62 | Action := caFree; 63 | // logout is not required 64 | //FMediaWikiApi.Logout; 65 | FMediaWikiApi.Free; 66 | end; 67 | 68 | procedure TMainForm.FormCreate(Sender: TObject); 69 | begin 70 | FMediaWikiApi := TMediaWikiApi.Create; 71 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 72 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 73 | FMediaWikiApi.HttpCli.FollowRelocation := False; 74 | // login is not mandatory 75 | //FMediaWikiApi.Login() 76 | end; 77 | 78 | procedure TMainForm.MediaWikiUserInfoRateLimitsDone(Sender: TMediaWikiApi; const Infos: TMediaWikiRateLimits); 79 | var 80 | Index: Integer; 81 | begin 82 | for Index := Low(Infos) to High(Infos) do 83 | begin 84 | MemoResult.Lines.Add('action = ' + Infos[Index].RateLimitAction); 85 | MemoResult.Lines.Add('group = ' + Infos[Index].RateLimitGroup); 86 | MemoResult.Lines.Add('hits = ' + IntToStr(Infos[Index].RateLimitHits)); 87 | MemoResult.Lines.Add('seconds = ' + IntToStr(Infos[Index].RateLimitSeconds)); 88 | MemoResult.Lines.Add(''); 89 | end; 90 | end; 91 | 92 | end. 93 | 94 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryBackLinksMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QueryBackLinksMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | EditMaxLinks: TEdit; 17 | LabelMaxLinks: TLabel; 18 | EditStartLink: TEdit; 19 | LabelStartLink: TLabel; 20 | LabelPageTitle: TLabel; 21 | EditPageTitle: TEdit; 22 | procedure FormCreate(Sender: TObject); 23 | procedure ButtonQuerySyncClick(Sender: TObject); 24 | procedure ButtonQueryAsyncClick(Sender: TObject); 25 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 26 | private 27 | FMediaWikiApi: TMediaWikiApi; 28 | FContinueInfo: TMediaWikiContinueInfo; 29 | procedure MediaWikiBackLinkDone(Sender: TMediaWikiApi; const BackLinkInfos: TMediaWikiBackLinkInfos; 30 | const ContinueInfo: TMediaWikiContinueInfo); 31 | public 32 | end; 33 | 34 | var 35 | MainForm: TMainForm; 36 | 37 | implementation 38 | 39 | {$R *.dfm} 40 | 41 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 42 | begin 43 | MemoResult.Lines.Clear; 44 | FMediaWikiApi.OnQueryBackLinkInfoDone := MediaWikiBackLinkDone; 45 | FMediaWikiApi.QueryInit; 46 | FMediaWikiApi.QueryBackLinkInfoAsync(EditPageTitle.Text, FContinueInfo, -1, StrToInt(EditMaxLinks.Text), []); 47 | FMediaWikiApi.QueryExecuteAsync; 48 | end; 49 | 50 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 51 | var 52 | BackLinkInfos: TMediaWikiBackLinkInfos; 53 | Index: Integer; 54 | begin 55 | MemoResult.Lines.Clear; 56 | FMediaWikiApi.OnQueryBackLinkInfoDone := nil; 57 | FMediaWikiApi.QueryBackLinkInfo(EditPageTitle.Text, BackLinkInfos, FContinueInfo, -1, StrToInt(EditMaxLinks.Text), []); 58 | for Index := Low(BackLinkInfos) to High(BackLinkInfos) do 59 | MemoResult.Lines.Add(BackLinkInfos[Index].BackLinkPageBasics.PageTitle); 60 | EditStartLink.Text := FContinueInfo.ParameterValue; 61 | end; 62 | 63 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 64 | begin 65 | Action := caFree; 66 | // logout is not required 67 | //FMediaWikiApi.Logout; 68 | FMediaWikiApi.Free; 69 | end; 70 | 71 | procedure TMainForm.FormCreate(Sender: TObject); 72 | begin 73 | FMediaWikiApi := TMediaWikiApi.Create; 74 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 75 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 76 | FMediaWikiApi.HttpCli.FollowRelocation := False; 77 | // login is not mandatory 78 | //FMediaWikiApi.Login() 79 | end; 80 | 81 | procedure TMainForm.MediaWikiBackLinkDone(Sender: TMediaWikiApi; 82 | const BackLinkInfos: TMediaWikiBackLinkInfos; const ContinueInfo: TMediaWikiContinueInfo); 83 | var 84 | Index: Integer; 85 | begin 86 | for Index := Low(BackLinkInfos) to High(BackLinkInfos) do 87 | MemoResult.Lines.Add(BackLinkInfos[Index].BackLinkPageBasics.PageTitle); 88 | FContinueInfo := ContinueInfo; 89 | EditStartLink.Text := FContinueInfo.ParameterValue; 90 | end; 91 | 92 | end. 93 | 94 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/EditProject.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {30da0999-6d8a-4970-bbe0-43d8ee75391f} 4 | Debug 5 | AnyCPU 6 | DCC32 7 | EditProject.exe 8 | EditProject.dpr 9 | 10 | 11 | 7.0 12 | False 13 | False 14 | 0 15 | RELEASE 16 | 17 | 18 | 7.0 19 | DEBUG 20 | 21 | 22 | Delphi.Personality 23 | 24 | 25 | FalseTrueFalseFalseFalse1000FalseFalseFalseFalseFalse103612521.0.0.01.0.0.0EditProject.dpr 26 | 27 | 28 | 29 | 30 | MainSource 31 | 32 | 33 | 34 | 35 |
MainForm
36 | 37 | 38 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/MoveProject.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {65582d17-2906-4c6c-a20e-13f8a9a3a685} 4 | Debug 5 | AnyCPU 6 | DCC32 7 | MoveProject.exe 8 | MoveProject.dpr 9 | 10 | 11 | 7.0 12 | False 13 | False 14 | 0 15 | RELEASE 16 | 17 | 18 | 7.0 19 | DEBUG 20 | 21 | 22 | Delphi.Personality 23 | 24 | 25 | FalseTrueFalseFalseFalse1000FalseFalseFalseFalseFalse103612521.0.0.01.0.0.0MoveProject.dpr 26 | 27 | 28 | 29 | 30 | MainSource 31 | 32 | 33 | 34 | 35 |
MainForm
36 | 37 | 38 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/DeleteProject.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {775199dc-2c15-41ce-99d5-def0581d3d6a} 4 | Debug 5 | AnyCPU 6 | DCC32 7 | DeleteProject.exe 8 | DeleteProject.dpr 9 | 10 | 11 | 7.0 12 | False 13 | False 14 | 0 15 | RELEASE 16 | 17 | 18 | 7.0 19 | DEBUG 20 | 21 | 22 | Delphi.Personality 23 | 24 | 25 | FalseTrueFalseFalseFalse1000FalseFalseFalseFalseFalse103612521.0.0.01.0.0.0DeleteProject.dpr 26 | 27 | 28 | 29 | 30 | MainSource 31 | 32 | 33 | 34 | 35 |
MainForm
36 | 37 | 38 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/UploadFileProject.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {f0f6df74-7c61-4b90-895e-32c889305eae} 4 | Debug 5 | AnyCPU 6 | DCC32 7 | UploadFileProject.exe 8 | UploadFileProject.dpr 9 | 10 | 11 | 7.0 12 | False 13 | False 14 | 0 15 | RELEASE 16 | 17 | 18 | 7.0 19 | DEBUG 20 | 21 | 22 | Delphi.Personality 23 | 24 | 25 | FalseTrueFalseFalseFalse1000FalseFalseFalseFalseFalse103612521.0.0.01.0.0.0UploadFileProject.dpr 26 | 27 | 28 | 29 | 30 | MainSource 31 | 32 | 33 | 34 | 35 |
MainForm
36 | 37 | 38 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/UploadMainUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'MainForm' 5 | ClientHeight = 294 6 | ClientWidth = 467 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnClose = FormClose 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object LabelSummary: TLabel 19 | Left = 335 20 | Top = 100 21 | Width = 48 22 | Height = 13 23 | Caption = '&Summary:' 24 | FocusControl = EditSummary 25 | end 26 | object LabelEditToken: TLabel 27 | Left = 335 28 | Top = 127 29 | Width = 33 30 | Height = 13 31 | Caption = '&Token:' 32 | end 33 | object LabelPage: TLabel 34 | Left = 335 35 | Top = 73 36 | Width = 28 37 | Height = 13 38 | Caption = '&Page:' 39 | end 40 | object LabelFileName: TLabel 41 | Left = 335 42 | Top = 154 43 | Width = 20 44 | Height = 13 45 | Caption = '&File:' 46 | FocusControl = EditFileName 47 | end 48 | object MemoResult: TMemo 49 | Left = 16 50 | Top = 8 51 | Width = 297 52 | Height = 273 53 | TabOrder = 0 54 | end 55 | object ButtonQueryAsync: TButton 56 | Left = 336 57 | Top = 8 58 | Width = 97 59 | Height = 25 60 | Caption = 'Async Query' 61 | TabOrder = 1 62 | OnClick = ButtonQueryAsyncClick 63 | end 64 | object ButtonQuerySync: TButton 65 | Left = 336 66 | Top = 39 67 | Width = 97 68 | Height = 25 69 | Caption = 'Sync Query' 70 | TabOrder = 2 71 | OnClick = ButtonQuerySyncClick 72 | end 73 | object EditSummary: TEdit 74 | Left = 389 75 | Top = 97 76 | Width = 44 77 | Height = 21 78 | TabOrder = 3 79 | Text = 'Test edit' 80 | end 81 | object EditToken: TEdit 82 | Left = 376 83 | Top = 124 84 | Width = 57 85 | Height = 21 86 | TabOrder = 4 87 | end 88 | object EditPage: TEdit 89 | Left = 369 90 | Top = 70 91 | Width = 64 92 | Height = 21 93 | TabOrder = 5 94 | Text = 'File:Test' 95 | end 96 | object EditFileName: TEdit 97 | Left = 376 98 | Top = 151 99 | Width = 57 100 | Height = 21 101 | TabOrder = 6 102 | OnClick = EditFileNameClick 103 | end 104 | object ButtonUploadAsync: TButton 105 | Left = 335 106 | Top = 178 107 | Width = 97 108 | Height = 25 109 | Caption = 'Async Upload' 110 | TabOrder = 7 111 | OnClick = ButtonUploadAsyncClick 112 | end 113 | object ButtonUploadSync: TButton 114 | Left = 335 115 | Top = 209 116 | Width = 97 117 | Height = 25 118 | Caption = 'Sync Upload' 119 | TabOrder = 8 120 | OnClick = ButtonUploadSyncClick 121 | end 122 | object OpenDialog1: TOpenDialog 123 | Filter = 'JPEG Images (*.jpg;*.jpeg)|*.jpg;*.jpeg' 124 | Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing] 125 | Title = 'Choose a file to upload...' 126 | Left = 376 127 | Top = 248 128 | end 129 | end 130 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryBlocksProject.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {d1b73016-47b1-400a-ba93-46e0146ffed9} 4 | Debug 5 | AnyCPU 6 | DCC32 7 | QueryBlocksProject.exe 8 | QueryBlocksProject.dpr 9 | 10 | 11 | 7.0 12 | False 13 | False 14 | 0 15 | RELEASE 16 | 17 | 18 | 7.0 19 | DEBUG 20 | 21 | 22 | Delphi.Personality 23 | 24 | 25 | FalseTrueFalseFalseFalse1000FalseFalseFalseFalseFalse103612521.0.0.01.0.0.0QueryBlocksProject.dpr 26 | 27 | 28 | 29 | 30 | MainSource 31 | 32 | 33 | 34 | 35 |
MainForm
36 | 37 | 38 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllPagesMainUnit.pas: -------------------------------------------------------------------------------- 1 | unit QueryAllPagesMainUnit; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, 8 | MediaWikiUtils, 9 | MediaWikiApi; 10 | 11 | type 12 | TMainForm = class(TForm) 13 | MemoResult: TMemo; 14 | ButtonQueryAsync: TButton; 15 | ButtonQuerySync: TButton; 16 | EditMaxPages: TEdit; 17 | LabelMaxPages: TLabel; 18 | EditStartPage: TEdit; 19 | LabelStartPage: TLabel; 20 | procedure FormCreate(Sender: TObject); 21 | procedure ButtonQuerySyncClick(Sender: TObject); 22 | procedure ButtonQueryAsyncClick(Sender: TObject); 23 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 24 | private 25 | FMediaWikiApi: TMediaWikiApi; 26 | FContinueInfo: TMediaWikiContinueInfo; 27 | procedure MediaWikiAllPageDone(Sender: TMediaWikiApi; const PageInfos: TMediaWikiAllPageInfos; 28 | const ContinueInfo: TMediaWikiContinueInfo); 29 | public 30 | end; 31 | 32 | var 33 | MainForm: TMainForm; 34 | 35 | implementation 36 | 37 | {$R *.dfm} 38 | 39 | procedure TMainForm.ButtonQueryAsyncClick(Sender: TObject); 40 | begin 41 | MemoResult.Lines.Clear; 42 | FMediaWikiApi.OnQueryAllPageInfoDone := MediaWikiAllPageDone; 43 | FMediaWikiApi.QueryInit; 44 | FMediaWikiApi.QueryAllPageInfoAsync(FContinueInfo, '', StrToInt(EditMaxPages.Text), 45 | -1, mwfAllPageFilterAll, mwfAllPageLangAll, -1, -1, mwfAllPageProtectionNone, mwfAllPageLevelNone, mwfAllPageAscending); 46 | FMediaWikiApi.QueryExecuteAsync; 47 | end; 48 | 49 | procedure TMainForm.ButtonQuerySyncClick(Sender: TObject); 50 | var 51 | PageInfos: TMediaWikiAllPageInfos; 52 | Index: Integer; 53 | begin 54 | MemoResult.Lines.Clear; 55 | FMediaWikiApi.OnQueryAllPageInfoDone := nil; 56 | FMediaWikiApi.QueryAllPageInfo(PageInfos, FContinueInfo, '', StrToInt(EditMaxPages.Text), 57 | -1, mwfAllPageFilterAll, mwfAllPageLangAll, -1, -1, mwfAllPageProtectionNone, mwfAllPageLevelNone, mwfAllPageAscending); 58 | for Index := Low(PageInfos) to High(PageInfos) do 59 | MemoResult.Lines.Add(PageInfos[Index].PageTitle); 60 | EditStartPage.Text := FContinueInfo.ParameterValue; 61 | end; 62 | 63 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); 64 | begin 65 | Action := caFree; 66 | // logout is not required 67 | //FMediaWikiApi.Logout; 68 | FMediaWikiApi.Free; 69 | end; 70 | 71 | procedure TMainForm.FormCreate(Sender: TObject); 72 | begin 73 | FMediaWikiApi := TMediaWikiApi.Create; 74 | FMediaWikiApi.HttpCli.URL := 'http://wiki.delphi-jedi.org/w/api.php'; 75 | FMediaWikiApi.HttpCli.Agent := 'MediaWiki JEDI bot'; 76 | FMediaWikiApi.HttpCli.FollowRelocation := False; 77 | // login is not mandatory 78 | //FMediaWikiApi.Login() 79 | end; 80 | 81 | procedure TMainForm.MediaWikiAllPageDone(Sender: TMediaWikiApi; 82 | const PageInfos: TMediaWikiAllPageInfos; const ContinueInfo: TMediaWikiContinueInfo); 83 | var 84 | Index: Integer; 85 | begin 86 | for Index := Low(PageInfos) to High(PageInfos) do 87 | MemoResult.Lines.Add(PageInfos[Index].PageTitle); 88 | FContinueInfo := ContinueInfo; 89 | EditStartPage.Text := ContinueInfo.ParameterValue; 90 | end; 91 | 92 | end. 93 | 94 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllPagesProject.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {3ff4e71f-91e7-403c-8702-96a2613d0fe7} 4 | Debug 5 | AnyCPU 6 | DCC32 7 | QueryAllPagesProject.exe 8 | QueryAllPagesProject.dpr 9 | 10 | 11 | 7.0 12 | False 13 | False 14 | 0 15 | RELEASE 16 | 17 | 18 | 7.0 19 | DEBUG 20 | 21 | 22 | Delphi.Personality 23 | 24 | 25 | FalseTrueFalseFalseFalse1000FalseFalseFalseFalseFalse103612521.0.0.01.0.0.0QueryAllPagesProject.dpr 26 | 27 | 28 | 29 | 30 | MainSource 31 | 32 | 33 | 34 | 35 |
MainForm
36 | 37 | 38 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllUsersProject.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {c3e97d08-5d34-4741-85d1-bbc39d5f20ef} 4 | Debug 5 | AnyCPU 6 | DCC32 7 | QueryAllUsersProject.exe 8 | QueryAllUsersProject.dpr 9 | 10 | 11 | 7.0 12 | False 13 | False 14 | 0 15 | RELEASE 16 | 17 | 18 | 7.0 19 | DEBUG 20 | 21 | 22 | Delphi.Personality 23 | 24 | 25 | FalseTrueFalseFalseFalse1000FalseFalseFalseFalseFalse103612521.0.0.01.0.0.0QueryAllUsersProject.dpr 26 | 27 | 28 | 29 | 30 | MainSource 31 | 32 | 33 | 34 | 35 |
MainForm
36 | 37 | 38 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryBackLinksProject.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {72e9566e-1ebf-4924-8f43-3da9e3735844} 4 | Debug 5 | AnyCPU 6 | DCC32 7 | QueryBackLinksProject.exe 8 | QueryBackLinksProject.dpr 9 | 10 | 11 | 7.0 12 | False 13 | False 14 | 0 15 | RELEASE 16 | 17 | 18 | 7.0 19 | DEBUG 20 | 21 | 22 | Delphi.Personality 23 | 24 | 25 | FalseTrueFalseFalseFalse1000FalseFalseFalseFalseFalse103612521.0.0.01.0.0.0QueryBackLinksProject.dpr 26 | 27 | 28 | 29 | 30 | MainSource 31 | 32 | 33 | 34 | 35 |
MainForm
36 | 37 | 38 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageInfosProject.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {eb38da10-460f-4d00-a2e6-562ad6b0df6c} 4 | Debug 5 | AnyCPU 6 | DCC32 7 | QueryPageInfosProject.exe 8 | QueryPageInfosProject.dpr 9 | 10 | 11 | 7.0 12 | False 13 | False 14 | 0 15 | RELEASE 16 | 17 | 18 | 7.0 19 | DEBUG 20 | 21 | 22 | Delphi.Personality 23 | 24 | 25 | FalseTrueFalseFalseFalse1000FalseFalseFalseFalseFalse103612521.0.0.01.0.0.0QueryPageInfosProject.dpr 26 | 27 | 28 | 29 | 30 | MainSource 31 | 32 | 33 | 34 | 35 |
MainForm
36 | 37 | 38 | -------------------------------------------------------------------------------- /ccnet/server/xsl/jedi.xsl: -------------------------------------------------------------------------------- 1 | 2 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 17 | 18 | 30 | 31 |
14 | 15 | Installer results 16 |
19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 |
TargetTarget nameEnabledInstall attemptedSuccess
29 |
32 | 33 | 34 | 35 | 36 | 37 | 38 | YesNo 39 | YesNo 40 | YesNo 41 | 42 | 43 | 44 | 45 | 46 | 47 | 51 | 52 | 62 | 63 |
48 | 49 | Installer log files 50 |
53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 |
TargetTarget nameLog content
61 |
64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 |
76 | 77 | -------------------------------------------------------------------------------- /ccnet/webdashboard/xsl/jedi.xsl: -------------------------------------------------------------------------------- 1 | 2 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 17 | 18 | 30 | 31 |
14 | 15 | Installer results 16 |
19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 |
TargetTarget nameEnabledInstall attemptedSuccess
29 |
32 | 33 | 34 | 35 | 36 | 37 | 38 | YesNo 39 | YesNo 40 | YesNo 41 | 42 | 43 | 44 | 45 | 46 | 47 | 51 | 52 | 62 | 63 |
48 | 49 | Installer log files 50 |
53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 |
TargetTarget nameLog content
61 |
64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 |
76 | 77 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryAllCategoriesProject.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {6764cea8-0912-4cfe-b5fd-b407adca32ca} 4 | Debug 5 | AnyCPU 6 | DCC32 7 | QueryAllCategoriesProject.exe 8 | QueryAllCategoriesProject.dpr 9 | 10 | 11 | 7.0 12 | False 13 | False 14 | 0 15 | RELEASE 16 | 17 | 18 | 7.0 19 | DEBUG 20 | 21 | 22 | Delphi.Personality 23 | 24 | 25 | FalseTrueFalseFalseFalse1000FalseFalseFalseFalseFalse103612521.0.0.01.0.0.0QueryAllCategoriesProject.dpr 26 | 27 | 28 | 29 | 30 | MainSource 31 | 32 | 33 | 34 | 35 |
MainForm
36 | 37 | 38 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryPageLinkInfosProject.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {431e3835-c21c-44f1-9cf3-3fbf716b26a7} 4 | Debug 5 | AnyCPU 6 | DCC32 7 | QueryPageLinkInfosProject.exe 8 | QueryPageLinkInfosProject.dpr 9 | 10 | 11 | 7.0 12 | False 13 | False 14 | 0 15 | RELEASE 16 | 17 | 18 | 7.0 19 | DEBUG 20 | 21 | 22 | Delphi.Personality 23 | 24 | 25 | FalseTrueFalseFalseFalse1000FalseFalseFalseFalseFalse103612521.0.0.01.0.0.0QueryPageLinkInfosProject.dpr 26 | 27 | 28 | 29 | 30 | MainSource 31 | 32 | 33 | 34 | 35 |
MainForm
36 | 37 | 38 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoGroupsProject.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {d1832dda-1b6d-4320-b3d7-e9878b0fb897} 4 | Debug 5 | AnyCPU 6 | DCC32 7 | QueryUserInfoGroupsProject.exe 8 | QueryUserInfoGroupsProject.dpr 9 | 10 | 11 | 7.0 12 | False 13 | False 14 | 0 15 | RELEASE 16 | 17 | 18 | 7.0 19 | DEBUG 20 | 21 | 22 | Delphi.Personality 23 | 24 | 25 | FalseTrueFalseFalseFalse1000FalseFalseFalseFalseFalse103612521.0.0.01.0.0.0QueryUserInfoGroupsProject.dpr 26 | 27 | 28 | 29 | 30 | MainSource 31 | 32 | 33 | 34 | 35 |
MainForm
36 | 37 | 38 | -------------------------------------------------------------------------------- /helpsync/MediaWikiApi/Demos/QueryUserInfoRightsProject.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {10f1941f-e887-4471-b18b-df08383e68b7} 4 | Debug 5 | AnyCPU 6 | DCC32 7 | QueryUserInfoRightsProject.exe 8 | QueryUserInfoRightsProject.dpr 9 | 10 | 11 | 7.0 12 | False 13 | False 14 | 0 15 | RELEASE 16 | 17 | 18 | 7.0 19 | DEBUG 20 | 21 | 22 | Delphi.Personality 23 | 24 | 25 | FalseTrueFalseFalseFalse1000FalseFalseFalseFalseFalse103612521.0.0.01.0.0.0QueryUserInfoRightsProject.dpr 26 | 27 | 28 | 29 | 30 | MainSource 31 | 32 | 33 | 34 | 35 |
MainForm
36 | 37 | 38 | --------------------------------------------------------------------------------