Где расположить пиксель?

[Аватар]

Да! Круто_Раз и кнопка на форме!

Ага. С кнопкобросания все начинают. Прикинь, можно на форме паркет из кнопок сделать. И каждая свой пиксель раскрашивает

[Dimka-novitsek]

Значит напишу какой-то цикл. Вот думаю как переменную обьявить.

[Аватар]

Вставь вместо рисования точки

  Canvas.Brush.Style:=bsCross;
  Canvas.Brush.Color:=clRed;
  Canvas.Pen.Color:=clRed;
  Canvas.Ellipse(100,100,300,200);

[Dimka-novitsek]

Круто! Спасибо!!!

[Dimka-novitsek]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function F(x:real; var Xmax,Xmin,Ymax,Ymin:real):real;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 begin
  Canvas.Pixels[10,20]:=clBlack;
  function Tform1.F(x:real; var Xmax,Xmin,Ymax,Ymin:real):real;
begin
F:=Sin(x);
Xmax:=4*pi;
Xmin:=0;
Ymax:=1;
Ymin:=-1;
end;

end;

end.

Ошибка Statement expected but "FUNCTION" found
и тюп

[Stilet]

А так писать не ль зя.
может тебе стоит почитать о основах написания функций в паскале и методах в ООП паскаля?

[Dimka-novitsek]

Можно ли два раза слово begin? И где ещо что обьявить?

Да нет, это долго и не так прикольно.

Canvas.Ellipse(100,100,300,200);
Канвас эллипсе- чертит эллипс, с координатами. Но непнятно, каким образом образуется связь эллипса и остальных команд- что решотка внутри а не сбоку или всюду, да и сам эллипс кажется покрасился!

[Stilet]

Да нет, это долго и не так прикольно.

Очень жаль. А стоило бы.

[Dimka-novitsek]

А где что бы не два тома читать, а так- раз лист, два лист и рисуеш?

[Аватар]

Да нет, это долго и не так прикольно.

Тогда и останешься кнопкобросателем начинающим и не более того

  Canvas.Brush.Style:=bsCross;  //задаем стиль заполнения внутренностей эллипса
  Canvas.Brush.Color:=clRed;  //задаем цвет заполнения внутренностей эллипса
  Canvas.Pen.Color:=clRed; //задаем цвет границы эллипса
  Canvas.Ellipse(100,100,300,200); //рисуем согласно заданным параметрам

А где что бы не два тома читать

Размечтался. Читать гораздо больше и всю оставшуюся жизнь. Испугал?