Anzahl Glyphs eines Bitmaps rausfinden

[Deep-Sea]

Stimmt schon, sofern gilt, dass die Glyphs quadratisch sind

[Helmi]

Zitat von Deep-Sea:

Stimmt schon, sofern gilt, dass die Glyphs quadratisch sind

Und was mach ich jetzt wenn ich ein Bitmap habe dass die gleichen/ähnlichen Ausmaße hat, aber keine Glyph beinhaltet?

[Bernhard Geyer]

Zitat von Helmi:

Und was mach ich jetzt wenn ich ein Bitmap habe dass die gleichen/ähnlichen Ausmaße hat, aber keine Glyph beinhaltet?

Ähnlich ist egal (Value.Width mod Value.Height = 0) und bei gleich einfach wieder das Property Glyphs wieder zurücksetzen.

[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...