Нужно «замостить» TImage маленьким изображением.

(читать всё…)

Возникла необходимость рисовать на картинке в компоненте TImage.
У Image1 установлено свойство Stretch и Proportional в true.

На пустом компоненте рисуется без проблем в том месте где проходит курсор мыши следующим образом:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  with Image1.Canvas do begin
   Pen.Color:= clNavy;
   Pen.Width:= 10;
   MoveTo(X, Y);
 end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then Image1.Canvas.LineTo(X, Y);
end;

Проблема возникает тогда, когда в компонент Image1 загружается какая-то картинка, реальный размер которой не равен размеру Image1. Благодаря установленным свойствам она подгоняется под размеры компонента, но при этом линии перестают рисоваться в том месте где находится курсор и той толщиной, которая была установлена. К примеру рисую в центре Image, а на картинке рисуется сбоку.

(читать всё…)

На форме есть объект (пускай Image1). В данный момент на канвасе рисуется картинка. Нужно, чтобы при наведении мыши изображение плавно появлялось, а при отведении — плавно исчезало.

(читать всё…)

Как на компоненте TImage разместить изображение с указанием начальной позиции (x,y) отрисовки?

(читать всё…)

Есть написанный браузер. Получаю картинку с яндекса через Ole в delphi 7. Подскажите, как мне ее отправить в Image1.Picture? (читать всё…)

Есть 2 картинки: img1 и img2 (не совпадающих размеров), как склеить их в одну, например по горизонтали? (читать всё…)

firmwares

Как можно сделать ТImage круглым?
Или как можно сохранять из ТImage круглое изображение?

(читать всё…)

Как динамически создать TImage? (читать всё…)

На форме есть объект (пускай Image1). В данный момент на канвасе рисуется картинка. Нужно, чтобы при наведении мыши изображение плавно появлялось, а при отведении — плавно исчезало. (читать всё…)

SERG1980

Можно ли в Image сделать невидимыми сразу несколько цветов, а то св-во transparent убирает только один цвет?

(читать всё…)