[Elena13]

Здравствуйте, помогите пожалуйста!
У меня есть 2 формы: на первой лежит кнопка, с помощью которой создается круглая форма, image пустой и PopupMenu; на второй RadioButton, при нажатии на который, на первой форме в image должна загружаться картинка и чтоб эту картинку можно было редактировать(цвет, размер, прозрачность).
Написала:

Код:

 procedure TForm2.RadioButton1Click(Sender: TObject);
 begin
 if RadioButton1.Checked then
 Form1.Image1.Picture.Bitmap.LoadFro mFile ('D:\2\Image1.bmp');
 end;

Админ: Пользуемся тегами для оформления кода!

Но так с картинкой ничего сделать не получается. Помогите исправить ошибку

[lmikle]

1. Можно узнать, как соотносится название темы и ее содержание?
2. Относительно вопроса в названии темы. Обычно это делается с помощью WinAPI функций, определяющих регионы. Что-то типа:

Код:

  SetWindowRgn(Handle,
               CreateRoundRectRgn(0,0,ClientWidth,ClientHeight,8,8),
               True);

3. По поводу вопроса в содержимом топика. Тут менять надо прокладку (Гусары, молчать!!!). Первая ошибка - загрузка изображения в Picture.Bitmap, а не в Picture. Далее, для редактирования картинки надо выполнить преобразование над данными этой картинки, а потом уже обратно загрузить ее в Image. Кстати, преобразования - это отдельная тема. Например, код может выглядеть примерно так:

Код:

var
  Bmp : TBitmap;

procedure TForm1.LoadImage(AFileName : String);
begin
  Bmp.LoadFromFile(AFileName);
  Image1.Picture.Bitmap.Assign(Bmp);
  Image1.Picture.Graphic := Image1.Picture.Bitmap;
end;

procedure TForm1.EditBitmap;
var
  tmp : TBitmap;
begin
  tmp := TBitmap.Create;
  Try
    // Здесь происходит построение карьинки в tmp из Bmp
    ...
    // А теперь загружаем результат в Image
    Image1.Picture.Bitmap.Assign(tmp);
  Finally
    tmp.Free;
  end;
end;