Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Игры";
Текущий архив: 2003.05.05;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Игры";
Текущий архив: 2003.05.05;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.006 c
4-12974
uu
2003-03-03 17:57
2003.05.05
Обработка сообщений


1-12726
Dabadabiabo
2003-04-23 17:09
2003.05.05
Проблемы при передаче данных в Word XP


1-12775
Lighnam
2003-04-21 10:27
2003.05.05
несколько расширений в 1 строке фильтра в open dialog


3-12656
PrettyFly
2003-04-16 13:47
2003.05.05
Функции...


3-12628
кондратий
2003-04-15 17:59
2003.05.05
TSQLQuery & Next





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский