hp/befpc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Updated to compile with new BView implementation

Browse Source
This commit is contained in:
ocoursiere
2003-12-19 22:25:03 +00:00
parent 2ec1e8a788
commit c96a342645
3 changed files with 52 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
bepascal/demos/demo/sources/button_view.pp
View File

@@ -29,7 +29,7 @@ uses
type
TButton_View = class(BView)
public
constructor Create(frame : BRect; name : PChar; resizingMode, flags : Cardinal);
constructor Create(aframe : BRect; name : PChar; aresizingMode, flags : Cardinal);
Button1: BButton;
Button2: BButton;
Button3: BButton;
@@ -39,12 +39,13 @@ type
outlineListView : BOutlineListView;
Box1 : BBox;
Box2 : BBox;
end;
implementation
constructor TButton_View.Create(frame : BRect; name : PChar; resizingMode, flags : Cardinal);
var
constructor TButton_View.Create(aframe : BRect; name : PChar; aresizingMode, flags : Cardinal);
Var
aRect2 : BRect;
mess : BMessage;
rgb : RGB_color;

6
bepascal/demos/demo/sources/edit_view.pp
View File

@@ -25,11 +25,10 @@ uses
archivable, handler, rect, window, view, graphicdefs, dataio,box, scrollview,
invoker, messenger, Control,textview,font,textcontrol,radiobutton,common;
type
TEdit_View = class(BView)
public
constructor Create(frame : BRect; name : PChar; resizingMode, flags : Cardinal);
constructor Create(aframe : BRect; name : PChar; aresizingMode, flags : Cardinal);
aTextView : BTextView;
Edit : BTextControl;
@@ -48,12 +47,11 @@ type
implementation
constructor TEdit_View.Create(frame : BRect; name : PChar; resizingMode, flags : Cardinal);
constructor TEdit_View.Create(aframe : BRect; name : PChar; aresizingMode, flags : Cardinal);
var
aRect2,aRect3 : BRect;
mess : BMessage;
rgb : RGB_color;
begin
inherited;
SetViewColor(ui_color(B_PANEL_BACKGROUND_COLOR));

6
bepascal/demos/demo/sources/other_view.pp
View File

@@ -29,7 +29,7 @@ uses
type
Tother_View = class(BView)
public
constructor Create(frame : BRect; name : PChar; resizingMode, flags : Cardinal);
constructor Create(aframe : BRect; name : PChar; aresizingMode, flags : Cardinal);
Box1 : BBox;
Box2 : BBox;
@@ -42,8 +42,8 @@ type
implementation
constructor Tother_View.Create(frame : BRect; name : PChar; resizingMode, flags : Cardinal);
var
constructor Tother_View.Create(aframe : BRect; name : PChar; aresizingMode, flags : Cardinal);
Var
aRect2,aRect3 : BRect;
mess : BMessage;
rgb : RGB_color;