413 |
|
link := link div 256; |
414 |
|
images[i] := TOniImage.Create; |
415 |
|
images[i].LoadFromTXMP(ConnectionID, link); |
416 |
– |
SetLength(FImages, 1); |
417 |
– |
NewImage(width, height, ifA1R5G5B5, FImages[0]); |
416 |
|
end; |
417 |
+ |
SetLength(FImages, 1); |
418 |
+ |
NewImage(width, height, images[0].Format {ifA1R5G5B5}, FImages[0]); |
419 |
|
for y := 0 to rows - 1 do |
420 |
|
begin |
421 |
|
for x := 0 to cols - 1 do |
425 |
|
y_start := 0; |
426 |
|
for i := 0 to x do |
427 |
|
if i < x then |
428 |
< |
x_start := x_start + images[i].Image[0].Width; |
428 |
> |
x_start := x_start + images[i].Image[1].Width; |
429 |
|
for i := 0 to y do |
430 |
|
if i < y then |
431 |
< |
y_start := y_start + images[i].Image[0].Height; |
432 |
< |
CopyRect(images[imgid].Image[0], 0, 0, images[imgid].Image[0].Width, |
433 |
< |
images[imgid].Image[0].Height, FImages[0], x_start, y_start); |
431 |
> |
y_start := y_start + images[i].Image[1].Height; |
432 |
> |
CopyRect(images[imgid].Image[1], 0, 0, images[imgid].Image[1].Width, |
433 |
> |
images[imgid].Image[1].Height, FImages[0], x_start, y_start); |
434 |
|
end; |
435 |
|
end; |
436 |
|
for i := 0 to linkcount - 1 do |