Anzahl Glyphs eines Bitmaps rausfinden

[Helmi]

Ich hab das Ganze jetzt mal in eine Function gepackt:

Delphi-Quellcode:

  function Count_Glyphs(Bitmap: TBitmap): Integer;
    begin
      //Result definieren
      Result := 1;

      //prüfen ob das Verhältnis zwischen Breite und Höhe stimmt
      If Bitmap.Width mod Bitmap.Height = 0 then
        begin
          //Anzahl Glyphs errechnen
          Result := Bitmap.Width div Bitmap.Height;

          //prüfen ob es mehr als 4 Glyphs gibt
          If Result > 4 then
            Result := 1;
        end;
    end;

Was aber dem Code aus der Unit Buttons entspricht.
Hab beim ersten Mal das "mod" übersehen. Das hilft natürlich weiter...