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

minor fix.

Browse Source
This commit is contained in:
oscarl-2
2003-11-14 11:44:45 +00:00
parent 18f37bd113
commit 006b643af3
7 changed files with 508 additions and 513 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
bepascal/demos/demo/compile
View File

@@ -5,4 +5,4 @@ fi
ppc386 -FE./ -FU./units ./sources/main.pp -oBPDemo
mergeres ./sources/Resource.rsrc BPDemo
mimeset BPCalculator
mimeset BPDemo

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

@@ -1,5 +1,5 @@
{ BePascal - A pascal wrapper around the BeOS API
Copyright (C) 2002 Olivier Coursiere
Copyright (C) 2002-2003 Olivier Coursiere
Eric Jourde
This library is free software; you can redistribute it and/or
@@ -16,16 +16,15 @@
License along with this library; if not, write to the Free
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
}
unit button_view;
unit Button_View;
{$M+}
interface
uses
classes,beobj, application, message, _beep, roster, SysUtils,interfacedefs,
archivable, handler, rect, window, view, graphicdefs, dataio,box,
invoker, messenger, Control, Button,listview,listitem,outlinelistview,common;
uses
Box, Button, GraphicDefs, InterfaceDefs, ListView, ListItem, Message,
OutlineListView, Rect, View,
Common;
type
TButton_View = class(BView)
@@ -40,17 +39,15 @@ type
outlineListView : BOutlineListView;
Box1 : BBox;
Box2 : BBox;
end;
implementation
constructor TButton_View.Create(frame : BRect; name : PChar; resizingMode, flags : Cardinal);
Var
var
aRect2 : BRect;
mess : BMessage;
rgb : RGB_color;
begin
inherited;
SetViewColor(ui_color(B_PANEL_BACKGROUND_COLOR));
@@ -89,15 +86,14 @@ begin
// ListView1
aRect2 := BRect.Create(10, 15, 120, 250);
ListView1 := BListView.create(aRect2,'toto',
B_SINGLE_SELECTION_LIST,
ListView1 := BListView.create(aRect2,'toto', B_SINGLE_SELECTION_LIST,
B_FOLLOW_LEFT or B_FOLLOW_TOP,
B_WILL_DRAW or B_NAVIGABLE or B_FRAME_EVENTS);
Box1.AddChild(ListView1, nil);
aRect2.Free;
{ ItemString := BStringItem.create('test 1',0,true);
{
ItemString := BStringItem.create('test 1',0,true);
ListView1.AddItem(ItemString);
ItemString := BStringItem.create('test 2',1,true);
ListView1.AddItem(ItemString);
@@ -121,7 +117,6 @@ begin
Box2.AddChild(outlineListView, nil);
aRect2.Free;
ItemString := BStringItem.create('test 1',0,true);
outlineListView.AddItem(ItemString);
ItemString := BStringItem.create('test 1.1',1,true);
@@ -134,8 +129,6 @@ begin
outlineListView.AddItem(ItemString);
ItemString := BStringItem.create('test 3',0,true);
outlineListView.AddItem(ItemString);
end;
end.

5
bepascal/demos/demo/sources/common.pp
View File

@@ -1,5 +1,7 @@
unit common;
unit Common;
interface
const
MSG_TEST_APP_BASE = 79000;
MSG_BUTTON_BASE = MSG_TEST_APP_BASE + 100;
@@ -10,4 +12,5 @@ const
MSG_STATUSBAR_BASE = MSG_TEST_APP_BASE + 600;
implementation
end.

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

@@ -1,5 +1,5 @@
{ BePascal - A pascal wrapper around the BeOS API
Copyright (C) 2002 Olivier Coursiere
Copyright (C) 2002-2003 Olivier Coursiere
Eric Jourde
This library is free software; you can redistribute it and/or
@@ -16,8 +16,7 @@
License along with this library; if not, write to the Free
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
}
unit edit_view;
unit Edit_View;
{$M+}
interface
@@ -44,13 +43,13 @@ type
RadioButton2 : BRadioButton;
RadioButton3,
RadioButton4 : BRadioButton;
scroll_vert :BscrollView;
scroll_vert : BscrollView;
end;
implementation
constructor TEdit_View.Create(frame : BRect; name : PChar; resizingMode, flags : Cardinal);
Var
var
aRect2,aRect3 : BRect;
mess : BMessage;
rgb : RGB_color;
@@ -149,7 +148,6 @@ begin
B_FOLLOW_LEFT or B_FOLLOW_TOP, B_WILL_DRAW or B_NAVIGABLE);
Box4.AddChild(RadioButton4, nil);
aRect2.Free;
end;
end.

22
bepascal/demos/demo/sources/main.pp
View File

@@ -1,5 +1,5 @@
{ BePascal - A pascal wrapper around the BeOS API
Copyright (C) 2002 Olivier Coursiere
Copyright (C) 2002-2003 Olivier Coursiere
Eric Jourde
This library is free software; you can redistribute it and/or
@@ -16,29 +16,23 @@
License along with this library; if not, write to the Free
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
}
program Main;
{$M+}
uses
beobj, application, message, _beep, roster, SysUtils,
archivable, handler, rect, window, view, graphicdefs, dataio,
invoker, messenger, Control, Button,stringview,textcontrol,checkbox,
main_window;
Application, Message, Roster, Rect, Window,
Main_Window;
type
TMonApplication = class(BApplication)
public
procedure ReadyToRun; override;
function QuitRequested : boolean; override;
function QuitRequested : Boolean; override;
end;
function TMonApplication.QuitRequested : boolean;
function TMonApplication.QuitRequested : Boolean;
begin
Result := inherited;
be_app.Free;
@@ -59,11 +53,9 @@ begin
end;
var
aRect : BRect;
win : TMyWindow;
begin
TMonApplication.Create;
try
@@ -78,5 +70,3 @@ begin
win.Free;
end;
end.

198
bepascal/demos/demo/sources/main_window.pp
View File

@@ -1,5 +1,5 @@
{ BePascal - A pascal wrapper around the BeOS API
Copyright (C) 2002 Olivier Coursiere
Copyright (C) 2002-2003 Olivier Coursiere
Eric Jourde
This library is free software; you can redistribute it and/or
@@ -16,28 +16,23 @@
License along with this library; if not, write to the Free
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
}
unit main_window;
unit Main_Window;
interface
{$M+}
uses
beobj, application, message, _beep, roster, SysUtils,appdefs,
archivable, handler, rect, window, view, graphicdefs, dataio, interfacedefs,textView,alert,
invoker, messenger, Control, Button,stringview,textcontrol,checkbox,TabView,listitem,
menu, menubar,
button_view,edit_view,common,other_view;
SysUtils,
Alert, InterfaceDefs, ListItem, Menu, Menubar, Message, Rect, StringView,
TabView, View, Window,
Common, Button_View, Edit_View, Other_View;
Type
TMyWindow = class(BWindow)
type
TMyWindow = class(BWindow)
private
aView : BView;
TabView : BTabView;
Tab1 : BTab;
Tab2 : BTab;
public
constructor Create(aFrame : BRect; title : PChar; atype, aFlags, aWorkspaces : Cardinal); override;
destructor Destroy; override;
@@ -48,7 +43,8 @@ TMyWindow = class(BWindow)
VOther : TOther_View;
end;
Const Message1='Message : ';
const
Message1 = 'Message : ';
implementation
@@ -65,20 +61,19 @@ var
sepItem, sepItem2 : BSeparatorItem;
item : BMenuItem;
item1 : BMenuItem;
begin
inherited;
try
try
// menu
aRect2 := BRect.Create(0,0,300,300);
menubar := BMenuBar.Create(aRect2, 'Bonjour', B_FOLLOW_LEFT_RIGHT or B_FOLLOW_TOP, B_ITEMS_IN_COLUMN, True);
aRect2 := BRect.Create(0, 0, 300, 300);
menubar := BMenuBar.Create(aRect2, 'Bonjour', B_FOLLOW_LEFT_RIGHT
or B_FOLLOW_TOP, B_ITEMS_IN_COLUMN, True);
AddChild(menubar, nil);
aRect2.Free;
Menu := BMenu.Create('File', B_ITEMS_IN_COLUMN);
item := BMenuItem.Create('Open', BMessage.Create(MSG_MENU_BASE+1), 'o'{#0}, 0);
item1 := BMenuItem.Create('Close', BMessage.Create(MSG_MENU_BASE+2), 'z'{#0}, 0);
item := BMenuItem.Create('Open', BMessage.Create(MSG_MENU_BASE + 1), 'o'{#0}, 0);
item1 := BMenuItem.Create('Close', BMessage.Create(MSG_MENU_BASE + 2), 'z'{#0}, 0);
Menu.AddItem(item);
Menu.AddSeparatorItem;
@@ -95,58 +90,54 @@ begin
// Show text Message
aRect:= BRect.Create(20, 400, 200, 420);
Explain := BStringView.Create(aRect,'explain','Message : ',B_FOLLOW_LEFT or B_FOLLOW_TOP, B_WILL_DRAW or B_NAVIGABLE);
Explain := BStringView.Create(aRect,'explain','Message : ', B_FOLLOW_LEFT
or B_FOLLOW_TOP, B_WILL_DRAW or B_NAVIGABLE);
aView.AddChild(Explain, nil);
aRect.Free;
// TabView
aRect:= BRect.Create(20, 25, 700, 400);
TabView:=BTabview.Create(aRect,'test',
B_WIDTH_AS_USUAL,
B_FOLLOW_TOP,
B_FULL_UPDATE_ON_RESIZE or B_WILL_DRAW or B_NAVIGABLE_JUMP or B_FRAME_EVENTS or B_NAVIGABLE);
aRect := BRect.Create(20, 25, 700, 400);
TabView := BTabview.Create(aRect,'test', B_WIDTH_AS_USUAL, B_FOLLOW_TOP,
B_FULL_UPDATE_ON_RESIZE or B_WILL_DRAW or
B_NAVIGABLE_JUMP or B_FRAME_EVENTS or B_NAVIGABLE);
aView.AddChild(TabView, nil);
aRect.Free;
// Button
aRect:= BRect.Create(0, 0, 700, 500);
aRect := BRect.Create(0, 0, 700, 500);
VButton := TButton_View.Create(aRect, 'Test 1', B_FOLLOW_ALL, B_NAVIGABLE);
aRect.Free;
Tab1:=BTab.create(VButton);
Tab1 := BTab.create(VButton);
Tab1.SetLabel('BButton & BListView');
TabView.AddTab(VButton,Tab1);
// Edit
aRect:= BRect.Create(0, 0, 700, 500);
aRect := BRect.Create(0, 0, 700, 500);
VEdit := TEdit_View.Create(aRect, 'Test 1', B_FOLLOW_ALL, B_NAVIGABLE);
aRect.Free;
Tab1:=BTab.create(VEdit);
Tab1 := BTab.create(VEdit);
Tab1.SetLabel('BeditText');
TabView.AddTab(VEdit,Tab1);
// Other
aRect:= BRect.Create(0, 0, 700, 500);
aRect := BRect.Create(0, 0, 700, 500);
VOther := TOther_View.Create(aRect, 'Test 1', B_FOLLOW_ALL, B_NAVIGABLE);
aRect.Free;
Tab1:=BTab.create(VOther);
Tab1 := BTab.create(VOther);
Tab1.SetLabel('Other');
TabView.AddTab(VOther,Tab1);
TabView.AddTab(VOther, Tab1);
TabView.Select(0);
finally
end;
finally
end;
end;
destructor TMyWindow.Destroy;
@@ -154,66 +145,89 @@ begin
inherited;
end;
procedure TMyWindow.MessageReceived(aMessage : BMessage);
Var S : String;
p : pchar;
var
S : String;
p : PChar;
Alert : BAlert;
begin
inherited;
Case aMessage.what of
MSG_BUTTON_BASE+1 : Begin
Explain.SetText(Message1+'button 1 clic');
End;
MSG_BUTTON_BASE+2 : Begin
Explain.SetText(Message1+'button Add Item click');
VButton.ItemString := BStringItem.create('new Item',0,true);
VButton.ListView1.AddItem(VButton.ItemString);
End;
MSG_BUTTON_BASE+3 : Begin
Explain.SetText(Message1+'button Add OutlineListItem clic');
VButton.ItemString := BStringItem.create('New Item',0,true);
VButton.outlineListView.AddItem(VButton.ItemString);
End;
MSG_BUTTON_BASE+4 : Begin
VOther.StatusBar1.Update(10, nil, nil);
S:='Position: '+FloatToStr(VOther.StatusBar1.CurrentValue)+' \ '+FloatToStr(VOther.StatusBar1.MaxValue);
p:=stralloc(length(s)+1);
strpcopy(p,s);
VOther.Value.SetText(p);
strdispose(p);
End;
MSG_BUTTON_BASE+5 : Begin
VOther.StatusBar1.Update(-10, nil, nil);
S:='Position: '+FloatToStr(VOther.StatusBar1.CurrentValue)+' \ '+FloatToStr(VOther.StatusBar1.MaxValue);
p:=stralloc(length(s)+1);
strpcopy(p,s);
VOther.Value.SetText(p);
strdispose(p);
End;
MSG_BUTTON_BASE+6 : Begin
Alert:=BAlert.Create('Attention','You have request a alert ?','Help','Cancel','OK',B_WIDTH_AS_USUAL,B_WARNING_ALERT);
Alert.go;
End;
MSG_RADIOBUTTON_BASE + 1 : Begin
VEdit.Edit.setalignment(B_ALIGN_LEFT,B_ALIGN_LEFT);
End;
MSG_RADIOBUTTON_BASE + 2 : Begin
VEdit.Edit.setalignment(B_ALIGN_RIGHT,B_ALIGN_RIGHT);
End;
MSG_RADIOBUTTON_BASE + 3 : Begin
VEdit.Edit.SetEnabled(true);
End;
MSG_RADIOBUTTON_BASE + 4 : Begin
VEdit.Edit.SetEnabled(false);
End;
MSG_MENU_BASE +2 : Begin
quit;
End;
case aMessage.what of
MSG_BUTTON_BASE + 1 :
begin
Explain.SetText(Message1 + 'button 1 clic');
end;
MSG_BUTTON_BASE + 2 :
begin
Explain.SetText(Message1 + 'button Add Item click');
VButton.ItemString := BStringItem.create('new Item', 0, true);
VButton.ListView1.AddItem(VButton.ItemString);
end;
MSG_BUTTON_BASE + 3 :
begin
Explain.SetText(Message1 + 'button Add OutlineListItem clic');
VButton.ItemString := BStringItem.create('New Item', 0, true);
VButton.outlineListView.AddItem(VButton.ItemString);
end;
MSG_BUTTON_BASE + 4 :
begin
VOther.StatusBar1.Update(10, nil, nil);
S := 'Position: ' + FloatToStr(VOther.StatusBar1.CurrentValue) + ' \ '
+ FloatToStr(VOther.StatusBar1.MaxValue);
p := stralloc(length(s) + 1);
strpcopy(p,s);
VOther.Value.SetText(p);
strdispose(p);
end;
MSG_BUTTON_BASE + 5 :
begin
VOther.StatusBar1.Update(-10, nil, nil);
S := 'Position: ' + FloatToStr(VOther.StatusBar1.CurrentValue) + ' \ '
+ FloatToStr(VOther.StatusBar1.MaxValue);
p := stralloc(length(s) + 1);
strpcopy(p,s);
VOther.Value.SetText(p);
strdispose(p);
end;
MSG_BUTTON_BASE + 6 :
begin
Alert := BAlert.Create('Attention','You have request a alert ?','Help',
'Cancel','OK', B_WIDTH_AS_USUAL, B_WARNING_ALERT);
Alert.go;
end;
MSG_RADIOBUTTON_BASE + 1 :
begin
VEdit.Edit.setalignment(B_ALIGN_LEFT,B_ALIGN_LEFT);
end;
MSG_RADIOBUTTON_BASE + 2 :
begin
VEdit.Edit.setalignment(B_ALIGN_RIGHT,B_ALIGN_RIGHT);
end;
MSG_RADIOBUTTON_BASE + 3 :
begin
VEdit.Edit.SetEnabled(true);
end;
MSG_RADIOBUTTON_BASE + 4 :
begin
VEdit.Edit.SetEnabled(false);
end;
MSG_MENU_BASE + 2 :
begin
Quit;
end;
end; // case
end;
end.

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

@@ -1,5 +1,5 @@
{ BePascal - A pascal wrapper around the BeOS API
Copyright (C) 2002 Olivier Coursiere
Copyright (C) 2002-2003 Olivier Coursiere
Eric Jourde
This library is free software; you can redistribute it and/or
@@ -16,16 +16,15 @@
License along with this library; if not, write to the Free
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
}
unit other_view;
unit Other_View;
{$M+}
interface
uses
classes,beobj, application, message, _beep, roster, SysUtils,interfacedefs,
archivable, handler, rect, window, view, graphicdefs, dataio,box, scrollview,statusbar,button,stringview,
invoker, messenger, Control,textview,font,textcontrol,radiobutton,common;
uses
Box, Button, GraphicDefs, InterfaceDefs, Message, Rect, StatusBar,
Stringview, View,
Common;
type
Tother_View = class(BView)
@@ -44,11 +43,10 @@ type
implementation
constructor Tother_View.Create(frame : BRect; name : PChar; resizingMode, flags : Cardinal);
Var
aRect2,aRect3 : BRect;
var
aRect2, aRect3 : BRect;
mess : BMessage;
rgb : RGB_color;
begin
inherited;
SetViewColor(ui_color(B_PANEL_BACKGROUND_COLOR));
@@ -106,7 +104,6 @@ begin
Button3.SetViewColor(rgb);
Box1.AddChild(Button3, nil);
aRect2.Free;
end;
end.