Zitat von
uligerhardt:
Schau doch mal, ob das Programm bei dir in TPBPageControl.DrawTab ankommt. Vielleicht ist TCustomTabControl.DrawTab in Lazarus nicht als virtuell deklariert?
mh wenn ich ins
TPBPageControl.Create reinsteppe komme ich in die Tpagecontrol
die PBPagecontrol sieht nach dem Einbinden in die
IDE so aus:
Delphi-Quellcode:
unit PBPageControl;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ComCtrls;
type
TPBPageControl =
class(TPageControl)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('
Common Controls',[TPBPageControl]);
end;
end.
was macht Lazarus da?