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

Вниз

Проблема с переменной   Найти похожие ветки 

 
paule   (2004-12-21 11:34) [0]

Вот код. Пишу графический редактор.

begin
WorkList.Canvas.DrawFocusRect(R);
BMCopy := TBitMap.Create; //Создаем переменную которую поместим в буфер
{Задаем размеры этой переменной}
BMCopy.Width := R.Right - R.Left;
BMCopy.Height := R.Bottom - R.Top;
try
//Копируем содержимое выделенной области в эту переменную
BMCopy.Canvas.CopyRect(Rect(0, 0, BMCopy.Width, BMCopy.Height),RectMap. Canvas, R);
WorkList.Canvas.DrawFocusRect(R);
ClipBoard.Assign(BMCopy); //Помещаем переменную в буфер
if (Sender as TMenuItem).Name = "MCut" then
begin
// Если выбран пункт меню Вырезать, то закрашиваем выбранную область белым цветом
WorkList.Canvas.Brush.Color := clWhite;
WorkList.Canvas.FillRect(R);
end;
finally
BMCopy.Free;
end;

Один раз процедура отрабатывает нормально.
Второй раз вылетает на строке BMCopy := TBitMap.Create; с ошибкой о том что доступ к памяти запрещен и т.д.

а в чем проблема то. Я же её освобождаю перед этим. BMCopy.Free;


 
Denis_AC   (2004-12-21 11:49) [1]

Если BMCopy глобальная то не проще ли создать её один раз, а BMCopy.Free;
Замени BMCopy.FreeImage


 
olookin ©   (2004-12-21 18:21) [2]

А если попробовать закомментировать строку ClipBoard.Assign(BMCopy);? Почему то мне кажется, что это блокирует BMCopy...



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

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

Наверх





Память: 0.45 MB
Время: 0.04 c
3-1102567979
Владимир
2004-12-09 07:52
2005.01.09
MS Access


9-1094180692
MonoLife
2004-09-03 07:04
2005.01.09
Игруху выставил


1-1103856610
SDA
2004-12-24 05:50
2005.01.09
Как считать "хвост" у exe файла???


4-1101280472
snake1977
2004-11-24 10:14
2005.01.09
Управление чужим приложением


1-1103648451
Dan
2004-12-21 20:00
2005.01.09
Как отловить событие перемещения формы.





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