paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 12:18:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: moved TTranslateString to lcltype.pp

Browse Source 
git-svn-id: trunk@10272 -
This commit is contained in:
mattias 2006-12-01 17:11:17 +00:00
parent e6b41be37c
commit 82dafe9281
4 changed files with 9 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/actnlist.pas
View File

@ -142,7 +142,7 @@ type
TCustomAction = class(TContainedAction)
private
FDisableIfNoHandler: Boolean;
FCaption: string;
FCaption: TTranslateString;
FChecking: Boolean;
FChecked: Boolean;
FEnabled: Boolean;
@ -150,7 +150,7 @@ type
FHelpType: THelpType;
FHelpContext: THelpContext;
FHelpKeyword: string;
FHint: string;
FHint: TTranslateString;
FImageIndex: TImageIndex;
FShortCut: TShortCut;
FVisible: Boolean;
@ -159,14 +159,14 @@ type
FSavedEnabledState: Boolean;
FAutoCheck: Boolean;
procedure SetAutoCheck(Value: Boolean);
procedure SetCaption(const Value: string);
procedure SetCaption(const Value: TTranslateString);
procedure SetChecked(Value: Boolean);
procedure SetEnabled(Value: Boolean);
procedure SetGroupIndex(const Value: Integer);
procedure SetHelpContext(Value: THelpContext); virtual;
procedure SetHelpKeyword(const Value: string); virtual;
procedure SetHelpType(Value: THelpType);
procedure SetHint(const Value: string);
procedure SetHint(const Value: TTranslateString);
procedure SetImageIndex(Value: TImageIndex);
procedure SetShortCut(Value: TShortCut);
procedure SetVisible(Value: Boolean);
@ -189,7 +189,7 @@ type
public
property AutoCheck: Boolean
read FAutoCheck write SetAutoCheck default False;
property Caption: string read FCaption write SetCaption;
property Caption: TTranslateString read FCaption write SetCaption;
property Checked: Boolean read FChecked write SetChecked default False;
property DisableIfNoHandler: Boolean read FDisableIfNoHandler
write FDisableIfNoHandler default False;
@ -200,7 +200,7 @@ type
property HelpKeyword: string read FHelpKeyword write SetHelpKeyword;
property HelpType: THelpType
read FHelpType write SetHelpType default htContext;
property Hint: string read FHint write SetHint;
property Hint: TTranslateString read FHint write SetHint;
property ImageIndex: TImageIndex
read FImageIndex write SetImageIndex default -1;
property ShortCut: TShortCut read FShortCut write SetShortCut default 0;

1
lcl/controls.pp
View File

@ -115,7 +115,6 @@ const
asrRight = asrBottom;
type
TTranslateString = type String;
TCaption = TTranslateString;
TCursor = -32768..32767;

4
lcl/include/customaction.inc
View File

@ -75,7 +75,7 @@ begin
end;
end;
procedure TCustomAction.SetCaption(const Value: string);
procedure TCustomAction.SetCaption(const Value: TTranslateString);
var
I: Integer;
Link: TActionLink;
@ -218,7 +218,7 @@ begin
end;
end;
procedure TCustomAction.SetHint(const Value: string);
procedure TCustomAction.SetHint(const Value: TTranslateString);
var
I: Integer;
Link: TActionLink;

7
lcl/lcltype.pp
View File

@ -68,12 +68,7 @@ type
{$ENDIF USE_UTF8BIDI_LCL}
UINT = LongWord;
{PLongInt = ^LongInt;
PInteger = ^Integer;
PSmallInt = ^SmallInt;
PDouble = ^Double;
PAnsiChar = ^AnsiChar;
PWideChar = ^WideChar;}
TTranslateString = type String;
TCriticalSection = PtrInt;
PCriticalSection = ^TCriticalSection;