Вниз
Скачать: CL | DM;

Как отрезать кусок изображения   Найти похожие ветки 

 
OlegL ©   (2002-11-28 16:05) [0]

Help please! Мне нужно отрезать квадратный фрагмент изображения, вот как я это делаю:
constructor TMap.Create(bit:TBitmap);
var i,sp_hw:integer;
rec1,rec2:TRect;
gh:TBitmap;
Table:TList;
begin
Table:=TList.Create;
sp_hw:=round(bit.Height/10);
rec1:=Rect(0,0,sp_hw,sp_hw);
gh:=TBitmap.Create;
for i:=0 to sp_hw*sp_hw-1 do
begin
rec2:=Rect(i*sp_hw,i*sp_hw,i*sp_hw+sp_hw,i*sp_hw+sp_hw);
gh.Canvas.CopyRect(rec1,bit.Canvas,rec2);
Table.Add(gh);
end;
gh.Free;
end;
...и не получается. В место CopyRect пробовал BitBlt всё равно не едёт.


 
MBo ©   (2002-11-28 16:07) [1]

gh создал, а размеры и формат не задал


 
OlegL ©   (2002-11-28 16:17) [2]

Я пробовал загрузить с диска изображение такого-же размера (64х64) после чего поверх него хотел записать из bit (это я так что-бы не мучать ся долго :-)))



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c
4-12973
Num Lock
2003-03-07 11:21
2003.05.05
EdgeBorder у ToolBar


14-12889
Psibug
2003-04-17 10:06
2003.05.05
Существует ли спецификация для Explorer.exe


3-12633
Ihtiandr
2003-04-15 12:53
2003.05.05
Блокировка записей в ib


11-12675
zetta
2002-07-11 10:59
2003.05.05
где грабли? delphi и система виснут при попытке закр. программы


1-12767
exo
2003-04-22 04:52
2003.05.05
button




   Наверх