Zitat von
khh:
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?
Na du bist ein Scherzkeks.
Du nimmst den ganzen Quellcode aus der
Unit raus und wunderst dich, wenn Funktionalität verloren geht?
Probier mal, den Originalcode aus dem Posting, das du eingangs verlinkt hast, zu nehmen, zu speichern und zu compilieren. Geht das mit Lazarus? (Den hier:
{$mode objfpc}{$H+}
darfst du von mir aus noch einfügen.)