Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 662

•  TDictionary Custom Sort  6 668

•  Fast Watermark Sources  6 451

•  3D Designer  9 382

•  Sik Screen Capture  6 784

•  Patch Maker  7 192

•  Айболит (remote control)  7 181

•  ListBox Drag & Drop  6 029

•  Доска для игры Реверси  97 653

•  Графические эффекты  7 354

•  Рисование по маске  6 655

•  Перетаскивание изображений  5 512

•  Canvas Drawing  5 895

•  Рисование Луны  5 638

•  Поворот изображения  5 124

•  Рисование стержней  3 718

•  Paint on Shape  2 928

•  Генератор кроссвордов  3 833

•  Головоломка Paletto  3 069

•  Теорема Монжа об окружностях  3 881

•  Пазл Numbrix  2 553

•  Заборы и коммивояжеры  3 294

•  Игра HIP  2 260

•  Игра Go (Го)  2 181

•  Симулятор лифта  2 575

•  Программа укладки плитки  2 189

•  Генератор лабиринта  2 692

•  Проверка числового ввода  2 340

•  HEX View  2 675

•  Физический маятник  2 326

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Назначение палитры Bitmap



Если вы рисуете на TImage....

Во-первых, вам нужно использовать Image1.Picture.bitmap, а не Image.Canvas. Причина кроется в том, что Image1.Picture.Bitmap имеет палитру, в Timage нет. Затем палитру необходимо назначить. Вот пример:


// Устанавливаем Width и Height перед использованием
// Image1.Picture c Bitmap Canvasvar

Bitmap: TBitmap;
begin
  Bitmap:=TBitmap.Create;
  Bitmap.LoadfromFile({'Whatever.bmp'});

  With Image2.Picture.bitmap do
  Begin
    Width:=Bitmap.Width;
    height:=Bitmap.Height;
    Palette:=Bitmap.Palette;
    Canvas.draw(0,0,bitmap);
    Refresh;
  end;
end;

Если вы рисуете на канве формы...


Canvas.Draw(0,0,Bitmap);
SelectPalette(Form1.Canvas.handle,Bitmap.Palette,True);
RealizePalette(Form1.Canvas.Handle);





Похожие по теме исходники

Bitmap Sharpen Filter

Simple Bitmap Rotation

Bitmap 32Bit Demo

Thread Bitmap (pencil drawings)

 



Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте