Прозрачный компонент Panel с границей

[Lorden]

Добрый день!
Подскажите пожалуйста возможно ли сделать компонент Panel на 40% (либо на 100%) прозрачным и чтобы вокруг него была красная граница?

[Toxa]

а может панель вовсе не нужна, если подходит прозрачность 100%?
а красную границу можно самому нарисовать

self.canvas.pen.color := clred;
self.canvas.rectangle(10,10,100,100);

[beegl]

в tms component pack есть .. AdvPanel

[Lorden]

Благодарю за ответ!
У меня в программе есть компонент Image в него загружено изображение. При нажатии на кнопку "Сделать скрин" в компонент Image2 загружается выделенная область Image1.
Я хочу чтобы положение области выделения можно было менять.
В качестве области выделения думаю взять прозрачный компонент Panel с красной границей вокруг него. Компонент Panel беру из-за того что хочу делать скриншоты непосредственно по координатам данного компонента (Высота-Ширина скрина).
Прошу прощения если нечетко изложил свою мысль.


Если имеется альтернатива решению которое выбрал я поделитесь пожалуйста=)

[Аватар]

Возьми прозрачный имэдж с красной границей и не морочь голову с прозрачной панелью

[Lorden]

Сообщение от Аватар

Возьми прозрачный имэдж с красной границей и не морочь голову с прозрачной панелью

Прошу прощения за глупый вопрос, а как сделать Image границу в 1 пиксель?
Область выделения для снимка у меня должна становится шири\уже так и выше\ниже

[min@y™]

Прошу прощения за глупый вопрос, а как сделать Image границу в 1 пиксель?

Нарисовать! А ещё лучше - не TImage, а TPaintBox. Да с возможностью ресайзинга. Шикарно.

[IliaIT]

а объекты TShape чем не подошли? хоть защтрихуй внутри, хоть обводку сделай, хоть рамку потолще, и всё программно в 2-3 свойства ставится. даже авто инверт можно поставить в что бы видно было что выделяешь если с рамкой не мудрить.

[Аватар]

Да, пожалуй Shape наиболее удобно. Для такой цели даже TBevel можно приспособить, переопределяя его прорисовку

[Lorden]

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

а объекты TShape чем не подошли? хоть защтрихуй внутри, хоть обводку сделай, хоть рамку потолще, и всё программно в 2-3 свойства ставится. даже авто инверт можно поставить в что бы видно было что выделяешь если с рамкой не мудрить.

Компонентом Shape не разу не пользовался, он для меня подходит в данной ситуации на 100% но в коде для снятия скриншота выдает ошибку.

var bm: TBitMap;
    w, h: integer;
begin
   w:=Shape1.Width;
   h:=Shape1.Height;
   bm:=TBitMap.Create;
   bm.Width:=w;
   bm.Height:=h;
   BitBlt(bm.Canvas.Handle,0,0,w,h,GetDC(Shape1.Handle),0,0,SrcCopy);
   bm.SaveToFile('2.bmp');
   bm.Free;
   Image2.Picture.LoadFromFile('2.bmp');

Прошу прощения за наглость, но как это возможно исправить?