16x16-Bitmap in 32x16-Glyph umwandeln

[alzaimar]

Als Anregung.

Delphi-Quellcode:

Function ColorToGrayScale (aColor : TColor) : TColor;
Var
  m : Integer;

Begin
  m := (GetRValue (aColor) + GetGValue(aColor) + GetBValue(aColor)) Div 3;
  Result := RGB (m, m, m);
End;

Procedure CreateGlpyhSet (aBitmap : TBitmap; aResultGlyph : TBitmap);
Var
  i, j : Integer;

Begin
  aResultGlyph.Width := 2*aBitmap.Width;
  aResultGlyph.Height := aBitmap.Height;
  aResultGlyph.Canvas.Draw(0,0, aBitmap);
  For i:=0 to aBitmap.Height-1 do
    For j := 0 to aBitmap.Width-1 do
      aResultGlyph[i,j+aBitmap.Width] := ColorToGrayscale (aBitmap[i,j])
End;