paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 11:40:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Make thetype of TextHint TTranslateString instead of String (part of issue #0028129).

Browse Source 
git-svn-id: trunk@49285 -
This commit is contained in:
bart 2015-06-07 09:46:32 +00:00
parent 5383338553
commit 0d656c63ff
3 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/editbtn.pas
View File

@ -120,7 +120,7 @@ type
function GetSpacing: Integer;
function GetTabStop: Boolean;
function GetText: TCaption;
function GetTextHint: TCaption;
function GetTextHint: TTranslateString;
function GetTextHintFontColor: TColor;
function GetTextHintFontStyle: TFontStyles;
function IsCustomGlyph : Boolean;
@ -185,7 +185,7 @@ type
procedure SetSelText(AValue: String);
procedure SetSpacing(const Value: integer);
procedure SetTabStop(AValue: Boolean);
procedure SetTextHint(AValue: TCaption);
procedure SetTextHint(AValue: TTranslateString);
procedure SetTextHintFontColor(AValue: TColor);
procedure SetTextHintFontStyle(AValue: TFontStyles);
protected
@ -300,7 +300,7 @@ type
property SelText: String read GetSelText write SetSelText;
property TabStop: Boolean read GetTabStop write SetTabStop default True;
property Text: TCaption read GetText write SetText;
property TextHint: TCaption read GetTextHint write SetTextHint;
property TextHint: TTranslateString read GetTextHint write SetTextHint;
property TextHintFontColor: TColor read GetTextHintFontColor write SetTextHintFontColor default clGrayText;
property TextHintFontStyle: TFontStyles read GetTextHintFontStyle write SetTextHintFontStyle default [fsItalic];
@ -1196,7 +1196,7 @@ begin
Result := FEdit.Text;
end;
function TCustomEditButton.GetTextHint: TCaption;
function TCustomEditButton.GetTextHint: TTranslateString;
begin
Result := FEdit.TextHint;
end;
@ -1802,7 +1802,7 @@ begin
FEdit.TabStop := AValue;
end;
procedure TCustomEditButton.SetTextHint(AValue: TCaption);
procedure TCustomEditButton.SetTextHint(AValue: TTranslateString);
begin
FEdit.TextHint := AValue;
end;

2
lcl/include/customedit.inc
View File

@ -618,7 +618,7 @@ begin
Result:=fCaretPos;
end;
procedure TCustomEdit.SetTextHint(AValue: String);
procedure TCustomEdit.SetTextHint(AValue: TTranslateString);
begin
if (FTextHint = AValue) then Exit;
FTextHint := AValue;

6
lcl/stdctrls.pp
View File

@ -707,7 +707,7 @@ type
FSelLength: integer;
FSelStart: integer;
FTextChangedByRealSetText: Boolean;
FTextHint: String;
FTextHint: TTranslateString;
FTextHintShowing: Boolean;
FSettingTextHint: Boolean;
FTextHintFontColor: TColor;
@ -715,7 +715,7 @@ type
FSavedFontColor: TColor;
FSavedFontStyle: TFontStyles;
FSavedParentFont: Boolean;
procedure SetTextHint(AValue: String);
procedure SetTextHint(AValue: TTranslateString);
procedure ShowTextHint;
procedure HideTextHint;
procedure SetAlignment(const AValue: TAlignment);
@ -794,7 +794,7 @@ type
property TabOrder;
property TabStop default true;
property Text;
property TextHint: String read FTextHint write SetTextHint;
property TextHint: TTranslateString read FTextHint write SetTextHint;
property TextHintFontColor: TColor read FTextHintFontColor write FTextHintFontColor default clGrayText;
property TextHintFontStyle: TFontStyles read FTextHintFontStyle write FTextHintFontStyle default [fsItalic];
end;