ich habe soeben eine neue Lazarus Version installiert
Version: 2.2.0
Datum: 2022-01-02
FPC-Version:3.2.2
Revision: lazarus_2_2_0
x86_64-win64-win32/win64
Nun wollte ich mein Package installieren.
Habe dort einen Abkömmling von TCustomLabel
Beim Compilieren bekomme ich jedoch eine Fehlermeldung.
LAZ_RotateLabel.pas(17,17) Error: There is no method in an ancestor class to be overridden: "DoMeasureTextPosition(var LongInt;var LongInt);"
Erstaunlicherweise gibt es diese Methode auch garnicht bei TCustomLabel in der Unit StdCtrls.
Ich hatte die aber überschrieben:
Code: Alles auswählen
uses
Classes,
Graphics,
StdCtrls;
Type TRotateLabel = class(TCustomLabel)
protected
procedure CalculatePreferredSize(var PreferredWidth, PreferredHeight: integer;
WithThemeSpace: Boolean); override;
procedure DoMeasureTextPosition(var TextTop, TextLeft: integer); override;
public
procedure Paint; override;
published
property Font;
property Caption;
property AutoSize;
property ParentFont;
property Color;
property Transparent;
end;
Er meinte ist soll CalculatePreferredSize und DoMeasureTextPosition überschreiben.
Verweis auf den Thread:
viewtopic.php?f=12&t=10673&p=94196&hili ... ion#p94196
Hat sich da jetzt etwas geändert bei TCustomLabel ?
für Informationen bin euch schonmal dankbar.
Siro