Paint Delphi

[Катерина19]

Помогите доделать код

[Serge_Bliznykov]

а какая задачи, что надо сделать, доделать внутри архива написано?
Или нужно самому догадаться?!

[Катерина19]

Загружаю немного переделанную но,
1.когда при рисовании пытаюсь поменять размер(на 2 форме) программа зависает
2. Не могу сделать так чтобы заливка эллипса и квадрата была не белого цвета, а выбранного цвета

[Serge_Bliznykov]

Сообщение от Катерина19

2. Не могу сделать так чтобы заливка эллипса и квадрата была не белого цвета, а выбранного цвета

ну, попробуйте заменить код на такой:

    if btn7.Down then
    begin
      img1.picture.Assign(img2.picture);
      img1.Canvas.pen.Width := strtoint(edt1.text);
      Img1.Canvas.Brush.color := pnl3.color;
      img1.Canvas.Pen.color := pnl4.Color;
      if rb1.checked = true then
       img1.Canvas.Brush.Style := bsClear
      else
       img1.Canvas.Brush.Style := bsSolid;
      Img1.Canvas.ellipse(x,y,x1,y1);
    end;

    if btn8.Down then
    begin
      img1.picture.Assign(img2.picture);
      img1.Canvas.pen.Width := strtoint(edt1.text);
      Img1.Canvas.Brush.color := pnl3.color;
      img1.Canvas.Pen.color := pnl4.Color;
      if rb1.Checked = true then
       img1.Canvas.Brush.Style := bsClear
      else
       img1.Canvas.Brush.Style := bsSolid;
      img1.Canvas.Rectangle(x,y,x1,y1);
    end;

[Катерина19]

Сообщение от Serge_Bliznykov

ну, попробуйте заменить код на такой:

    if btn7.Down then
    begin
      img1.picture.Assign(img2.picture);
      img1.Canvas.pen.Width := strtoint(edt1.text);
      Img1.Canvas.Brush.color := pnl3.color;
      img1.Canvas.Pen.color := pnl4.Color;
      if rb1.checked = true then
       img1.Canvas.Brush.Style := bsClear
      else
       img1.Canvas.Brush.Style := bsSolid;
      Img1.Canvas.ellipse(x,y,x1,y1);
    end;

    if btn8.Down then
    begin
      img1.picture.Assign(img2.picture);
      img1.Canvas.pen.Width := strtoint(edt1.text);
      Img1.Canvas.Brush.color := pnl3.color;
      img1.Canvas.Pen.color := pnl4.Color;
      if rb1.Checked = true then
       img1.Canvas.Brush.Style := bsClear
      else
       img1.Canvas.Brush.Style := bsSolid;
      img1.Canvas.Rectangle(x,y,x1,y1);
    end;

Так ничего не меняется

[Serge_Bliznykov]

Сообщение от Катерина19

Так ничего не меняется

мда.. я же не просто так написал. я же проверил.

А Вы не забываете правой кнопкой мышки выбрать фоновый цвет другой (внизу, цвет отмеченный BG)?!
ex1.jpg

[Катерина19]

Сообщение от Serge_Bliznykov

мда.. я же не просто так написал. я же проверил.

А Вы не забываете правой кнопкой мышки выбрать фоновый цвет другой (внизу, цвет отмеченный BG)?!
Вложение 67406

___________________________________ ______________________________

Спасибо вы мне очень помогли!)

[Катерина19]

if btn7.Down then
begin
img1.picture.Assign(img2.picture);
img1.Canvas.pen.Width := strtoint(edt1.text);
Img1.Canvas.Brush.color := pnl3.color;
img1.Canvas.Pen.color := pnl4.Color;
if rb1.checked = true then
img1.Canvas.Brush.Style := bsClear
else
img1.Canvas.Brush.Style := bsSolid;
Img1.Canvas.ellipse(x,y,x1,y1);
end;

if btn8.Down then
begin
img1.picture.Assign(img2.picture);
img1.Canvas.pen.Width := strtoint(edt1.text);
Img1.Canvas.Brush.color := pnl3.color;
img1.Canvas.Pen.color := pnl4.Color;
if rb1.Checked = true then
img1.Canvas.Brush.Style := bsClear
else
img1.Canvas.Brush.Style := bsSolid;
img1.Canvas.Rectangle(x,y,x1,y1);
end;



Как сделать чтобы и контур и заливка были одного цвета???

[Аватар]

Как сделать чтобы и контур и заливка были одного цвета???

Img1.Canvas.Brush.color := pnl3.color;
img1.Canvas.Pen.color := pnl4.Color;

А зачем тогда разный цвет задаете?