Delphi-дің қолданылуы мен тағайындалуы

    iNight := Node.ChildNodes[i].Attributes['night']; 

    if i mod 2 = 0 then

      CreatePanel(sGorod, iDay, iNight, clWhite, i)

    else

      CreatePanel(sGorod, iDay, iNight, $E6E6E6, i);

  end;

end;

(*==============================================================================

Получение фокуса полем ввода *)

procedure TForm1.EditEnter(Sender: TObject);

var

  Edit: TEdit;

  btn : TButton;

  s: String;

begin

  Edit := TEdit(Sender);

  s := Edit.Text;

  s := copy(s, 1, Pos(' ', s) - 1);

  Edit.Text := s;

  Edit.SelStart := Length(s); 

  btn := TButton(FindComponent('btn' + IntToStr(Edit.Tag)));

  btn.Visible := True;

end;

(*==============================================================================

Потеря фокуса поля ввода *)

procedure TForm1.EditExit(Sender: TObject);

var

  Edit : TEdit;

  btn  : TButton;

  Index: Integer;

  s    : String;

begin

  Edit := TEdit(Sender);

  if Edit.Text = '' then exit;

 

  if Pos(' °С', Edit.Text) = 0 then

    Edit.Text := Edit.Text + ' °С';

  btn := TButton(FindComponent('btn' + IntToStr(Edit.Tag)));

  btn.Visible := False; 

  s := copy(Edit.Text, 1, Pos(' ', Edit.Text) - 1);

  Index := TPanel(btn.Parent).Tag;

if Index = btn.Tag * 2 then

    XMLDocument1.DocumentElement.ChildNodes[Index].SetAttributeNS('day', '', s)

  else

    XMLDocument1.DocumentElement.ChildNodes[Index].SetAttributeNS('night', '', s);

XMLDocument1.SaveToFile;

end;

(*==============================================================================

Запрещаем вводить  ненужные символы *)

procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);

var

  s   : String;  btn : TButton;

begin

  if Key = #8 then exit;

  if Key = #13 then

  begin

    if TEdit(Sender).Text = '' then exit;

    btn := TButton(FindComponent('btn' + IntToStr(TEdit(Sender).Tag)));

    btn.SetFocus;

    exit;

  end;

      s := TEdit(Sender).Text;

  if s = '' then

  begin

    if not (Key in ['+', '-', '0']) then

      Key := #0;

  end

else if (s = '0') or

       ((Key = '0') and (Length(s) = 1)) or

       (not (Key in ['0'..'9'])) then

    Key := #0;

end;

(*==============================================================================

Запрещаем перемещать каретку клавишами *)

procedure TForm1.EditKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

  if (Key = VK_LEFT) or (Key = VK_RIGHT) then

    Key := 0;

end;

(*==============================================================================

Запрещаем перемещать каретку мышкой *)

procedure TForm1.EditMouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  TEdit(Sender).SelStart := Length(TEdit(Sender).Text);

end;

(*==============================================================================

Вождение мышью  по карте *)

procedure TForm1.mapMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

var

  Node          : IXMLNode;

  i, L, T, R, B : Integer;  s : String;

begin

  Node := XMLDocument1.DocumentElement;

  for i := 0 to Node.ChildNodes.Count - 1 do

  begin

    L := Node.ChildNodes[i].ChildNodes['coords'].GetAttributeNS('left', '');

    T := Node.ChildNodes[i].ChildNodes['coords'].GetAttributeNS('top', '');

    R := Node.ChildNodes[i].ChildNodes['coords'].GetAttributeNS('right', '');

    B := Node.ChildNodes[i].ChildNodes['coords'].GetAttributeNS('bottom', '');

  if (L < X) and (X < R) and (T < Y) and (Y < B) then

    begin

//      Canvas.Brush.Style := bsClear;

//      Canvas.Rectangle(Rect(map.Left + L, map.Top + T, map.Left + R, map.Top + B));

      s := Node.ChildNodes[i].GetAttributeNS('name', '');

     Panel1.Color := clWhite;

      LabelGorod.Font.Color := clBlack;

      LabelGorod.Font.Size := 14;

      LabelGorod.Caption := s;

     if s = 'Астана' then

      begin

        Panel1.Color := $FFFFCA;

        LabelGorod.Font.Color := clRed;

        LabelGorod.Font.Size := 20;

      end;

      L := (Panel1.Width - LabelGorod.Width) div 2;

      LabelGorod.Left    := L;

      LabelDay.Caption   := Node.ChildNodes[i].GetAttributeNS('day', '') + ' °С';

      LabelNight.Caption := Node.ChildNodes[i].GetAttributeNS('night', '') + ' °С';

     Panel1.Left := map.Left + X - Panel1.Width div 2;

      Panel1.Top  := map.Top  + Y - Panel1.Height - 20;

      Panel1.Visible := True;

      exit;

    end;

  end;

  Panel1.Visible := False;

end;

end.