Как из .BMP считать попиксельно

[OrdJONY]

И снова о скинах
Как из .BMP считать попиксельно. Нужно сделать скин как в Light Alloy

[ZhekON]

всмысле, из одной бмп зделать несколько? (это Bounds(x1,y1,x2,y2))

[OrdJONY]

Задача такова:
Нужно в папке Skins найти файлы с определенным изображением (например 128Х128). В этом файле есть несколько кпопок в нажатом и обычном состоянии. Каждую кнопку загнать в Переменную и в нужный момент их присвоить Image.Picture

[ZhekON]

вот..... думаю это то, розбирайся)...

[angel2c]

а подскажите, пожалуста, как сделать всё наоборот, то есть попиксельно создать бмп, а потом вывести сразу всю картинку на экран??

[mutabor]

В этом файле есть несколько кпопок в нажатом и обычном состоянии

Здесь помогут TImageList с TBitmap. В Bitmap считать файл, потом в цикле повытаскивать из общего файла кнопочки и позапихивать их в ImageList.
А уже из ImageList нужную картинку выводить на экран. Если непонятно скажи я пример сделаю, только дай схему скина, как кнопки расположены, их размер.

[Neoline]

Var
img : TBitMap;
i,j : Byte;

...
Begin
img := TBitMap.Create;
img.width := 128;
img.height := 128;

For i := 0 to 127 do
For j := 0 to 127 do
img.canvas.pixels[i,j] := $000000; //Заполнение черным цветом

Form1.Canvas.Draw(0,0,img);
End;
...

Результатом будет квадрат размером 128 на 128 пикселов, залитый черным цветом.
Можно еще указать формат пиксела, img.PixelFormat := ?
[ TPixelFormat = (pfDevice, pf1bit, pf4bit, pf8bit, pf15bit, pf16bit, pf24bit, pf32bit, pfCustom); ]

[Garacio_cain]

OrdJONY, ты заливаешь каждую переменную в отдельный TImage?