Компонент Radiogroup

Тема в разделе "Delphi - Multimedia, Графика, Игры", создана пользователем Lelik, 9 ноя 2007.

Статус темы:
Закрыта.
  1. Lelik

    Lelik Гость

    Помогите пожалуйста!!! дали такое вот задание:
    Создать приложение позволяющие выбирать из компонента Radiogroup1
    тип рисуемой фигуры (эллипс,верхний треугольник,нижний треугольник),а из компонента RadioGroup2 цвет закраски (Синий,желтый) и рисовать в компоненте Image выбранную фигуру.
    Я че мог сделал а дальше немогу :huh:

    unit Unit1;
    interface
    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, ExtCtrls;
    type
    TForm1 = class(TForm)
    Image1: TImage;
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    RadioGroup2: TRadioGroup;
    procedure RadioGroup2Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    private
    public
    end;
    var
    Form1: TForm1;
    implementation
    {$R *.dfm}

    procedure TForm1.RadioGroup2Click(Sender: TObject);
    begin
    case RadioGroup2.ItemIndex of
    0:Image1.Canvas.Ellipse (0,100,Image1.ClientWidth,Image1.ClientHeight);
    1:Image1.Canvas.Polygon([Point(0,0),Point(210,210),Point(210,0)]);
    2:Image1.Canvas.Polygon([Point(0,0),Point(210,210),Point(0,210)]);
    end;
    end;

    procedure TForm1.RadioGroup1Click(Sender: TObject);
    begin
    case RadioGroup1.ItemIndex of
    0 : Image1.Canvas.Brush.Color:=clBlue;
    1 : Image1.Canvas.Brush.Color:=clYellow;
    end;
    end;

    end.
     
  2. Mr_Duke

    Mr_Duke Гость

    Объедените все в одну процедуру (например при нажатии кнопки) в такой последовательности:
    1.Встасте этот текст:
    Form1.Image1.Canvas.Brush.Color := clwhite;
    Form1.Image1.Canvas.Rectangle(0, 0, form1.Image1.ClientWidth, form1.Image1.ClientHeight);
    2.Установка цвета.
    3.Рисование фигуры.
     
  3. Lelik

    Lelik Гость

    не прокатит, сперва надо выбрать какая фигура бут рисоватся, а при выборе цвета она рисуется
     
  4. Lelik

    Lelik Гость

    Вусе заработало
     
Загрузка...
Статус темы:
Закрыта.

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