This commit is contained in:
1 parent
63211ef792
commit
809b381918
13 files changed
+291
-2
No files matched your search
@@ -53,6 +53,8 @@ begin
|
||||
end;
|
||||
|
||||
constructor TDiagnosticsView.Create(AOwner: TComponent);
|
||||
var
|
||||
TitleLabel: TCastleLabel;
|
||||
begin
|
||||
inherited;
|
||||
FScroll := TCastleScrollView.Create(Self);
|
||||
@@ -80,7 +82,9 @@ begin
|
||||
FFileIOButton.Caption := 'Test File I/O';
|
||||
FFileIOButton.OnClick := @FileIOClick;
|
||||
FContent.InsertFront(FFileIOButton);
|
||||
with TCastleLabel.Create(Self) do begin Caption := 'Tests / Diagnostics'; FContent.InsertFront(Self); end;
|
||||
TitleLabel := TCastleLabel.Create(Self);
|
||||
TitleLabel.Caption := 'Tests / Diagnostics';
|
||||
FContent.InsertFront(TitleLabel);
|
||||
end;
|
||||
|
||||
procedure TDiagnosticsView.UpdateWrapWidth;
|
||||
|
||||
Reference in new issue
Block a user