home *** CD-ROM | disk | FTP | other *** search
- object fGrafy: TfGrafy
- Left = 142
- Top = 22
- Width = 651
- Height = 505
- BorderIcons = [biSystemMenu, biMaximize]
- Caption = 'Grafy'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- KeyPreview = True
- OldCreateOrder = False
- Position = poScreenCenter
- OnClose = FormClose
- OnKeyDown = FormKeyDown
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Graf: TChart
- Left = 0
- Top = 105
- Width = 643
- Height = 373
- AnimatedZoom = True
- BackWall.Brush.Color = clWhite
- BackWall.Brush.Style = bsClear
- BackWall.Color = clSilver
- BottomWall.Brush.Color = clWhite
- BottomWall.Size = 1
- Gradient.Direction = gdFromBottomLeft
- Gradient.EndColor = 12582911
- LeftWall.Brush.Color = clWhite
- LeftWall.Brush.Style = bsClear
- Title.Font.Charset = DEFAULT_CHARSET
- Title.Font.Color = clBlue
- Title.Font.Height = -13
- Title.Font.Name = 'Arial'
- Title.Font.Style = [fsBold]
- BackColor = clSilver
- BottomAxis.Axis.Width = 1
- BottomAxis.Grid.Visible = False
- BottomAxis.MinorTickCount = 0
- BottomAxis.Ticks.Color = 4194368
- DepthAxis.Axis.Width = 1
- LeftAxis.AxisValuesFormat = '# ##0.###'
- LeftAxis.ExactDateTime = False
- LeftAxis.Grid.Visible = False
- LeftAxis.LabelsSeparation = 100
- LeftAxis.MinorTicks.Visible = False
- Legend.Frame.Visible = False
- Legend.ResizeChart = False
- Legend.Visible = False
- RightAxis.Visible = False
- TopAxis.Axis.Width = 1
- TopAxis.MinorTicks.Visible = False
- TopAxis.Visible = False
- View3D = False
- OnGetAxisLabel = GrafGetAxisLabel
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 0
- object Series1: TBarSeries
- ColorEachPoint = True
- Marks.ArrowLength = 20
- Marks.Style = smsValue
- Marks.Visible = True
- SeriesColor = clRed
- OnGetMarkText = Series1GetMarkText
- BarStyle = bsRectGradient
- BarWidthPercent = 60
- XValues.DateTime = False
- XValues.Name = 'X'
- XValues.Multiplier = 1
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Bar'
- YValues.Multiplier = 1
- YValues.Order = loNone
- end
- object Series2: TLineSeries
- Marks.ArrowLength = 8
- Marks.Frame.Visible = False
- Marks.Style = smsValue
- Marks.Transparent = True
- Marks.Visible = True
- SeriesColor = clRed
- ValueFormat = '###0.###'
- OnGetMarkText = Series2GetMarkText
- Dark3D = False
- LinePen.Color = 4194368
- Pointer.InflateMargins = True
- Pointer.Style = psSmallDot
- Pointer.Visible = True
- XValues.DateTime = False
- XValues.Name = 'X'
- XValues.Multiplier = 1
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Y'
- YValues.Multiplier = 1
- YValues.Order = loNone
- end
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 643
- Height = 105
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 1
- object GroupBox2: TGroupBox
- Left = 12
- Top = 16
- Width = 194
- Height = 69
- Caption = ' Typ grafu '
- TabOrder = 0
- object ComboBox1: TComboBox
- Left = 13
- Top = 26
- Width = 167
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 0
- OnChange = ComboBox1Change
- Items.Strings = (
- 'Profil d�a'
- '�as pripojeni� v d�och'
- 'Cena pripojenia v d�och'
- 'Po�et impulzov v d�och'
- 'Cena pripojeni� v mesiacoch')
- end
- end
- object GroupBox1: TGroupBox
- Left = 216
- Top = 16
- Width = 409
- Height = 69
- Caption = ' Vlastnosti grafu '
- TabOrder = 1
- object SpeedButton1: TSpeedButton
- Left = 304
- Top = 26
- Width = 94
- Height = 22
- Caption = 'Export grafu'
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
- 333333333333337FF3333333333333903333333333333377FF33333333333399
- 03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
- 99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
- 99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
- 03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
- 33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
- 33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
- 3333777777333333333333333333333333333333333333333333}
- NumGlyphs = 2
- OnClick = SpeedButton1Click
- end
- object ComboBox2: TComboBox
- Left = 192
- Top = 27
- Width = 102
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 2
- OnChange = ComboBox2Change
- Items.Strings = (
- 'Rectangle'
- 'RectGradient'
- 'Arrow'
- 'Cilinder'
- 'Ellipse'
- 'Pyramid'
- 'InvPyramid')
- end
- object cb3D: TCheckBox
- Left = 15
- Top = 22
- Width = 65
- Height = 15
- Caption = '3D'
- TabOrder = 0
- OnClick = cb3DClick
- end
- object cbPozadie: TCheckBox
- Left = 77
- Top = 29
- Width = 65
- Height = 17
- Caption = 'Pozadie'
- TabOrder = 1
- OnClick = cbPozadieClick
- end
- object ElColorCombo1: TElColorCombo
- Left = 139
- Top = 27
- Width = 40
- Height = 20
- TabStop = True
- TabOrder = 3
- SelectedColor = 12582911
- Transparent = False
- OnChange = cbPozadieClick
- DockOrientation = doNoOrient
- end
- object cbSiet: TCheckBox
- Left = 15
- Top = 43
- Width = 42
- Height = 17
- Caption = 'Sie�'
- TabOrder = 4
- OnClick = cbSietClick
- end
- end
- end
- object SaveDialog1: TSaveDialog
- DefaultExt = 'wmf'
- FileName = 'graf'
- Filter = 'Windows metafile (*.wmf)|*.wmf'
- Left = 566
- Top = 64
- end
- end
-