Увеличение ширины Image без растягивания рисунка

[artemavd]

Я один из них уже показывал (ссылку не помню) там картинка кидалась на подформу, которую можно было растягивать.

Как найти-то ее ссылку на этом форуме?)

А нужен то какой?

Нужен, чтобы ширина Image "обрезалась" до размеров картинки.

[SERG1980]

Откуда берёте эти картинки или как создаёте? Если не секрет покажите скрин проги и как вам нужно чтобы получилось.
Или при отрисовке картинки на канве имиджа в режиме "работы программы" она не умещается?

[artemavd]

Ладно, вот. На скрине "1" как сейчас. А на скрине "2" как надо.
Как сейчас:
1
Как надо:
2

Или при отрисовке картинки на канве имиджа в режиме "работы программы" она не умещается?

Да, картинка выходит за видимые границы имиджа. Поэтому и нужно либо имидж увеличивать, либо обрезать по размер картинки.

[SERG1980]

Вот теперь понятно. Если вы эти штрихи рисуете сами то должны знаеть ширину самих штрихов и расстояние между ними в пикселях, сумируйте всё это и выставите такую ширину у имиджа
или судя по рисункам

repeat
image1.Width:=image1.Width-1;
until image1.Canvas.Pixel[image1.Width,1]=clBlack;

[artemavd]

Я же написал в постах своих выше, что это не я рисую, а компонент создает эти штрихи. Поэтому никакой ширины штрихов я не знаю.

[SERG1980]

Хорошо компонент рисует штрихи и выдаёт их в виде какого то рисунка (например в формате бмп), который выгрузите в имидж?
Если так торазмеры этого рисунка вы можете узнать и подогнать размеры имиджа?

[artemavd]

У этого компонента в свойстве Image указывается имидж, на котором будут рисоваться штрихи. И все. В зависимости от вводимого значения, рисуются штрихи. К значению никак не прицепиться.

[SERG1980]

А можете этот компонент выложить или ссылку на него дать

[artemavd]

Отдельно выложить не могу, трафик не позволит. Ссылка: http://han-soft.com/down.php

[SERG1980]

только так у меня получилось при этом св-во имидж у баркода оставить пустым

procedure TForm1.BitBtn1Click(Sender: TObject);
 var bm:TBitMap;
begin
 bm:=tbitmap.Create;
 bm.Height:=50;
 bm.Width:=500;
 form1.Barcode_Codabar1.DrawTo(bm.Canvas,1,0,0,50,0,0,0);
 repeat
  bm.Width:=bm.Width-1;
 until bm.Canvas.Pixels[bm.Width-1,10]=clblack;
 image1.Width:=bm.Width;
 image1.Picture.Assign(bm);
 bm.Free;