1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

Тема в разделе "Delphi - программирование", создана пользователем Dimkawshm, 3 июн 2014.

  1. Dimkawshm

    Dimkawshm Member

    Репутация:
    0
    Регистрация:
    2 июн 2014
    Сообщения:
    10
    Симпатии:
    0
    Доброго дня! Написано На примере ниже мы зададим черный цвет пикселю с координатами (10,20):
    PHP:
    Canvas.Pixels[10,20]:=clBlack;
    Дельфи уже сгенирировала код. Где на нем расположить пиксель?
    PHP:
    unit Unit1

    interface 

    uses 
    Windows
    MessagesSysUtilsVariantsClassesGraphicsControlsForms
    Dialogs

    type 
    TForm1 
    = class(TForm
    private 
    { Private 
    declarations 
    public 
    { Public 
    declarations 
    end

    var 
    Form1TForm1

    implementation 

    {$R *.dfm

    end.
     
  2. Vadik(R)

    Vadik(R) Well-Known Member

    Репутация:
    0
    Регистрация:
    12 дек 2007
    Сообщения:
    469
    Симпатии:
    0
    Придумать либо обработчик события - к примеру, поместить на форму кнопку и сделать действие по нажатию на неё (событие OnFormCreate - не прокатит, результата не увидишь), и там уже задать внутри него пиксель:
    Код:
    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 }
    end;
    
    var
    Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    Canvas.Pixels[10, 20] := clBlack;
    end;
    
    end.
     
Загрузка...

Поделиться этой страницей