[crazyman]

Есть Jvlabel текст расположен под углом, есть тень текста. Возможно ли считать пиксели Jvlabel, чтобы разместить в Image?
Пробовал так

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
image4.Width:=Jvlabel1.Width-3;
image4.Height:=Jvlabel1.Height-2;
image4.Canvas.Font:=JvLabel1.Font;
Image4.Canvas.TextOut(0, 0, form1.JvLabel1.Caption);
end;

Cам понимаю что считываю именно текст, а не пиксели и загоняю в Image.
А нужна тень и угол наклона.

[crazyman]

Сделал так

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
image4.Width:=Jvlabel1.Width-3;
image4.Height:=Jvlabel1.Height-2;
image4.Canvas.Font:=JvLabel1.Font;
Image4.Canvas.CopyRect(Rect(0, 0, image4.Width, image4.Height),Jvlabel1.Canvas,Rect(0, 0, image4.Width, image4.Height));
end;

но так как JvLabel прозрачный, то в Image попадает то что за JvLabel.

[lmikle]

а посмотри, не ли метода PaintTo у компонента. Если есть, то используй его для отрисовки на соотв. канве...

[crazyman]

К сожалению нет

[dr. F.I.N.]

Иерархия такая: TGraphicControl -> TJvGraphicControl -> TJvlabel
Следовательно TJvlabel не имеет метода PaintTo (данный метод реализован у наследников TWinControl).
Однако, TGraphicControl может обрабатывать сообщения, следовательно можно отправить ему WM_PAINT и подсунуть нужный канвас (HDC).
Напрямую отрисовать на TImage у меня не получилось, но с временным битмапом отрабатывает на ура:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create; // создаем временный битмап
  bmp.Assign(Image1.Picture); // загружаем в него содержимое TImage
  MoveWindowOrg(bmp.Canvas.Handle, 120, 30);  // устанавливаем X и Y отрисовки напдписи
  Label1.Perform(WM_PAINT, bmp.Canvas.Handle, 0); // отрисовываем надпись
  image1.Picture.Assign(bmp); // загружаем в TImage содержимое временного битмапа
  bmp.Free;  // уничтожаем временный битмап
end;

У меня не установлен TJvlabel, в примере отрисовка кастомного TLabel.

Собственно, это что-то примитивной реализации метода PaintTo для TGraphicControl, который можно доработать под себя.

[crazyman]

у меня не работает Ваш пример с обычным Label
Ошибка Cannot assign a Tpicture to a Tbitmap

[crazyman]

поместил на имадж бмп картинку, после буттон клик появляется точка на картинке

[crazyman]

Сообщение от dr. F.I.N.

Иерархия такая: TGraphicControl -> TJvGraphicControl -> TJvlabel
Следовательно TJvlabel не имеет метода PaintTo (данный метод реализован у наследников TWinControl).
Однако, TGraphicControl может обрабатывать сообщения, следовательно можно отправить ему WM_PAINT и подсунуть нужный канвас (HDC).
Напрямую отрисовать на TImage у меня не получилось, но с временным битмапом отрабатывает на ура:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create; // создаем временный битмап
  bmp.Assign(Image1.Picture); // загружаем в него содержимое TImage
  MoveWindowOrg(bmp.Canvas.Handle, 120, 30);  // устанавливаем X и Y отрисовки напдписи
  Label1.Perform(WM_PAINT, bmp.Canvas.Handle, 0); // отрисовываем надпись
  image1.Picture.Assign(bmp); // загружаем в TImage содержимое временного битмапа
  bmp.Free;  // уничтожаем временный битмап
end;

У меня не установлен TJvlabel, в примере отрисовка кастомного TLabel.

Собственно, это что-то примитивной реализации метода PaintTo для TGraphicControl, который можно доработать под себя.

заработало, только размер текста лайбл не пропорционален перерисованному

[crazyman]

размеры разные, но я думаю решу этот вопрос, спасибо

[dr. F.I.N.]

Выкладываю тестовый проект.

[dr. F.I.N.]

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

размеры разные, но я думаю решу этот вопрос, спасибо

Возможно у Image установлено свойство Stratched в True. Тогда картинка растягивается. У меня такого эффекта нет.

[crazyman]

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

размеры разные, но я думаю решу этот вопрос, спасибо

Разобрался, если у Image proportional:=true, тогда размер перерисованного Label уменьшается. Отсюда вопрос. Можно ли сохранить пропорции перерисованного Label в Image c proportional:=true?

[crazyman]

Сообщение от dr. F.I.N.

Возможно у Image установлено свойство Stratched в True. Тогда картинка растягивается. У меня такого эффекта нет.

Разобрался, если у Image proportional:=true, тогда размер перерисованного Label уменьшается. Отсюда вопрос. Можно ли сохранить пропорции перерисованного Label в Image c proportional:=true?

[dr. F.I.N.]

ну намудрить можно что угодно. вопрос - стоит ли оно того?
Если с этим не заморачиваться, то я бы привел изображение в Image сразу к нужному масштабу и пропорции. Тогда не придется мудрить с дополнительными преобразованиями.

[crazyman]

Сообщение от dr. F.I.N.

ну намудрить можно что угодно. вопрос - стоит ли оно того?
Если с этим не заморачиваться, то я бы привел изображение в Image сразу к нужному масштабу и пропорции. Тогда не придется мудрить с дополнительными преобразованиями.

Да но картинка большая и в реальном размере не поместится на форму. Тем не менее спасибо, буду мудрить)