Не могу рисовать в Image (Delphi)

[zaira001002]

Вот мне нужно поставить точку допустим, при вводе координатX и Y в Edits, написала, как вижу неправильно, не могу разобраться где моя ошибка или надо совсем иначе это делать?

  with Image1.Canvas do
  begin
  Brush.Color := clBlack;
  MoveTo(StrToInt(EditCoordinatePointX.Text),StrToInt(EditCoordinatePointY.Text));
  LineTo(StrToInt(EditCoordinatePointX.Text),StrToInt(EditCoordinatePointY.Text));
  end;

[BDA]

Image1.Canvas.Pixels[10, 10] := clblack;

[type_Oleg]

zaira001002, вы рисуете линию из точки A в точку ... тоже A.
Линия - вот так например.

with Image1.Canvas do
  begin
  Brush.Color := clBlack; // хотя это ничего не дает ***
  MoveTo(10,10);
  LineTo(50,50);
  end;

*** Brush здесь не причем. Цвет линии задается Pen.Color. А Brush - цвет заливки Rectangle, Ellipse.

PS. А .. , только сейчас заметил, что надо точку.
Тогда, как в #2
А если жирную точку, то так

with Image1.Canvas do
  begin
   Canvas.Pen.Color:=clBlack;
   Canvas.Rectangle(9,9,11,11);
  end;

[zaira001002]

А что-то еще надо записать в Image? Просто я сделала и так, и так, но у меня не видно точки (((:

procedure TForm2.ButtonAddPointClick(Sender: TObject);
var
 // StringEdit: string;
  SL: TStringList;
  S: String;
  I: Integer;
  Num: Boolean;
begin
  if Num = False then
  begin
  // Проверка на ввод всех неохбходимых данных
  if (EditCoordinatePointX.Text='') or (EditCoordinatePointY.Text='')then
      ShowMessage('Введены не все данные');

  for I := 0 to ListboxCoordinatesPoints.items.Count - 1 do
  begin
    S:= ListboxCoordinatesPoints.Items.Strings[I];
    Delete(S,1,2);
    ListboxCoordinatesPoints.Items.Strings[I]:=S;
    //:=IntTostr(I+1)+'.'+ListboxCoordinatesPoints.Items.Strings[I];
  end;

  // Добавляем координаты в ListBoxCoordinatesPoints
  S:='X: '+EditCoordinatePointX.Text +'; Y: '+ EditCoordinatePointY.Text;
  // Добавляем строку в компонент ListBox
  ListBoxCoordinatesPoints.Items.Add(S);

  // Проверка на повтор ввода одной точки дважды
  SL:=TStringList.Create; // Создаём список строк типа TStringList
  SL.Sorted:=True; // Устанавливаем свойство - сортировать строки
  SL.Duplicates:=dupIgnore; // Устанавливаем свойство - дубликаты вызывают ошибку добавления
  Sl.AddStrings(ListBoxCoordinatesPoints.Items);
  ListboxCoordinatesPoints.Items := Sl;
  Sl.Free;

  //Добавление точки в график Image
  with Image1.Canvas do
  begin
  Canvas.Pen.Color := clBlack;
  //MoveTo(StrToInt(EditCoordinatePointX.Text),StrToInt(EditCoordinatePointY.Text));
  //LineTo(StrToInt(EditCoordinatePointX.Text),StrToInt(EditCoordinatePointY.Text));
  //Canvas.Rectangle(9,9,11,11);
  Canvas.Pixels[StrToInt(EditCoordinatePointX.Text),StrToInt(EditCoordinatePointY.Text)];
  end;
  for I := 0 to ListboxCoordinatesPoints.items.Count - 1 do
  begin
    ListboxCoordinatesPoints.Items.Strings[I]:=IntTostr(I+1)+'.'+ListboxCoordinatesPoints.Items.Strings[I];
  end;
  Num := True;
  end;
  end;

[BDA]

Image1.Canvas.Pixels[StrToInt(EditCoordinatePointX.Text),StrToInt(EditCoordinatePointY.Text)] := clBlack;

[zaira001002]

Ладно))) Это все правильно) Ну а точки все не видно и не видно)))))или она настолько мала ) что я ее не вижу, или она теряется где-то за гранью выделенного пространства TImage)?Надо будет какие -то ограничения установить?)))

[zaira001002]

ВСЕ))))) Я сделала))) Спасибо большоееее)))))