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

Fixed SetDivider and Divider functions

Browse Source
This commit is contained in:
oscarl-2
2003-04-08 11:06:01 +00:00
parent 0e2b56b566
commit b0278a83da
1 changed files with 26 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
bepascal/bepascal/be/interface/textcontrol.pp
View File

@@ -1,22 +1,23 @@
{ BePascal - A pascal wrapper around the BeOS API { BePascal - A pascal wrapper around the BeOS API
Copyright (C) 2002 Olivier Coursiere Copyright (C) 2002 Olivier Coursiere
Eric Jourde Eric Jourde
Oscar Lesta
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public This library is free software; you can redistribute it and/or
License as published by the Free Software Foundation; either modify it under the terms of the GNU Library General Public
version 2 of the License, or (at your option) any later version. License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of This library is distributed in the hope that it will be useful,
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU but WITHOUT ANY WARRANTY; without even the implied warranty of
Library General Public License for more details. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free You should have received a copy of the GNU Library General Public
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA License along with this library; if not, write to the Free
} Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
unit textcontrol; }
unit TextControl;
interface interface
@@ -41,8 +42,8 @@ type
function ModificationMessage : TMessage; function ModificationMessage : TMessage;
procedure SetAlignment(alabel : TAlignment; texte : TAlignment); procedure SetAlignment(alabel : TAlignment; texte : TAlignment);
procedure GetAlignment(alabel : TAlignment; texte : TAlignment); procedure GetAlignment(alabel : TAlignment; texte : TAlignment);
procedure SetDivider(dividing_line : double); procedure SetDivider(dividing_line : single);
function Divider : double; function Divider : single;
procedure Draw(updateRect : TRect);override; procedure Draw(updateRect : TRect);override;
procedure MouseDown(where : TPoint);override; procedure MouseDown(where : TPoint);override;
procedure AttachedToWindow;override; procedure AttachedToWindow;override;
@@ -100,8 +101,8 @@ procedure BTextControl_SetModificationMessage(AObject : TCPlusObject; message :
function BTextControl_ModificationMessage(AObject : TCPlusObject) : TMessage; cdecl; external BePascalLibName name 'BTextControl_ModificationMessage'; function BTextControl_ModificationMessage(AObject : TCPlusObject) : TMessage; cdecl; external BePascalLibName name 'BTextControl_ModificationMessage';
procedure BTextControl_SetAlignment(AObject : TCPlusObject; alabel : TAlignment; texte : TAlignment); cdecl; external BePascalLibName name 'BTextControl_SetAlignment'; procedure BTextControl_SetAlignment(AObject : TCPlusObject; alabel : TAlignment; texte : TAlignment); cdecl; external BePascalLibName name 'BTextControl_SetAlignment';
procedure BTextControl_GetAlignment(AObject : TCPlusObject; alabel : TAlignment; texte : TAlignment); cdecl; external BePascalLibName name 'BTextControl_GetAlignment'; procedure BTextControl_GetAlignment(AObject : TCPlusObject; alabel : TAlignment; texte : TAlignment); cdecl; external BePascalLibName name 'BTextControl_GetAlignment';
procedure BTextControl_SetDivider(AObject : TCPlusObject; dividing_line : double); cdecl; external BePascalLibName name 'BTextControl_SetDivider'; procedure BTextControl_SetDivider(AObject : TCPlusObject; dividing_line : single); cdecl; external BePascalLibName name 'BTextControl_SetDivider';
function BTextControl_Divider(AObject : TCPlusObject) : double; cdecl; external BePascalLibName name 'BTextControl_Divider'; function BTextControl_Divider(AObject : TCPlusObject) : single; cdecl; external BePascalLibName name 'BTextControl_Divider';
procedure BTextControl_Draw(AObject : TCPlusObject; updateRect : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_Draw'; procedure BTextControl_Draw(AObject : TCPlusObject; updateRect : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_Draw';
procedure BTextControl_MouseDown(AObject : TCPlusObject; where : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_MouseDown'; procedure BTextControl_MouseDown(AObject : TCPlusObject; where : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_MouseDown';
procedure BTextControl_AttachedToWindow(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_AttachedToWindow'; procedure BTextControl_AttachedToWindow(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_AttachedToWindow';
@@ -222,12 +223,12 @@ begin
BTextControl_GetAlignment(CPlusObject, alabel, texte); BTextControl_GetAlignment(CPlusObject, alabel, texte);
end; end;
procedure TTextControl.SetDivider(dividing_line : double); procedure TTextControl.SetDivider(dividing_line : single);
begin begin
BTextControl_SetDivider(CPlusObject, dividing_line); BTextControl_SetDivider(CPlusObject, dividing_line);
end; end;
function TTextControl.Divider : double; function TTextControl.Divider : single;
begin begin
Result := BTextControl_Divider(CPlusObject); Result := BTextControl_Divider(CPlusObject);
end; end;