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

Вниз

Люди! Совсем запутался.   Найти похожие ветки 

 
tovSuhov   (2001-12-27 16:04) [0]

Какая нужна последовательность режимов Canvas.Pen.Mode, когда я отрисовываю перемещение линии? Т.е. на старом месте надо восстановить затертое ею изображение и отрисовать ее на новом...


 
McSimm   (2001-12-27 16:23) [1]

Проще всего, рисовать, а затем восстанавливать с режимом pmXor


 
avr555   (2001-12-27 16:32) [2]

А где об этом можно поподробнее почитать?


 
tovSuhov   (2001-12-27 16:32) [3]

Вот как делаю я:
screen - TBitMap;
void DrawTo(int OldX,int OldY,int X, int Y,TPoint * P,int Count)
{
// Восстанавливаем затертое изображение
screen->Canvas->Brush->Style = bsClear;
screen->Canvas->Pen->Mode = pmXor;
TPoint * buf = new TPoint[Count];
buf[0].x = OldX;
buf[0].y = OldY;

for (int i=1;i<Count;i++)
{
buf[i].x = P[i].x+buf[0].x;
buf[i].y = P[i].y+buf[0].y;
}
screen->Canvas->Polygon(buf,Count-1);
// Рисуем новое
buf[0].x = X;
buf[0].y = Y;
for (int i=1;i<Count;i++)
{
buf[i].x = P[i].x+buf[0].x;
buf[i].y = P[i].y+buf[0].y;
}

screen->Canvas->Pen->Color = clBlack;
screen->Canvas->Pen->Mode = pmCopy;
screen->Canvas->Polygon(buf,Count-1);
screen->Canvas->Brush->Style = bsSolid;
delete [] buf;

};

Но он что-то не восстанавливает затертое...


 
MBo   (2001-12-27 17:18) [4]

оба раза pmXor-ом рисуй!


 
Bar   (2001-12-27 20:16) [5]

IMHO лучшее решение pmNotXor



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

Форум: "Основная";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.011 c
1-52529
Labert
2001-12-27 16:19
2002.01.17
В чем дело, интересно...


6-52625
Klan
2001-10-23 17:20
2002.01.17
Помогите с Mapi


7-52670
Дядька Форгер
2001-09-27 08:13
2002.01.17
Вовместимость


3-52505
Кнопка
2001-12-09 15:07
2002.01.17
Поиск в базе


14-52637
Sobesednic
2001-11-20 22:56
2002.01.17
В чем разница Delphi 6 Enterprise(144mb) от Delphi 6 Personal(140mb)





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский