paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-01 07:29:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

added resourcestrings of LCL component to constructor

Browse Source 
git-svn-id: trunk@16997 -
This commit is contained in:
darius 2008-10-15 08:23:28 +00:00
parent 1fec8e9baf
commit 706b297bba
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/buttonpanel.pas
View File

@ -20,7 +20,7 @@ interface
uses
Buttons, Classes, LCLProc, Controls, Dialogs, ExtCtrls, Forms, Graphics,
GraphType, LCLType, SysUtils;
GraphType, LCLType, SysUtils, LCLStrConsts;
type
TButtonOrder = (boDefault, boCloseCancelOK, boCloseOKCancel);
@ -401,6 +401,7 @@ begin
BorderSpacing.Around := 6;
AutoSize := True;
Align := alRight;
Caption := rsMbCancel;
end;
FCloseButton := TPanelBitBtn.Create(Self);
with FCloseButton do
@ -411,6 +412,7 @@ begin
BorderSpacing.Around := 6;
AutoSize := True;
Align := alRight;
Caption := rsMbClose;
end;
FHelpButton := TPanelBitBtn.Create(Self);
with FHelpButton do
@ -421,6 +423,7 @@ begin
BorderSpacing.Around := 6;
AutoSize := True;
Align := alLeft;
Caption := rsMbHelp;
end;
FOKButton := TPanelBitBtn.Create(Self);
with FOKButton do
@ -431,6 +434,7 @@ begin
BorderSpacing.Around := 6;
AutoSize := True;
Align := alRight;
Caption := rsMbOK;
end;
FCancelGlyph := TBitmap.Create;