Hallo Nochmal,
das mit dem sichtbaren TImage konnte ich wie folgt lösen:
Delphi-Quellcode:
constructor TAppImageButton.Create(AOwner: TComponent);
begin
Inherited;
ccImageTextSettings:=TTextSettings.Create(Self);
ccImage:=TImage.Create(Self);
ccImage.Parent:=Self;
ccImage.Align:=TAlignLayout.Client;
ccImage.HitTest:=FALSE;
ccImage.Stored:=FALSE; //<-Das hier verhindert das sichtbare TImage
Stroke.Kind:=TBrushKind.None;
Fill.Color:=TAlphaColors.Gray;
end;
Aber die TTextSettings funktionieren immer noch nicht. Muss ich da noch einen Editor
registrieren ? Wenn ja, wie ?
Grüße
Thomas