mirror of
https://github.com/PatrickvL/Dxbx.git
synced 2024-05-16 11:50:41 -04:00
Delete some tools we don`t use
This commit is contained in:
parent
806ed1423b
commit
aa17999c0d
Binary file not shown.
Binary file not shown.
|
@ -1,14 +0,0 @@
|
|||
program ChartMaker;
|
||||
|
||||
uses
|
||||
Forms,
|
||||
ufrmMAin in 'ufrmMAin.pas' {Form1};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.MainFormOnTaskbar := True;
|
||||
Application.CreateForm(TForm1, Form1);
|
||||
Application.Run;
|
||||
end.
|
|
@ -1,52 +0,0 @@
|
|||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{28e32c05-f01b-416a-9b23-ba12c9d8abc5}</ProjectGuid>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>ChartMaker.exe</DCC_DependencyCheckOutputName>
|
||||
<MainSource>ChartMaker.dpr</MainSource>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">False</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\sJVCL_R.bpl">(untitled)</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">ChartMaker.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="ChartMaker.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="ufrmMAin.pas">
|
||||
<Form>Form1</Form>
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
</Project>
|
Binary file not shown.
Binary file not shown.
|
@ -1,273 +0,0 @@
|
|||
object Form1: TForm1
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'Chart maker'
|
||||
ClientHeight = 540
|
||||
ClientWidth = 733
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
Menu = MainMenu1
|
||||
OldCreateOrder = False
|
||||
WindowState = wsMaximized
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 733
|
||||
Height = 29
|
||||
Caption = 'ToolBar1'
|
||||
Images = ImageList1
|
||||
TabOrder = 0
|
||||
object ToolButton1: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 8
|
||||
Caption = 'ToolButton1'
|
||||
Style = tbsSeparator
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 8
|
||||
Top = 0
|
||||
Action = actOpenStatusXml
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 31
|
||||
Top = 0
|
||||
Action = actGenerateCharts
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 54
|
||||
Top = 0
|
||||
Action = actSaveCharts
|
||||
end
|
||||
end
|
||||
object PageControl1: TPageControl
|
||||
Left = 0
|
||||
Top = 29
|
||||
Width = 733
|
||||
Height = 492
|
||||
Align = alClient
|
||||
MultiLine = True
|
||||
TabOrder = 1
|
||||
end
|
||||
object StatusBar1: TStatusBar
|
||||
Left = 0
|
||||
Top = 521
|
||||
Width = 733
|
||||
Height = 19
|
||||
Panels = <>
|
||||
SimplePanel = True
|
||||
SimpleText = 'None:'
|
||||
end
|
||||
object ImageList1: TImageList
|
||||
Left = 608
|
||||
Bitmap = {
|
||||
494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
|
||||
0000000000003600000028000000400000001000000001002000000000000010
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000004B0000004B
|
||||
0000004B000018430A0018430A000000000000000000004B8200000000000000
|
||||
00000000000000000000000000000000000000000000000000007F2B28007F2B
|
||||
2800A1828300A1828300A1828300A1828300A1828300A1828300A18283007A1C
|
||||
1C007F2B28000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000004B0000019005000198
|
||||
0300004B000000770300004B8200003E0000004B820022A6F800004B82000000
|
||||
0000004B8200000000000000000000000000000000007F2B2800CA4D4D00B645
|
||||
4500DDD4D5007916170079161700DCE0E000D7DADE00CED5D700BDBABD007610
|
||||
0F009A2D2D007F2B280000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000000274AC000274AC000274
|
||||
AC000274AC000274AC000274AC000274AC000274AC000274AC000274AC000274
|
||||
AC000274AC000274AC000274AC000000000000000000004B0000079D1100069D
|
||||
0F00004B0000004B820021B5C900004B8200004B820022A6F800004B8200004B
|
||||
820047B4D300004B82000000000000000000000000007F2B2800C24A4B00B144
|
||||
4400E2D9D9007916170079161700D9D8DA00D9DEE100D3D9DC00C1BDC1007611
|
||||
1100982D2D007F2B280000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000274AC0048BCF6000274AC008CD8
|
||||
FA0048BCF60048BCF6004EC0F60057C4F40062CAF6006DCFF4007AD5F40086DA
|
||||
F40083C9E0009CE5F3000274AC000000000000000000004B00000DA71F000DA9
|
||||
1F00004B0000178C5200004B820022C5F4000BB5ED0011A9F6001C9EDA0030AC
|
||||
D400004B8200000000000000000000000000000000007F2B2800C24A4A00B042
|
||||
4200E6DCDC007916170079161700D5D3D500D8DEE100D7DDE000C6C2C500700F
|
||||
0F00962C2C007F2B280000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000274AC004FC4F7000274AC0092DD
|
||||
FB0057CAF80057CAF8005DCCF70066D0F70070D4F7007BD9F60088DEF40092E3
|
||||
F40083C9E000A3E9F3000274AC000000000000000000004B000013B12F0012B6
|
||||
2F00004B0000004B8200004B820052DDFF0013B7D400004B82001192B10023A7
|
||||
E600004B8200004B82000000000000000000000000007F2B2800C24A4A00B041
|
||||
4100EADEDE00E7DDDD00DDD4D500D7D3D500D5D7D900D7D8DA00CAC2C5007E17
|
||||
17009E3131007F2B280000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000274AC0057CAF8000274AC0099E3
|
||||
FB005ED1FA005ED1FA0064D4FA006BD7F80075D9F8007FDDF70089E1F60095E3
|
||||
F40083C9E000A3E9F3000274AC000000000000000000004B00001AC041000FAC
|
||||
2D00004B8200A9DDEF00A6E9F2006CD7F600004B82000B6A1C00004B82001196
|
||||
C20020A3E20035B0DD00004B820000000000000000007F2B2800BF474800B845
|
||||
4500BA4C4C00BD575700BB575600B64E4E00B4494900BD525100BB4B4C00B542
|
||||
4200BF4A4A007F2B280000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000274AC005ED1FA000274AC00A1E9
|
||||
FC0069DCFA006DDDF80073DEF80078E1F80081E2F70088E5F70090E7F40098E9
|
||||
F40083C9E000A4EDF3000274AC000000000000000000004B000021CB52001CC2
|
||||
4800004B0000004B8200004B82009EE7FC009EE7FC00004B82000DAADD000DAA
|
||||
DD00004B8200004B82000000000000000000000000007F2B2800A33B3900B160
|
||||
5D00C6868400CB918F00CC919000CC908F00CB898800C9898800CB939100CC96
|
||||
9600BD4B4C007F2B280000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000274AC0069DCFA000274AC00A7EF
|
||||
FC0074E5FB0074E5FB0077E5FA007EE6FA0086E7F80080A19000A5B6B5009EEB
|
||||
F40083C9E000A9EEF3000274AC000000000000000000004B000029D862002ADA
|
||||
6500004B00000E9A3900004B8200D5FBFF009CE3F20045BABA002DC4E50012D1
|
||||
FF00004B8200000000000000000000000000000000007F2B2800BD4B4C00F7F7
|
||||
F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7
|
||||
F700BD4B4C007F2B280000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000274AC0074E5FB000274AC00FEFE
|
||||
FE00B8F4FE00B8F4FE00B8F4FE00B8F4FE004F9379000C7F0F00266B3A00B8F4
|
||||
FE0083C9E000D4F7FA000274AC000000000000000000004B000031E36C0032E6
|
||||
7000004B0000004B8200C5EFFF00004B8200004B8200A1F0FF00004B8200004B
|
||||
82000FC5FA00004B82000000000000000000000000007F2B2800BD4B4C00F7F7
|
||||
F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7
|
||||
F700BD4B4C007F2B280000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000274AC007AEBFE000274AC000274
|
||||
AC000274AC000274AC000274AC00418E7300378638001BA74500007706002863
|
||||
41000274AC000274AC000274AC000000000000000000004B00003BF074003CF4
|
||||
7900004B000030B16600004B820026C26800004B8200CBEDFF00004B8200004B
|
||||
0000004B8200000000000000000000000000000000007F2B2800BD4B4C00F7F7
|
||||
F700BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00F7F7
|
||||
F700BD4B4C007F2B280000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000274AC0082F2FC0082F2FC0082F2
|
||||
FC00B2928F00FFFFFF00FFFFFF00378638001BA745001BA745001BA74500246C
|
||||
1C00B2928F0000000000000000000000000000000000004B000047FF870047FF
|
||||
8B00004B00002FC759003EFB7A0038F06C003ED48100004B820047DC9600004B
|
||||
000000000000000000000000000000000000000000007F2B2800BD4B4C00F7F7
|
||||
F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7
|
||||
F700BD4B4C007F2B280000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000274AC00FEFEFE0089F8FE0089F8
|
||||
FE00B2928F00FFF7EB00FFF7EB00FFF7EB0069B76A001BA7450069B26000FFF7
|
||||
EB00B2928F0000000000000000000000000000000000004B000039E26D0027A1
|
||||
3D00004B0000004B00001FB63F002DDA5E003EF7780041FE800041FE8000004B
|
||||
000000000000000000000000000000000000000000007F2B2800BD4B4C00F7F7
|
||||
F700BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00F7F7
|
||||
F700BD4B4C007F2B280000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000000274AC00FEFEFE0089F8
|
||||
FE00B2928F00FFEDCF00FFEDCF00FFEDCF0069B260001BA7450069B26000FFED
|
||||
CF00B2928F0000000000000000000000000000000000004B0000004B0000645E
|
||||
4100CCB5B000CCD0C000004B0000004B0000004B000041FE800042F67A00004B
|
||||
000000000000000000000000000000000000000000007F2B2800BD4B4C00F7F7
|
||||
F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7
|
||||
F700BD4B4C007F2B280000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000000000000274AC000274
|
||||
AC00B2928F00FFE1B400FFE1B400FFE1B400FFE1B4001C9632001BA74500B292
|
||||
8F00000000000000000000000000000000000000000000000000000000000A44
|
||||
040018430A0018430A00645E4100B68E8A00B68E8A00004B0000004B0000004B
|
||||
00000000000000000000000000000000000000000000000000007F2B2800F7F7
|
||||
F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7
|
||||
F7007F2B28000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000B2928F00B2928F00B2928F00B2928F00B2928F00B2928F000E7A1B000D7D
|
||||
19000D7D19000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000004B0000004B0000004B0000004B0000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000424D3E000000000000003E000000
|
||||
2800000040000000100000000100010000000000800000000000000000000000
|
||||
000000000000000000000000FFFFFF00FFFFFFFFFFFF0000FFFFC1BFC0070000
|
||||
FFFF801780030000800180038003000000018007800300000001800380030000
|
||||
0001800180030000000180038003000000018007800300000001800380030000
|
||||
00018007800300000007800F800300000007800F800300008007800F80030000
|
||||
C00FE00FC0070000F007FC3FFFFF000000000000000000000000000000000000
|
||||
000000000000}
|
||||
end
|
||||
object MainMenu1: TMainMenu
|
||||
Left = 640
|
||||
object File1: TMenuItem
|
||||
Caption = '&File'
|
||||
object Open1: TMenuItem
|
||||
Action = actOpenStatusXml
|
||||
end
|
||||
object SaveAs1: TMenuItem
|
||||
Action = actSaveCharts
|
||||
end
|
||||
object N1: TMenuItem
|
||||
Caption = '-'
|
||||
end
|
||||
object Exit1: TMenuItem
|
||||
Action = actClose
|
||||
end
|
||||
end
|
||||
end
|
||||
object ActionList1: TActionList
|
||||
Images = ImageList1
|
||||
Left = 672
|
||||
object actClose: TAction
|
||||
Caption = '&Close'
|
||||
OnExecute = actCloseExecute
|
||||
end
|
||||
object actOpenStatusXml: TAction
|
||||
Caption = '&Open'
|
||||
Hint = 'Open progress xml'
|
||||
ImageIndex = 0
|
||||
OnExecute = actOpenStatusXmlExecute
|
||||
end
|
||||
object actTreeExpand: TAction
|
||||
Category = 'XmlTreeView'
|
||||
Caption = 'Expand'
|
||||
end
|
||||
object actTreeCollapse: TAction
|
||||
Category = 'XmlTreeView'
|
||||
Caption = 'Collapse'
|
||||
end
|
||||
object actGenerateCharts: TAction
|
||||
Caption = 'actGenerateCharts'
|
||||
Hint = 'Generate charts'
|
||||
ImageIndex = 1
|
||||
OnExecute = actGenerateChartsExecute
|
||||
end
|
||||
object actSaveCharts: TAction
|
||||
Caption = '&Save as...'
|
||||
Hint = 'Save charts'
|
||||
ImageIndex = 2
|
||||
OnExecute = actSaveChartsExecute
|
||||
end
|
||||
end
|
||||
object OpenDialog: TOpenDialog
|
||||
Left = 580
|
||||
end
|
||||
object XMLDocument1: TXMLDocument
|
||||
Left = 548
|
||||
Top = 4
|
||||
DOMVendorDesc = 'MSXML'
|
||||
end
|
||||
end
|
|
@ -1,341 +0,0 @@
|
|||
unit ufrmMAin;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, Menus, ImgList, ComCtrls, ToolWin, ActnList, xmldom, XMLIntf,
|
||||
msxmldom, XMLDoc, ExtCtrls, StdCtrls, FileCtrl;
|
||||
|
||||
type
|
||||
TForm1 = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
ToolButton1: TToolButton;
|
||||
ToolButton2: TToolButton;
|
||||
ImageList1: TImageList;
|
||||
MainMenu1: TMainMenu;
|
||||
File1: TMenuItem;
|
||||
Exit1: TMenuItem;
|
||||
N1: TMenuItem;
|
||||
SaveAs1: TMenuItem;
|
||||
Open1: TMenuItem;
|
||||
ActionList1: TActionList;
|
||||
actClose: TAction;
|
||||
actOpenStatusXml: TAction;
|
||||
OpenDialog: TOpenDialog;
|
||||
actTreeExpand: TAction;
|
||||
actTreeCollapse: TAction;
|
||||
PageControl1: TPageControl;
|
||||
ToolButton3: TToolButton;
|
||||
actGenerateCharts: TAction;
|
||||
XMLDocument1: TXMLDocument;
|
||||
ToolButton4: TToolButton;
|
||||
actSaveCharts: TAction;
|
||||
StatusBar1: TStatusBar;
|
||||
procedure actCloseExecute(Sender: TObject);
|
||||
procedure actGenerateChartsExecute(Sender: TObject);
|
||||
procedure actOpenStatusXmlExecute(Sender: TObject);
|
||||
procedure actSaveChartsExecute(Sender: TObject);
|
||||
private
|
||||
procedure CreateHtmlPages ( aMemo : TMemo; XmlName : String; Items : Integer );
|
||||
procedure CreateBeginBlockChart( aMemo : TMemo );
|
||||
procedure CreateEndBlockChart( aMemo : TMemo; ItemCount : Integer; ReportCaption : String );
|
||||
Function CreateMainStatusChart ( aMemo : TMemo ) : Integer;
|
||||
procedure CreateSubItemCharts;
|
||||
end;
|
||||
|
||||
TChartTab = class ( TTabSheet )
|
||||
private
|
||||
aChartMemo : TMemo;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
published
|
||||
property ChartMemo : TMemo read aChartMemo write aChartMemo;
|
||||
end;
|
||||
|
||||
var Form1 : TForm1;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TForm1.actCloseExecute(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TForm1.actGenerateChartsExecute(Sender: TObject);
|
||||
var
|
||||
Height : Integer;
|
||||
begin
|
||||
with TChartTab.Create( PageControl1 ) do begin
|
||||
Caption := 'Main.Xml';
|
||||
Height := CreateMainStatusChart ( aChartMemo );
|
||||
end;
|
||||
|
||||
with TChartTab.Create( PageControl1 ) do begin
|
||||
Caption := 'Main.Html';
|
||||
CreateHtmlPages ( aChartMemo, 'Main.Xml', Height );
|
||||
end;
|
||||
|
||||
CreateSubItemCharts;
|
||||
end;
|
||||
|
||||
procedure TForm1.actOpenStatusXmlExecute(Sender: TObject);
|
||||
begin
|
||||
if OpenDialog.Execute then begin
|
||||
XMLDocument1.LoadFromFile( OpenDialog.FileName );
|
||||
XMLDocument1.Active := true;
|
||||
StatusBar1.SimpleText := OpenDialog.FileName + ' loaded...';
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.actSaveChartsExecute(Sender: TObject);
|
||||
var Cnt : Integer;
|
||||
Dir: string;
|
||||
begin
|
||||
if SelectDirectory('Select directory to save files to', '', Dir) then begin
|
||||
for Cnt := 0 to PageControl1.PageCount - 1 do begin
|
||||
TChartTab (PageControl1.Pages[Cnt]).aChartMemo.Lines.SaveToFile( Dir + '\' + PageControl1.Pages[Cnt].Caption );
|
||||
end;
|
||||
end;
|
||||
ShowMessage ( 'Files saved!' );
|
||||
end;
|
||||
|
||||
procedure TForm1.CreateBeginBlockChart(aMemo: TMemo);
|
||||
begin
|
||||
aMemo.Lines.Add ('<chart>');
|
||||
aMemo.Lines.Add ('');
|
||||
aMemo.Lines.Add ('<axis_category shadow=''low'' size=''14'' color=''88bb77'' alpha=''100'' orientation=''horizontal'' />');
|
||||
aMemo.Lines.Add ('<axis_ticks value_ticks=''false'' category_ticks=''true'' major_thickness=''2'' minor_thickness=''1'' minor_count=''1'' major_color=''222222'' minor_color=''222222'' position=''centered'' />');
|
||||
aMemo.Lines.Add ('<axis_value min=''0'' max=''100'' alpha=''0'' />');
|
||||
aMemo.Lines.Add ('');
|
||||
aMemo.Lines.Add ('<chart_border color=''000000'' top_thickness=''0'' bottom_thickness=''0'' left_thickness=''4'' right_thickness=''0'' />');
|
||||
end;
|
||||
|
||||
procedure TForm1.CreateEndBlockChart(aMemo: TMemo; ItemCount : Integer; ReportCaption : String);
|
||||
begin
|
||||
aMemo.Lines.Add ('<chart_grid_h alpha=''5'' color=''000000'' thickness=''30'' />');
|
||||
aMemo.Lines.Add ('<chart_label shadow=''low'' color=''ffffff'' alpha=''75'' size=''12'' position=''center'' suffix=''%'' />');
|
||||
aMemo.Lines.Add ('<chart_rect shadow=''high'' x=''600'' y=''105'' width=''320'' height=''' + IntToStr(ItemCount * 20) + '''positive_color=''dba34c'' negative_color=''ff0000'' positive_alpha=''65'' negative_alpha=''25'' corner_tl=''0'' corner_tr=''30'' corner_br=''30'' corner_bl=''0'' />');
|
||||
aMemo.Lines.Add ('<chart_type>bar</chart_type>');
|
||||
aMemo.Lines.Add ('');
|
||||
aMemo.Lines.Add ('<draw>');
|
||||
aMemo.Lines.Add (' <text shadow=''low'' color=''ff8800'' alpha=''100'' size=''20'' x=''35'' y=''65'' width=''500'' height=''200'' h_align=''left'' v_align=''top''>' + ReportCaption + '</text>');
|
||||
aMemo.Lines.Add ('</draw>');
|
||||
aMemo.Lines.Add ('<filter>');
|
||||
aMemo.Lines.Add (' <bevel id=''data'' angle=''90'' blurX=''10'' blurY=''10'' distance=''5'' highlightAlpha=''10'' shadowAlpha=''20'' type=''full'' />');
|
||||
aMemo.Lines.Add (' <bevel id=''small'' angle=''45'' blurX=''2'' blurY=''2'' distance=''1'' highlightAlpha=''35'' highlightColor=''ffffff'' shadowColor=''000000'' shadowAlpha=''35'' type=''inner'' />');
|
||||
aMemo.Lines.Add (' <shadow id=''high'' distance=''5'' angle=''45'' alpha=''35'' blurX=''15'' blurY=''15'' />');
|
||||
aMemo.Lines.Add (' <shadow id=''low'' distance=''2'' angle=''45'' alpha=''50'' blurX=''5'' blurY=''5'' />');
|
||||
aMemo.Lines.Add ('</filter>');
|
||||
aMemo.Lines.Add ('');
|
||||
aMemo.Lines.Add ('<legend layout=''hide'' />');
|
||||
aMemo.Lines.Add ('');
|
||||
aMemo.Lines.Add ('<series_color>');
|
||||
aMemo.Lines.Add (' <color>5a4b6e</color>');
|
||||
aMemo.Lines.Add ('</series_color>');
|
||||
aMemo.Lines.Add ('');
|
||||
aMemo.Lines.Add ('</chart>');
|
||||
end;
|
||||
|
||||
procedure TForm1.CreateHtmlPages(aMemo: TMemo; XmlName : String; Items : Integer);
|
||||
begin
|
||||
aMemo.Lines.Add ('<HTML>');
|
||||
aMemo.Lines.Add ('');
|
||||
aMemo.Lines.Add (' <HEAD>');
|
||||
aMemo.Lines.Add (' <link rel="stylesheet" type="text/css" href="../dxbx.css"/>');
|
||||
aMemo.Lines.Add (' <TITLE>Shadow_tj - DXBX</TITLE>');
|
||||
aMemo.Lines.Add (' <META NAME="description" CONTENT="DXBX - XBOX EMULATION">');
|
||||
aMemo.Lines.Add (' <META NAME="keywords" CONTENT="xbox, xbox emu, xbox emulation, cxbx, dxbx">');
|
||||
aMemo.Lines.Add (' <META NAME="robot" CONTENT="index,follow">');
|
||||
aMemo.Lines.Add (' <META NAME="author" CONTENT="shadowtj@shadowtj.org">');
|
||||
aMemo.Lines.Add (' <META NAME="revisit-after" CONTENT="20">');
|
||||
aMemo.Lines.Add ('</HEAD>');
|
||||
|
||||
aMemo.Lines.Add ('<script language="javascript">AC_FL_RunContent = 0;</script>');
|
||||
aMemo.Lines.Add ('<script language="javascript"> DetectFlashVer = 0; </script>');
|
||||
aMemo.Lines.Add ('<script src="AC_RunActiveContent.js" language="javascript"></script>');
|
||||
aMemo.Lines.Add ('<script language="JavaScript" type="text/javascript">');
|
||||
aMemo.Lines.Add ('<!--' );
|
||||
aMemo.Lines.Add ('var requiredMajorVersion = 9;');
|
||||
aMemo.Lines.Add ('var requiredMinorVersion = 0;');
|
||||
aMemo.Lines.Add ('var requiredRevision = 45;');
|
||||
aMemo.Lines.Add ('-->');
|
||||
aMemo.Lines.Add ('</script>');
|
||||
aMemo.Lines.Add ('<BODY bgcolor="#000000">');
|
||||
|
||||
|
||||
aMemo.Lines.Add ('<CENTER>');
|
||||
aMemo.Lines.Add ('<p>');
|
||||
aMemo.Lines.Add ('<img alt="" src="../images/dxbxlogo.jpg" width="398" height="77"></p>');
|
||||
aMemo.Lines.Add ('<p><span><a href="../index.html">News </a> ');
|
||||
aMemo.Lines.Add ('<a href="../faq.html">Faq</a> <a href="status.html">Status</a> </span> ');
|
||||
aMemo.Lines.Add ('<a href="../download.html">Downloads</a> ');
|
||||
aMemo.Lines.Add ('<a href="../translationguide.html">Translation guide</a> </p>');
|
||||
aMemo.Lines.Add ('');
|
||||
|
||||
aMemo.Lines.Add ('<script language="JavaScript" type="text/javascript">');
|
||||
aMemo.Lines.Add ('<!--');
|
||||
aMemo.Lines.Add ('if (AC_FL_RunContent == 0 || DetectFlashVer == 0) {');
|
||||
aMemo.Lines.Add ('alert("This page requires AC_RunActiveContent.js.");');
|
||||
aMemo.Lines.Add ('} else {');
|
||||
aMemo.Lines.Add ('var hasRightVersion = DetectFlashVer(requiredMajorVersion, requiredMinorVersion, requiredRevision);');
|
||||
aMemo.Lines.Add ('if(hasRightVersion) {');
|
||||
aMemo.Lines.Add (' AC_FL_RunContent(');
|
||||
aMemo.Lines.Add (' ''codebase'', ''http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,45,0'',');
|
||||
aMemo.Lines.Add (' ''width'', ''800'',');
|
||||
aMemo.Lines.Add (' ''height'', '''+ IntToStr((Items *20) + 200) +''',');
|
||||
aMemo.Lines.Add (' ''scale'', ''noscale'',');
|
||||
aMemo.Lines.Add (' ''salign'', ''TL'',');
|
||||
aMemo.Lines.Add (' ''bgcolor'', ''#000000'',');
|
||||
aMemo.Lines.Add (' ''wmode'', ''opaque'',');
|
||||
aMemo.Lines.Add (' ''movie'', ''charts'',');
|
||||
aMemo.Lines.Add (' ''src'', ''charts'',');
|
||||
aMemo.Lines.Add (' ''FlashVars'', ''library_path=charts_library&xml_source=' + XmlName + ''',');
|
||||
aMemo.Lines.Add (' ''id'', ''my_chart'',');
|
||||
aMemo.Lines.Add (' ''name'', ''my_chart'',');
|
||||
aMemo.Lines.Add (' ''menu'', ''true'',');
|
||||
aMemo.Lines.Add (' ''allowFullScreen'', ''true'',');
|
||||
aMemo.Lines.Add (' ''allowScriptAccess'',''sameDomain'',');
|
||||
aMemo.Lines.Add (' ''quality'', ''high'',');
|
||||
aMemo.Lines.Add (' ''align'', ''middle'',');
|
||||
aMemo.Lines.Add (' ''pluginspage'', ''http://www.macromedia.com/go/getflashplayer'',');
|
||||
aMemo.Lines.Add (' ''play'', ''true'',');
|
||||
aMemo.Lines.Add (' ''devicefont'', ''false''');
|
||||
aMemo.Lines.Add (' );');
|
||||
aMemo.Lines.Add ('} else {');
|
||||
aMemo.Lines.Add (' var alternateContent = ''This content requires the Adobe Flash Player. ''');
|
||||
aMemo.Lines.Add (' + ''<u><a href=http://www.macromedia.com/go/getflash/>Get Flash</a></u>.'';');
|
||||
aMemo.Lines.Add (' document.write(alternateContent);');
|
||||
aMemo.Lines.Add ('}');
|
||||
aMemo.Lines.Add ('}');
|
||||
aMemo.Lines.Add ('// -->');
|
||||
aMemo.Lines.Add ('</script>');
|
||||
aMemo.Lines.Add ('</CENTER>');
|
||||
aMemo.Lines.Add ('<noscript>');
|
||||
aMemo.Lines.Add (' <P>This content requires JavaScript.</P>');
|
||||
aMemo.Lines.Add ('</noscript>');
|
||||
aMemo.Lines.Add ('');
|
||||
aMemo.Lines.Add ('</BODY>');
|
||||
aMemo.Lines.Add ('</HTML>');
|
||||
end;
|
||||
|
||||
Function TForm1.CreateMainStatusChart(aMemo: TMemo) : Integer;
|
||||
var XMLRootNode, XMLNode : IXMLNode;
|
||||
ItemList, ProgressList : TStrings;
|
||||
cnt : integer;
|
||||
begin
|
||||
aMemo.Lines.Clear;
|
||||
CreateBeginBlockChart ( aMemo );
|
||||
|
||||
// Write Chart Data
|
||||
XMLRootNode := XMLDocument1.DocumentElement;
|
||||
XMLNode := XMLRootNode.ChildNodes.FindNode('UNIT');
|
||||
|
||||
ItemList := TStringList.Create;
|
||||
ProgressList := TStringList.Create;
|
||||
|
||||
aMemo.Lines.add ( '<chart_data>' );
|
||||
|
||||
while Assigned ( XmlNode ) do begin
|
||||
ItemList.Add( XmlNode.AttributeNodes.First.Text );
|
||||
ProgressList.Add( '0' );
|
||||
XmlNode := XmlNode.NextSibling;
|
||||
end;
|
||||
|
||||
// Section names
|
||||
aMemo.Lines.add ( '<row>' );
|
||||
for cnt := 0 to ItemList.Count - 1 do begin
|
||||
aMemo.Lines.add ('<string>' + ItemList.Strings[cnt] + '</string>' );
|
||||
end;
|
||||
aMemo.Lines.add ( '</row>' );
|
||||
|
||||
// percentage
|
||||
aMemo.Lines.add ( '<row>' );
|
||||
for cnt := 0 to ProgressList.Count - 1 do begin
|
||||
aMemo.Lines.add ('<number bevel=''data''>' + ProgressList.Strings[cnt] + '</number>' );
|
||||
end;
|
||||
aMemo.Lines.add ( '</row>' );
|
||||
|
||||
aMemo.Lines.Add ('</chart_data>');
|
||||
|
||||
CreateEndBlockChart ( aMemo, ItemList.Count, 'Status report DXBX' );
|
||||
Result := ItemList.Count;
|
||||
ItemList.free;
|
||||
ProgressList.free;
|
||||
end;
|
||||
|
||||
procedure TForm1.CreateSubItemCharts;
|
||||
var XMLRootNode, XmlNode, XmlSubItem : iXmlNode;
|
||||
ItemList, ProgressList : TStrings;
|
||||
ChartTab : TChartTab;
|
||||
cnt : Integer;
|
||||
begin
|
||||
XMLRootNode := XMLDocument1.DocumentElement;
|
||||
XMLNode := XMLRootNode.ChildNodes.FindNode('UNIT');
|
||||
|
||||
while Assigned ( XmlNode ) do begin
|
||||
XmlSubItem := XmlNode.ChildNodes.First;
|
||||
|
||||
ChartTab := TChartTab.Create( PageControl1 );
|
||||
ChartTab.Caption := XmlNode.AttributeNodes.First.Text + '.Xml';
|
||||
CreateBeginBlockChart( ChartTab.aChartMemo );
|
||||
|
||||
ItemList := TStringList.Create;
|
||||
ProgressList := TStringList.Create;
|
||||
while Assigned ( XmlSubItem ) do begin
|
||||
ItemList.Add ( XmlSubItem.AttributeNodes.First.Text );
|
||||
ProgressList.Add ( XmlSubItem.AttributeNodes.Last.Text );
|
||||
XmlSubItem := XmlSubItem.NextSibling;
|
||||
end;
|
||||
|
||||
ChartTab.aChartMemo.Lines.add ( '<chart_data>' );
|
||||
|
||||
ChartTab.aChartMemo.Lines.add ( '<row>' );
|
||||
for cnt := 0 to ItemList.Count - 1 do begin
|
||||
ChartTab.aChartMemo.Lines.add ('<string>' + ItemList.Strings[cnt] + '</string>' );
|
||||
end;
|
||||
ChartTab.aChartMemo.Lines.add ( '</row>' );
|
||||
|
||||
ChartTab.aChartMemo.Lines.add ( '<row>' );
|
||||
for cnt := 0 to ProgressList.Count - 1 do begin
|
||||
ChartTab.aChartMemo.Lines.add ('<number bevel=''data''>' + ProgressList.Strings[cnt] + '</number>' );
|
||||
end;
|
||||
ChartTab.aChartMemo.Lines.add ( '</row>' );
|
||||
ChartTab.aChartMemo.Lines.add ( '</chart_data>' );
|
||||
|
||||
|
||||
CreateEndBlockChart( ChartTab.aChartMemo, ItemList.Count, 'Status report ' + XmlNode.AttributeNodes.First.Text );
|
||||
|
||||
with TChartTab.Create( PageControl1 ) do begin
|
||||
Caption := XmlNode.AttributeNodes.First.Text + '.Html';
|
||||
CreateHtmlPages ( aChartMemo, XmlNode.AttributeNodes.First.Text + '.Xml', ItemList.Count );
|
||||
end;
|
||||
|
||||
ItemList.Free;
|
||||
ProgressList.Free;
|
||||
XmlNode := XmlNode.NextSibling;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ TChartTab }
|
||||
|
||||
constructor TChartTab.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
PageControl := TPageControl(AOwner);
|
||||
ChartMemo := TMemo.Create(self);
|
||||
ChartMemo.parent := self;
|
||||
ChartMemo.Align := alClient;
|
||||
ChartMemo.ScrollBars := ssBoth;
|
||||
end;
|
||||
|
||||
destructor TChartTab.Destroy;
|
||||
begin
|
||||
ChartMemo.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
end.
|
Binary file not shown.
|
@ -1,47 +0,0 @@
|
|||
|
||||
*** HeadConv 4.20 (c) 2000/12/16 by Bob Swart (aka Dr.Bob - www.drbob42.com) ***
|
||||
FINAL DELPHI-JEDI EDITION
|
||||
|
||||
version date comments
|
||||
==========================----------------------------
|
||||
3.00 - 97/10/03 - first HeadConv command-line edition!
|
||||
3.01 - 97/10/10 - generate only "dynamic" import units
|
||||
3.02 - 97/10/13 - 3rd pass: convert all ": P" to "var"
|
||||
3.03 - 97/10/13 - 3rd pass: don't do 3.02 for "PChar"s
|
||||
3.04 - 97/10/14 - skip list of un-needed pointer types
|
||||
3.05 - 97/10/15 - add a real typename to "_1" typedefs
|
||||
3.06 - 97/10/15 - adjust the indentation (2) for types
|
||||
3.07 - 97/10/15 - make "DLLHandle" of the THandle type
|
||||
3.08 - 97/10/15 - 3rd pass: skip 3.02 within all types
|
||||
3.09 - 97/10/16 - fixed problem with arrays and spaces
|
||||
3.10 - 97/10/17 - fixed the typedef "_" prefix problem
|
||||
3.11 - 97/10/17 - added multiple typedef names support
|
||||
3.12 - 97/10/17 - added LPWSTR -> PWideChar conversion
|
||||
3.13 - 97/11/03 - Pointer doesn't become "var :ointer"
|
||||
3.14 - 97/11/04 - "cdecl" and optional win32 "stdcall"
|
||||
3.15 - 97/11/04 - accepting a "void *" function result
|
||||
3.16 - 97/11/07 - fixed a bug in comments for typedefs
|
||||
3.17 - 97/11/11 - skip used comments in implementation
|
||||
3.18 - 97/11/12 - added argument -o to force overwrite
|
||||
3.19 - 97/11/12 - fixed problem with multiple typedefs
|
||||
3.20 - 97/11/12 - suspend after __DR_BOB_HEADCONV_STOP
|
||||
restart with __DR_BOB_HEADCONV_START
|
||||
3.21 - 97/11/13 - GetProcAddress case-sensitive import
|
||||
3.22 - 97/11/14 - Assert around GetProcAddress results
|
||||
3.23 - 97/11/14 - Created "procedure LoadDLL" for init
|
||||
3.24 - 97/11/21 - re-introduced "static" import units!
|
||||
3.25 - 98/04/12 - fixed a rare "type" conversion issue
|
||||
4.00 - 99/07/17 - final HeadConv command-line edition!
|
||||
4.20 - 00/12/16 - HeadConv Open Source Wizard edition!
|
||||
|
||||
Usage: HeadConv filename
|
||||
will generate the explicit (dynamic) Delphi import unit,
|
||||
where filename.H is the C DLL header file.
|
||||
|
||||
Command-line Arguments:
|
||||
-o to force overwrite of pascal unit on disk
|
||||
|
||||
-x to force generation of eXplicit import unit (dynamic)
|
||||
-m to force generation of iMplicit import unit (static)
|
||||
|
||||
Example: HeadConv SAMPLE -o
|
Binary file not shown.
|
@ -1,55 +0,0 @@
|
|||
// Author: Bob Swart (aka Dr.Bob - www.drbob42.com)
|
||||
//
|
||||
// this sample header illustrate some of the fixes in HeadConv v3.24
|
||||
|
||||
#define LEN 42
|
||||
|
||||
// float
|
||||
typedef struct
|
||||
{
|
||||
BYTE ErrorByte;
|
||||
float Value;
|
||||
}BlockFloatRec;
|
||||
|
||||
// double
|
||||
typedef struct
|
||||
{
|
||||
BYTE ErrorByte;
|
||||
double Value;
|
||||
}BlockDoubleRec;
|
||||
|
||||
typedef struct
|
||||
{
|
||||
int* Number;
|
||||
char* Field;
|
||||
char List[LEN + 1];
|
||||
} BUG, *pBUG;
|
||||
|
||||
__DR_BOB_HEADCONV_STOP
|
||||
const
|
||||
CHARLEN = 42;
|
||||
__DR_BOB_HEADCONV_START
|
||||
|
||||
struct share_info_0 {
|
||||
charshi0_netname[CHARLEN+1];
|
||||
}; /* share_info_0 */
|
||||
|
||||
void * GEODLL_EXPORT GeoEngine(char *, int, short *, void * p, void*);
|
||||
|
||||
void DSSSetTransWAY(DWORD dwRecogWay) ;
|
||||
void DSSGetTransWAY(DWORD *dwRecogWay) ;
|
||||
|
||||
typedef struct _USER_INFO_0 {
|
||||
LPWSTR usri0_name;
|
||||
}USER_INFO_0, *PUSER_INFO_0, *LPUSER_INFO_0;
|
||||
|
||||
typedef struct _USER_INFO_1 {
|
||||
LPWSTR usri1_name;
|
||||
LPWSTR usri1_password;
|
||||
DWORD usri1_password_age;
|
||||
DWORD usri1_priv;
|
||||
LPWSTR usri1_home_dir;
|
||||
LPWSTR usri1_comment;
|
||||
DWORD usri1_flags;
|
||||
LPWSTR usri1_script_path;
|
||||
}USER_INFO_1, *PUSER_INFO_1, *LPUSER_INFO_1;
|
Loading…
Reference in a new issue