Форум: "Основная";
Текущий архив: 2005.08.14;
Скачать: [xml.tar.bz2];
ВнизКопирование CopyRect Найти похожие ветки
← →
Trenno (2005-07-23 23:19) [0]Никак немогу решить разделение картинки
BIG -bmp 20x20
c0 -bmp приемник 10x20 левой части BIG
c1 -bmp приемник 10x20 правой части BIG
ine,oute:TRect;
oute:=Rect(0,0,10,BIG.Height);
ine:=rect(0,0,10,BIG.height)
c0.Canvas.CopyRect(oute,Big.Canvas,ine);
ine:=rect(0,10,10,BIG.height)
c1.Canvas.CopyRect(oute,Big.Canvas,ine);
первую половику выводит,а
вторую зеркально,для проверки попробывал делить
на 3 части картинку "ZBC" и увидел Z - нормально
B-перевернуто , третью картинку как перевернутые
и сжатые в одно место BC
проверяю Form1.Canvas.Draw( 250, 0, c0 );
почему глюки?
← →
alex-drob © (2005-07-23 23:50) [1]Строка
ine:=rect(0,10,10,BIG.height)
не правельная
Тебе нужно скопировать Rect(10,0,20,BIG.height)
← →
Trenno (2005-07-24 13:55) [2]простой код
должен в с0 получить "Т"
а в с1 изображение "Е",но оно перевернутое!
До S недобратся
procedure TForm1.Button2Click(Sender: TObject);
var
BIG:TBitmap;
c0,c1:TBitmap;
Oute,ine:TRect;
begin
Big:=TBitmap.Create;
c0:=TBitmap.Create;
c1:=TBitmap.Create;
BIG.Width:=30;
BIG.Height:=15;
BIG.Canvas.TextOut(0,0,"TEST");// в изображение
Form1.Canvas.Draw( 0, 20, big );
c0.Height:=BIG.Height;
c0.Width:=BIG.Width div 4;
oute:=Rect(0,0,c0.Width,BIG.Height);
ine:=rect(0,0,c0.Width,BIG.height);
c0.Canvas.CopyMode:=cmSrcCopy;
c0.Canvas.CopyRect(oute,Big.Canvas,ine);
Form1.Canvas.Draw( 0, 40, c0 ); // T
c1.Height:=BIG.Height;
c1.Width:=BIG.Width div 4;
oute:=Rect(0,0,c0.Width,BIG.Height);
ine:=rect(c0.Width*2,0,c0.Width,BIG.height); // шаг сдвиг справо
c1.Canvas.CopyMode:=cmSrcCopy;
c1.Canvas.CopyRect(oute,Big.Canvas,ine);
Form1.Canvas.Draw( 0, 60, c1 ); // E перевернутое
← →
KilkennyCat © (2005-07-24 14:04) [3]переворот достигается неправильным использованием координат.
BIG -bmp 20x20
c0 -bmp приемник 10x20 левой части BIG
c1 -bmp приемник 10x20 правой части BIG
//procedure CopyRect(const Dest: TRect; Canvas: TCanvas; const Source: TRect);
c0.Canvas.CopyRect(rect(0,10,0,20),Big.Canvas,rect(0,10,0,20));
c1.Canvas.CopyRect(rect(0,10,0,20),Big.Canvas,rect(10,20,0,20));
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.08.14;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.016 c