paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 16:38:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

more localization for gtk- and win32-interface and lcl

Browse Source 
git-svn-id: trunk@2236 -
This commit is contained in:
mattias 2002-08-17 23:41:09 +00:00
parent 97ab031183
commit a92a30ab47
6 changed files with 28 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/arrow.pp
View File

@ -26,7 +26,7 @@
@author(Shane Miller)
@created(05 Dev 2001)
}
unit arrow;
unit Arrow;
{$mode objfpc}{$H+}

8
lcl/controls.pp
View File

@ -39,8 +39,9 @@ interface
{$ENDIF}
uses
Classes, SysUtils, vclglobals, LCLType, LCLProc, GraphType, Graphics,
LMessages, LCLLinux, InterfaceBase, ImgList, UTrace, Menus, ActnList;
Classes, SysUtils, LCLStrConsts, vclglobals, LCLType, LCLProc,
GraphType, Graphics, LMessages, LCLLinux, InterfaceBase, ImgList, UTrace,
Menus, ActnList;
const
@ -1443,6 +1444,9 @@ end.
{ =============================================================================
$Log$
Revision 1.105 2003/03/11 07:46:43 mattias
more localization for gtk- and win32-interface and lcl
Revision 1.104 2003/03/09 17:44:12 mattias
finshed Make Resourcestring dialog and implemented TToggleBox

5
lcl/include/hkeys.inc
View File

@ -1,3 +1,4 @@
// included by vclglobals.pp
{
$Id$
@ -101,9 +102,13 @@ const
key_Escape = $1b;
key_Delete = $7f;
// included by vclglobals.pp
{
$Log$
Revision 1.3 2003/03/11 07:46:43 mattias
more localization for gtk- and win32-interface and lcl
Revision 1.2 2002/05/10 06:05:52 lazarus
MG: changed license to LGPL

14
lcl/include/menubar.inc
View File

@ -1,3 +1,4 @@
// included by menus.pp
{
*****************************************************************************
* *
@ -15,21 +16,13 @@
{---------------------------------------------------------------------------------------------}
constructor TMenuBar.Create(AOwner: TComponent);
begin
Assert(False, 'Trace:TMenuBar.Create');
Inherited Create(AOwner);
Assert(False, 'Trace:Back from TMenuBar inherited Create');
// fCompStyle := csMenuBar;
// CreateComponent(AOwner);
// fOwner := TControl(AOwner);
end;
{-----------------------------------------------------------------------------}
procedure TMenuBar.Show;
begin
// AddControl;
Assert(False, 'Trace:In Menubar.show');
// Inherited Show;
Assert(False, 'Trace:In Menubar.show');
end;
{---------------------------------------------------------------------------------------------}
@ -46,3 +39,6 @@ begin
// gtk_menu_item_set_submenu(GTK_MENU_ITEM(TControl(fMenu).fComponent), TControl(Menu).fComponent);
// gtk_menu_bar_append(GTK_MENU_BAR(fComponent), TControl(fMenu).fComponent);
end;
// included by menus.pp

9
lcl/include/scrolledwindow.inc
View File

@ -1,3 +1,5 @@
// included by controls.pp
{
*****************************************************************************
* *
@ -27,7 +29,7 @@ begin
Height := 500;
Width := 300;
AddControl;
AddControl;
end;
{------------------------------------------------------------------------------}
@ -35,5 +37,8 @@ end;
{------------------------------------------------------------------------------}
destructor TScrolledWindow.Destroy;
begin
inherited Destroy;
inherited Destroy;
end;
// included by controls.pp

5
lcl/interfaces/gnome/gnomeint.pp
View File

@ -22,7 +22,7 @@
*****************************************************************************
}
unit GNOMEInt;
unit GnomeInt;
{$mode objfpc}
{$LONGSTRINGS ON}
@ -246,6 +246,9 @@ end.
{
$Log$
Revision 1.16 2003/03/11 07:46:44 mattias
more localization for gtk- and win32-interface and lcl
Revision 1.15 2002/02/09 01:48:23 mattias
renamed TinterfaceObject.Init to AppInit and TWinControls can now contain childs in gtk