paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 10:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed invalid resize in make resourcestring dlg, added resource strings

Browse Source 
git-svn-id: trunk@24448 -
This commit is contained in:
mattias 2010-04-05 20:09:18 +00:00
parent c9748f2eeb
commit 5fac7411d2
3 changed files with 695 additions and 268 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

947
ide/makeresstrdlg.lfm
View File

File diff suppressed because it is too large Load Diff

14
ide/makeresstrdlg.pas
View File

@ -94,7 +94,6 @@ type
procedure IdentLengthComboBoxChange(Sender: TObject); procedure IdentLengthComboBoxChange(Sender: TObject);
procedure IdentPrefixComboBoxChange(Sender: TObject); procedure IdentPrefixComboBoxChange(Sender: TObject);
procedure IdentifierEditChange(Sender: TObject); procedure IdentifierEditChange(Sender: TObject);
procedure IdentPrefixLabelResize(Sender: TObject);
procedure OkButtonClick(Sender: TObject); procedure OkButtonClick(Sender: TObject);
procedure ResStrSectionComboBoxChange(Sender: TObject); procedure ResStrSectionComboBoxChange(Sender: TObject);
procedure ResStrWithSameValuesComboboxChange(Sender: TObject); procedure ResStrWithSameValuesComboboxChange(Sender: TObject);
@ -232,19 +231,6 @@ begin
UpdateSourcePreview; UpdateSourcePreview;
end; end;
procedure TMakeResStrDialog.IdentPrefixLabelResize(Sender: TObject);
var
w: integer;
begin
w := IdentPrefixLabel.Width;
w := Max(w, ResStrSectionLabel.Width);
w := Max(w, ResStrWithSameValueLabel.Width);
IdentPrefixLabel.Width := w;
ResStrSectionLabel.Width := w;
ResStrWithSameValueLabel.Width := w;
end;
procedure TMakeResStrDialog.OkButtonClick(Sender: TObject); procedure TMakeResStrDialog.OkButtonClick(Sender: TObject);
var var
Index: Integer; Index: Integer;

2
packager/openinstalledpkgdlg.pas
View File

@ -156,6 +156,8 @@ begin
end; end;
OpenButton.Caption:=lisMenuOpen; OpenButton.Caption:=lisMenuOpen;
CancelButton.Caption:=dlgCancel;
HelpButton.Caption:=dlgGroupHelp;
end; end;
procedure TOpenInstalledPackagesDlg.HelpButtonClick(Sender: TObject); procedure TOpenInstalledPackagesDlg.HelpButtonClick(Sender: TObject);