paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 11:20:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

resizes for localizations

Browse Source 
git-svn-id: trunk@5607 -
This commit is contained in:
mattias 2004-06-28 17:30:22 +00:00
parent a0099c31b4
commit 1354eab275
5 changed files with 71 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/finddeclarationtool.pas
View File

@ -258,6 +258,7 @@ type
xtLongint, // longint
xtLongWord, // longword
xtWord, // word
xtSmallInt, // smallint
xtCompilerFunc,// SUCC, PREC, LOW, HIGH, ORD, LENGTH, COPY (1.1)
xtNil // nil = pointer, class, procedure, method, ...
);
@ -297,6 +298,7 @@ const
'LongInt',
'LongWord',
'Word',
'SmallInt',
'CompilerFunc',
'Nil'
);
@ -304,7 +306,7 @@ const
xtAllTypes = [Low(TExpressionTypeDesc)..High(TExpressionTypeDesc)]-[xtNone];
xtAllPredefinedTypes = xtAllTypes-[xtContext];
xtAllIntegerTypes = [xtInt64, xtQWord, xtConstOrdInteger, xtLongint,
xtLongWord, xtWord, xtCardinal];
xtLongWord, xtWord, xtCardinal, xtSmallInt];
xtAllBooleanTypes = [xtBoolean, xtByteBool, xtLongBool];
xtAllRealTypes = [xtReal, xtConstReal, xtSingle, xtDouble, xtExtended,
xtCurrency, xtComp];
@ -781,6 +783,8 @@ begin
Result:=xtWord
else if CompareIdentifiers(Identifier,'LONGWORD')=0 then
Result:=xtCardinal
else if CompareIdentifiers(Identifier,'SMALLINT')=0 then
Result:=xtSmallInt
else
Result:=xtNone;
end;
@ -6235,6 +6239,7 @@ begin
xtText,
xtLongint,
xtLongWord,
xtSmallInt,
xtWord:
Result:=ExpressionTypeDescNames[ExprType.Desc];

1
components/codetools/keywordfunclists.pas
View File

@ -1164,6 +1164,7 @@ begin
Add('WORD' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('LONGINT' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('COPY' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('SMALLINT' ,{$ifdef FPC}@{$endif}AllwaysTrue);
end;
WordIsPredefinedDelphiIdentifier:=TKeyWordFunctionList.Create;

4
ide/diffdialog.pas
View File

@ -204,12 +204,12 @@ begin
// buttons
with CloseButton do begin
SetBounds(Parent.ClientWidth-300,Parent.ClientHeight-32,75,Height);
SetBounds(Parent.ClientWidth-300,Parent.ClientHeight-32,80,Height);
end;
with OpenInEditorButton do begin
SetBounds(CloseButton.Left+CloseButton.Width+10,CloseButton.Top,
150,CloseButton.Height);
200,CloseButton.Height);
end;
end;

98
ide/findreplacedialog.pp
View File

@ -47,44 +47,44 @@ type
FindDlgComponent: TFindDlgComponent) of Object;
TLazFindReplaceDialog = class(TForm)
TextToFindLabel:TLabel;
ReplaceWithLabel:TLabel;
TextToFindComboBox:TComboBox;
ReplaceTextComboBox:TComboBox;
OptionsGroupBox:TGroupBox;
CaseSensitiveCheckBox:TCheckBox;
WholeWordsOnlyCheckBox:TCheckBox;
RegularExpressionsCheckBox:TCheckBox;
MultiLineCheckBox:TCheckBox;
PromptOnReplaceCheckBox:TCheckBox;
DirectionRadioGroup:TRadioGroup;
ScopeRadioGroup:TRadioGroup;
OriginRadioGroup:TRadioGroup;
OkButton:TButton;
ReplaceAllButton:TButton;
CancelButton:TButton;
procedure TextToFindComboboxKeyDown(Sender: TObject; var Key:Word;
Shift:TShiftState);
procedure OkButtonClick(Sender:TObject);
procedure ReplaceAllButtonClick(Sender:TObject);
procedure CancelButtonClick(Sender:TObject);
TextToFindLabel: TLabel;
ReplaceWithLabel: TLabel;
TextToFindComboBox: TComboBox;
ReplaceTextComboBox: TComboBox;
OptionsGroupBox: TGroupBox;
CaseSensitiveCheckBox: TCheckBox;
WholeWordsOnlyCheckBox: TCheckBox;
RegularExpressionsCheckBox: TCheckBox;
MultiLineCheckBox: TCheckBox;
PromptOnReplaceCheckBox: TCheckBox;
DirectionRadioGroup: TRadioGroup;
ScopeRadioGroup: TRadioGroup;
OriginRadioGroup: TRadioGroup;
OkButton: TButton;
ReplaceAllButton: TButton;
CancelButton: TButton;
procedure TextToFindComboboxKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure OkButtonClick(Sender: TObject);
procedure ReplaceAllButtonClick(Sender: TObject);
procedure CancelButtonClick(Sender: TObject);
private
FOnKey: TOnFindDlgKey;
fReplaceAllClickedLast:boolean;
fReplaceAllClickedLast: boolean;
RegExpr: TRegExpr;
function CheckInput: boolean;
function GetComponentText(c: TFindDlgComponent): string;
procedure SetComponentText(c: TFindDlgComponent; const AValue: string);
procedure SetOnKey(const AValue: TOnFindDlgKey);
procedure SetOptions(NewOptions:TSynSearchOptions);
function GetOptions:TSynSearchOptions;
function GetFindText:AnsiString;
procedure SetFindText(NewFindText:AnsiString);
function GetReplaceText:AnsiString;
procedure SetReplaceText(NewReplaceText:AnsiString);
procedure SetComboBoxText(AComboBox:TComboBox;const AText:AnsiString);
procedure SetOptions(NewOptions: TSynSearchOptions);
function GetOptions: TSynSearchOptions;
function GetFindText: AnsiString;
procedure SetFindText(const NewFindText: AnsiString);
function GetReplaceText: AnsiString;
procedure SetReplaceText(const NewReplaceText: AnsiString);
procedure SetComboBoxText(AComboBox: TComboBox; const AText: AnsiString);
public
constructor Create(TheOwner:TComponent); override;
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
public
property Options:TSynSearchOptions read GetOptions write SetOptions;
@ -178,8 +178,10 @@ begin
AutoSize := True;
Left:=8;
Top:=6;
Width:=155;
Width:=OptionsGroupBox.Width-10;
Caption:=dlgCaseSensitive;
Hint:=lisDistinguishBigAndSmallLettersEGAAndA;
ShowHint:=true;
end;
WholeWordsOnlyCheckBox:=TCheckBox.Create(Self);
@ -189,8 +191,10 @@ begin
AutoSize := False;
Left:=8;
Top:=31;
Width:=155;
Width:=CaseSensitiveCheckBox.Width;
Caption:=dlgWholeWordsOnly;
Hint:=lisOnlySearchForWholeWords;
ShowHint:=true;
end;
RegularExpressionsCheckBox:=TCheckBox.Create(Self);
@ -200,8 +204,10 @@ begin
AutoSize := False;
Left:=8;
Top:=56;
Width:=155;
Width:=CaseSensitiveCheckBox.Width;
Caption:=dlgRegularExpressions;
Hint:=lisActivateRegularExpressionSyntaxForTextAndReplaceme;
ShowHint:=true;
end;
MultiLineCheckBox:=TCheckBox.Create(Self);
@ -211,9 +217,11 @@ begin
AutoSize := False;
Left:=8;
Top:=81;
Width:=155;
Width:=CaseSensitiveCheckBox.Width;
Caption:=dlgMultiLine;
Enabled:=false;
Hint:=lisAllowSearchingForMultipleLines;
ShowHint:=true;
end;
PromptOnReplaceCheckBox:=TCheckBox.Create(Self);
@ -223,9 +231,11 @@ begin
AutoSize := False;
Left:=8;
Top:=106;
Width:=135;
Width:=CaseSensitiveCheckBox.Width;
Caption:=dlgPromptOnReplace;
Checked:=true;
Hint:=lisAskBeforeReplacingEachFoundText;
ShowHint:=true;
end;
OriginRadioGroup:=TRadioGroup.Create(Self);
@ -289,8 +299,9 @@ begin
with OkButton do begin
Name:='OkButton';
Parent:= Self;
Left:= 130;
Left:= 90;
Top:= 268;
Width:=80;
Caption:='Ok';
OnClick:=@OkButtonClick;
end;
@ -299,9 +310,9 @@ begin
with ReplaceAllButton do begin
Name:='ReplaceAllButton';
Parent:= Self;
Left:= 210;
Top:= 268;
Width:=99;
Left:= OkButton.Left+OkButton.Width+10;
Top:= OkButton.Top;
Width:=120;
Caption:=dlgReplaceAll;
OnClick:=@ReplaceAllButtonClick;
end;
@ -310,8 +321,9 @@ begin
with CancelButton do begin
Name:='CancelButton';
Parent:= Self;
Left:= 320;
Top:= 268;
Left:= ReplaceAllButton.Left+ReplaceAllButton.Width+10;
Top:= OkButton.Top;
Width:=80;
Caption:=dlgCancel;
OnClick:=@CancelButtonClick;
end;
@ -478,7 +490,7 @@ begin
Result:=TextToFindComboBox.Text;
end;
procedure TLazFindReplaceDialog.SetFindText(NewFindText:AnsiString);
procedure TLazFindReplaceDialog.SetFindText(const NewFindText:AnsiString);
begin
// SetComboBoxText(TextToFindComboBox,NewFindText);
TextToFindComboBox.Text:= NewFindText;
@ -490,7 +502,7 @@ begin
Result:=ReplaceTextComboBox.Text;
end;
procedure TLazFindReplaceDialog.SetReplaceText(NewReplaceText:AnsiString);
procedure TLazFindReplaceDialog.SetReplaceText(const NewReplaceText:AnsiString);
begin
SetComboBoxText(ReplaceTextComboBox,NewReplaceText);
end;

7
ide/lazarusidestrconsts.pas
View File

@ -952,10 +952,17 @@ resourcestring
dlgReplaceWith = '&Replace With';
dlgFROpts = 'Options';
dlgCaseSensitive = 'Case Sensitive';
lisDistinguishBigAndSmallLettersEGAAndA = 'Distinguish big and small '
+'letters e.g. A and a';
dlgWholeWordsOnly = 'Whole Words Only';
lisOnlySearchForWholeWords = 'Only search for whole words';
dlgRegularExpressions = 'Regular Expressions';
lisActivateRegularExpressionSyntaxForTextAndReplaceme = 'Activate regular '
+'expression syntax for text and replacement (pretty much like perl)';
dlgMultiLine = 'Multi Line';
lisAllowSearchingForMultipleLines = 'Allow searching for multiple lines';
dlgPromptOnReplace = 'Prompt On Replace';
lisAskBeforeReplacingEachFoundText = 'Ask before replacing each found text';
dlgSROrigin = 'Origin';
dlgFromCursor = 'From Cursor';
dlgEntireScope = 'Entire Scope';