компьютерная графика: заливка и движение осей

[Schuldeh]

Добрый вечер.
Возникли две небольшие проблемы с компьютерной графикой. среда - делфи.

1. графики и их построение. различная заливка сетки графика
скрин формы:

необходимо сделать заливку ячеек сетки графика одним цветом, например, желтым.
все сделала, а тут прямо в ступор впала.

object Form1: TForm1
  Left = 238
  Top = 165
  Width = 944
  Height = 631
  HorzScrollBar.Position = 19
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = -17
    Top = 0
    Width = 600
    Height = 600
  end
  object BitBtn1: TBitBtn
    Left = 839
    Top = 431
    Width = 72
    Height = 25
    TabOrder = 0
    Kind = bkClose
  end
  object GroupBox2: TGroupBox
    Left = 589
    Top = 352
    Width = 321
    Height = 73
    Caption = #1053#1072#1089#1090#1088#1086#1082#1072' '#1075#1088#1072#1092#1080#1082#1086#1074
    TabOrder = 1
    object Label16: TLabel
      Left = 8
      Top = 48
      Width = 83
      Height = 16
      Caption = #1055#1072#1088#1072#1084#1077#1090#1088' k='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object ComboBox1: TComboBox
      Tag = -1
      Left = 8
      Top = 16
      Width = 305
      Height = 21
      DropDownCount = 12
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 0
      Text = #1043#1080#1087#1077#1088#1073#1072#1083#1080#1095#1077#1089#1082#1080#1081' '#1087#1072#1088#1072#1073#1072#1083#1086#1080#1076' f(x)=((kx^2)/18)+((ky^2)/32)'
      Items.Strings = (
        #1043#1080#1087#1077#1088#1073#1072#1083#1080#1095#1077#1089#1082#1080#1081' '#1087#1072#1088#1072#1073#1072#1083#1086#1080#1076' f(x)=((kx^2)/18)+((ky^2)/32)'
        'sin(x) * cos(x)'
        #1054#1076#1085#1086#1087#1083#1086#1089#1082#1086#1089#1090#1085#1086#1081' '#1075#1080#1087#1077#1088#1073#1072#1083#1086#1080#1076)
    end
    object Button1: TButton
      Left = 238
      Top = 40
      Width = 75
      Height = 25
      Caption = #1053#1072#1088#1080#1089#1086#1074#1072#1090#1100
      TabOrder = 1
      OnClick = Button1Click
    end
    object Edit12: TEdit
      Left = 94
      Top = 44
      Width = 33
      Height = 21
      TabOrder = 2
      Text = '10'
      OnKeyPress = Edit12KeyPress
    end
  end
  object GroupBox1: TGroupBox
    Left = 589
    Top = 0
    Width = 321
    Height = 345
    Caption = #1053#1072#1090#1089#1088#1086#1082#1072' '#1089#1077#1090#1082#1080' '#1082#1086#1086#1088#1076#1080#1085#1072#1090
    TabOrder = 2
    object Label2: TLabel
      Left = 45
      Top = 17
      Width = 69
      Height = 16
      Caption = #1062#1074#1077#1090' '#1086#1089#1080' '#1061
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 177
      Top = 17
      Width = 78
      Height = 16
      Caption = #1062#1074#1077#1090' '#1086#1089#1077#1080' Y'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 11
      Top = 81
      Width = 238
      Height = 16
      Caption = #1058#1086#1083#1097#1080#1085#1072' '#1083#1080#1085#1080#1081' '#1082#1086#1086#1088#1076#1080#1085#1072#1090#1085#1086#1081' '#1089#1077#1090#1082#1080
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 41
      Top = 105
      Width = 208
      Height = 16
      Caption = #1058#1086#1083#1097#1080#1085#1072' '#1083#1080#1085#1080#1081' '#1086#1089#1077#1081' '#1082#1086#1086#1088#1076#1080#1085#1072#1090
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 5
      Top = 161
      Width = 220
      Height = 16
      Caption = #1054#1090#1088#1077#1079#1086#1082' '#1087#1086#1089#1090#1088#1086#1077#1085#1080#1103' '#1082#1086#1086#1088#1076#1080#1085#1072#1090' '#1061
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 229
      Top = 158
      Width = 4
      Height = 16
      Caption = '['
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 309
      Top = 158
      Width = 4
      Height = 16
      Caption = ']'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 270
      Top = 158
      Width = 3
      Height = 16
      Caption = ';'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 4
      Top = 185
      Width = 221
      Height = 16
      Caption = #1054#1090#1088#1077#1079#1086#1082' '#1087#1086#1089#1090#1088#1086#1077#1085#1080#1103' '#1082#1086#1086#1088#1076#1080#1085#1072#1090' Y'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 229
      Top = 182
      Width = 4
      Height = 16
      Caption = '['
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 309
      Top = 182
      Width = 4
      Height = 16
      Caption = ']'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 270
      Top = 182
      Width = 3
      Height = 16
      Caption = ';'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label14: TLabel
      Left = 165
      Top = 48
      Width = 91
      Height = 16
      Caption = #1062#1074#1077#1090' '#1075#1088#1072#1092#1080#1082#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label15: TLabel
      Left = 89
      Top = 129
      Width = 160
      Height = 16
      Caption = #1058#1086#1083#1097#1080#1085#1072' '#1083#1080#1085#1080#1081' '#1075#1088#1072#1092#1080#1082#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 146
      Top = 286
      Width = 99
      Height = 16
      Caption = #1056#1072#1079#1084#1077#1088' '#1103#1095#1077#1081#1082#1080
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label17: TLabel
      Left = 46
      Top = 49
      Width = 69
      Height = 16
      Caption = #1062#1074#1077#1090' '#1086#1089#1080' Z'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Edit7: TEdit
      Left = 256
      Top = 100
      Width = 33
      Height = 21
      TabOrder = 0
      Text = '2'
      OnKeyPress = Edit7KeyPress
    end
    object Edit6: TEdit
      Left = 256
      Top = 76
      Width = 33
      Height = 21
      TabOrder = 1
      Text = '1'
      OnKeyPress = Edit6KeyPress
    end
    object Edit2: TEdit
      Left = 128
      Top = 12
      Width = 25
      Height = 21
      Color = clRed
      ReadOnly = True
      TabOrder = 2
      OnClick = Edit2Click
    end
    object Edit5: TEdit
      Left = 264
      Top = 12
      Width = 25
      Height = 21
      Color = clBlue
      ReadOnly = True
      TabOrder = 3
      OnClick = Edit5Click
    end
    object Button2: TButton
      Left = 8
      Top = 312
      Width = 105
      Height = 25
      Caption = #1057#1077#1090#1082#1072' '#1082#1086#1086#1088#1076#1080#1085#1072#1090
      TabOrder = 4
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 208
      Top = 312
      Width = 105
      Height = 25
      Caption = #1054#1090#1095#1080#1089#1090#1080#1090#1100
      TabOrder = 5
      OnClick = Button3Click
    end
    object Edit3: TEdit
      Left = 237
      Top = 155
      Width = 28
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      Text = '-5'
      OnKeyPress = Edit3KeyPress
    end
    object Edit4: TEdit
      Left = 276
      Top = 155
      Width = 29
      Height = 21
      TabOrder = 7
      Text = '5'
      OnKeyPress = Edit4KeyPress
    end
    object Edit8: TEdit
      Left = 237
      Top = 179
      Width = 28
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      Text = '-5'
      OnKeyPress = Edit8KeyPress
    end
    object Edit9: TEdit
      Left = 276
      Top = 179
      Width = 29
      Height = 21
      TabOrder = 9
      Text = '5'
      OnKeyPress = Edit9KeyPress
    end
    object Edit10: TEdit
      Left = 264
      Top = 44
      Width = 25
      Height = 21
      Color = clMaroon
      ReadOnly = True
      TabOrder = 10
      OnClick = Edit10Click
    end
    object Edit11: TEdit
      Left = 256
      Top = 124
      Width = 33
      Height = 21
      TabOrder = 11
      Text = '1'
      OnKeyPress = Edit11KeyPress
    end
    object LabeledEdit1: TLabeledEdit
      Left = 16
      Top = 240
      Width = 65
      Height = 21
      EditLabel.Width = 60
      EditLabel.Height = 13
      EditLabel.Caption = #1059#1075#1086#1083' '#1072#1083#1100#1092#1072
      TabOrder = 12
      Text = '30'
      OnKeyPress = LabeledEdit1KeyPress
    end
    object LabeledEdit2: TLabeledEdit
      Left = 104
      Top = 240
      Width = 57
      Height = 21
      EditLabel.Width = 56
      EditLabel.Height = 13
      EditLabel.Caption = #1059#1075#1086#1083' '#1073#1077#1090#1090#1072
      TabOrder = 13
      Text = '30'
      OnKeyPress = LabeledEdit2KeyPress
    end
    object LabeledEdit3: TLabeledEdit
      Left = 184
      Top = 240
      Width = 65
      Height = 21
      EditLabel.Width = 61
      EditLabel.Height = 13
      EditLabel.Caption = #1059#1075#1086#1083' '#1075#1072#1084#1084#1072
      TabOrder = 14
      Text = '30'
      OnKeyPress = LabeledEdit3KeyPress
    end
    object LabeledEdit4: TLabeledEdit
      Left = 16
      Top = 280
      Width = 121
      Height = 21
      EditLabel.Width = 60
      EditLabel.Height = 13
      EditLabel.Caption = #1052#1072#1089#1096#1090#1072#1073', %'
      TabOrder = 15
      Text = '100'
      OnKeyPress = LabeledEdit4KeyPress
    end
    object Edit1: TEdit
      Left = 248
      Top = 280
      Width = 33
      Height = 21
      TabOrder = 16
      Text = '20'
      OnKeyPress = Edit1KeyPress
    end
    object UpDown1: TUpDown
      Left = 81
      Top = 240
      Width = 16
      Height = 21
      Associate = LabeledEdit1
      Max = 360
      Position = 30
      TabOrder = 17
      Wrap = True
      OnChanging = UpDown1Changing
    end
    object UpDown2: TUpDown
      Left = 161
      Top = 240
      Width = 16
      Height = 21
      Associate = LabeledEdit2
      Max = 360
      Position = 30
      TabOrder = 18
      Wrap = True
      OnChanging = UpDown2Changing
    end
    object UpDown3: TUpDown
      Left = 249
      Top = 240
      Width = 16
      Height = 21
      Associate = LabeledEdit3
      Max = 360
      Position = 30
      TabOrder = 19
      Wrap = True
      OnChanging = UpDown3Changing
    end
    object Edit13: TEdit
      Left = 128
      Top = 44
      Width = 25
      Height = 21
      Color = clGreen
      ReadOnly = True
      TabOrder = 20
      OnClick = Edit13Click
    end
  end
  object ColorDialog1: TColorDialog
    Left = 608
    Top = 576
  end
end

2. построение изолиний. передвижение осей
ситуация аналогична - ступор в одной части.
необходимо сделать так, чтобы оси двигались при помощи мыши вместе со всем графиком.
скрин:

object Form1: TForm1
  Left = 401
  Top = 47
  Width = 384
  Height = 581
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 280
    Top = 40
    Width = 12
    Height = 13
    Caption = 'b='
  end
  object Label2: TLabel
    Left = 224
    Top = 40
    Width = 12
    Height = 13
    Caption = 'a='
  end
  object Label5: TLabel
    Left = 192
    Top = 16
    Width = 90
    Height = 13
    Caption = #1082#1086#1083'-'#1074#1086' '#1088#1072#1079#1073#1080#1077#1085#1080#1081
  end
  object Image1: TImage
    Left = 8
    Top = 184
    Width = 350
    Height = 350
  end
  object Label4: TLabel
    Left = 224
    Top = 64
    Width = 12
    Height = 13
    Caption = 'c='
  end
  object Label6: TLabel
    Left = 280
    Top = 64
    Width = 12
    Height = 13
    Caption = 'd='
  end
  object Label3: TLabel
    Left = 192
    Top = 40
    Width = 22
    Height = 13
    Caption = #1087#1086' X'
  end
  object Label7: TLabel
    Left = 192
    Top = 64
    Width = 22
    Height = 13
    Caption = #1087#1086' Y'
  end
  object Button1: TButton
    Left = 200
    Top = 144
    Width = 75
    Height = 25
    Caption = 'OK'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 296
    Top = 40
    Width = 33
    Height = 21
    TabOrder = 1
    Text = '7'
    OnChange = Button1Click
  end
  object Edit2: TEdit
    Left = 240
    Top = 40
    Width = 33
    Height = 21
    TabOrder = 2
    Text = '-7'
    OnChange = Button1Click
  end
  object Edit5: TEdit
    Left = 288
    Top = 16
    Width = 41
    Height = 21
    TabOrder = 3
    Text = '100'
    OnChange = Button1Click
  end
  object CheckBox1: TCheckBox
    Left = 200
    Top = 120
    Width = 97
    Height = 17
    Caption = #1086#1089#1080' '#1082#1086#1086#1088#1076#1080#1085#1072#1090
    Checked = True
    State = cbChecked
    TabOrder = 4
  end
  object CheckBox2: TCheckBox
    Left = 200
    Top = 96
    Width = 129
    Height = 17
    Caption = #1082#1086#1086#1088#1076#1080#1085#1072#1090#1085#1072#1103' '#1089#1077#1090#1082#1072
    TabOrder = 5
  end
  object LabeledEdit1: TLabeledEdit
    Left = 8
    Top = 136
    Width = 121
    Height = 21
    EditLabel.Width = 64
    EditLabel.Height = 13
    EditLabel.Caption = #1087#1072#1088#1072#1084#1077#1090#1088' k='
    TabOrder = 6
    Text = '1'
    OnChange = Button1Click
  end
  object Edit3: TEdit
    Left = 240
    Top = 64
    Width = 33
    Height = 21
    TabOrder = 7
    Text = '-7'
    OnChange = Button1Click
  end
  object Edit4: TEdit
    Left = 296
    Top = 64
    Width = 33
    Height = 21
    TabOrder = 8
    Text = '7'
    OnChange = Button1Click
  end
  object LabeledEdit2: TLabeledEdit
    Left = 8
    Top = 96
    Width = 113
    Height = 21
    EditLabel.Width = 109
    EditLabel.Height = 13
    EditLabel.Caption = #1082#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1080#1079#1086#1083#1080#1085#1080#1081
    TabOrder = 9
    Text = '3'
    OnChange = Button1Click
  end
  object RadioGroup1: TRadioGroup
    Left = 8
    Top = 8
    Width = 161
    Height = 73
    Caption = #1092#1091#1085#1082#1094#1080#1103
    Items.Strings = (
      'z=k*x^3+y*k^3'
      'z=k*(x*y^2-x^2)'
      'z=k*cos(x)+k*sin(x)')
    TabOrder = 10
    OnClick = Button1Click
  end
end

помогите пожалуйста, хотя бы идеями.

@темы: Вопрос, Delphi