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

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

@@ -27,25 +27,26 @@ uses
Common; Common;
type type
TButton_View = class(BView) TButton_View = class(BView)
public public
constructor Create(frame : BRect; name : PChar; resizingMode, flags : Cardinal); constructor Create(aframe : BRect; name : PChar; aresizingMode, flags : Cardinal);
Button1: BButton; Button1: BButton;
Button2: BButton; Button2: BButton;
Button3: BButton; Button3: BButton;
ListView1 : BListView;
ItemString : BStringItem;
outlineListView : BOutlineListView;
Box1 : BBox;
Box2 : BBox;
ListView1 : BListView;
ItemString : BStringItem;
outlineListView : BOutlineListView;
Box1 : BBox;
Box2 : BBox;
end; end;
implementation implementation
constructor TButton_View.Create(frame : BRect; name : PChar; resizingMode, flags : Cardinal); constructor TButton_View.Create(aframe : BRect; name : PChar; aresizingMode, flags : Cardinal);
var Var
aRect2 : BRect; aRect2 : BRect;
mess : BMessage; mess : BMessage;
rgb : RGB_color; rgb : RGB_color;
begin begin
@@ -131,4 +132,4 @@ begin
outlineListView.AddItem(ItemString); outlineListView.AddItem(ItemString);
end; end;
end. end.

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

@@ -25,35 +25,33 @@ uses
archivable, handler, rect, window, view, graphicdefs, dataio,box, scrollview, archivable, handler, rect, window, view, graphicdefs, dataio,box, scrollview,
invoker, messenger, Control,textview,font,textcontrol,radiobutton,common; invoker, messenger, Control,textview,font,textcontrol,radiobutton,common;
type
TEdit_View = class(BView)
public
constructor Create(aframe : BRect; name : PChar; aresizingMode, flags : Cardinal);
type aTextView : BTextView;
TEdit_View = class(BView) Edit : BTextControl;
public
constructor Create(frame : BRect; name : PChar; resizingMode, flags : Cardinal); afont : Bfont;
Box1 : BBox;
aTextView : BTextView; Box2 : BBox;
Edit : BTextControl; Box3 : BBox;
Box4 : BBox;
afont : Bfont; RadioButton1,
Box1 : BBox; RadioButton2 : BRadioButton;
Box2 : BBox; RadioButton3,
Box3 : BBox; RadioButton4 : BRadioButton;
Box4 : BBox; scroll_vert : BscrollView;
RadioButton1,
RadioButton2 : BRadioButton;
RadioButton3,
RadioButton4 : BRadioButton;
scroll_vert : BscrollView;
end; end;
implementation implementation
constructor TEdit_View.Create(frame : BRect; name : PChar; resizingMode, flags : Cardinal); constructor TEdit_View.Create(aframe : BRect; name : PChar; aresizingMode, flags : Cardinal);
var var
aRect2,aRect3 : BRect; aRect2,aRect3 : BRect;
mess : BMessage; mess : BMessage;
rgb : RGB_color; rgb : RGB_color;
begin begin
inherited; inherited;
SetViewColor(ui_color(B_PANEL_BACKGROUND_COLOR)); SetViewColor(ui_color(B_PANEL_BACKGROUND_COLOR));
@@ -150,4 +148,4 @@ begin
aRect2.Free; aRect2.Free;
end; end;
end. end.

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

@@ -27,24 +27,24 @@ uses
Common; Common;
type type
Tother_View = class(BView) Tother_View = class(BView)
public public
constructor Create(frame : BRect; name : PChar; resizingMode, flags : Cardinal); constructor Create(aframe : BRect; name : PChar; aresizingMode, flags : Cardinal);
Box1 : BBox; Box1 : BBox;
Box2 : BBox; Box2 : BBox;
StatusBar1 : BStatusBar; StatusBar1 : BStatusBar;
Button1: BButton; Button1: BButton;
Button2: BButton; Button2: BButton;
Button3: BButton; Button3: BButton;
Value : BStringView; Value : BStringView;
end; end;
implementation implementation
constructor Tother_View.Create(frame : BRect; name : PChar; resizingMode, flags : Cardinal); constructor Tother_View.Create(aframe : BRect; name : PChar; aresizingMode, flags : Cardinal);
var Var
aRect2, aRect3 : BRect; aRect2,aRect3 : BRect;
mess : BMessage; mess : BMessage;
rgb : RGB_color; rgb : RGB_color;
begin begin
@@ -106,4 +106,4 @@ begin
aRect2.Free; aRect2.Free;
end; end;
end. end.