pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Add settings dialogs from shared examples folder to fpsctrls/demo_ctrls demo project.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4024 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-03-13 22:54:42 +00:00
parent 0f0f3e8651
commit 18e94d29b1
13 changed files with 427 additions and 170 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
components/fpspreadsheet/examples/visual/shared/sformatsettingsform.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
Grids, ButtonPanel, ComCtrls, StdCtrls, Spin, ExtCtrls, sCtrls;
Grids, ButtonPanel, ComCtrls, StdCtrls, Spin, ExtCtrls, Buttons, sCtrls;
type
{ TFormatSettingsForm }
@ -15,6 +15,7 @@ type
Bevel1: TBevel;
Bevel2: TBevel;
Bevel3: TBevel;
BtnCurrency: TBitBtn;
ButtonPanel: TButtonPanel;
CbLongDateFormat: TComboBox;
CbLongTimeFormat: TComboBox;
@ -48,6 +49,7 @@ type
PgCurrency: TTabSheet;
PgDateTime: TTabSheet;
PgNumber: TTabSheet;
procedure BtnCurrencyClick(Sender: TObject);
procedure DateTimeFormatChange(Sender: TObject);
procedure EdCurrencySymbolChange(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
@ -81,7 +83,8 @@ var
implementation
uses
fpsUtils;
fpsUtils,
sCurrencyForm;
const
CURR_VALUE = 100.0;
@ -154,6 +157,20 @@ begin
// Application.ProcessMessages;
end;
procedure TFormatSettingsForm.BtnCurrencyClick(Sender: TObject);
var
F: TCurrencyForm;
begin
F := TCurrencyForm.Create(nil);
try
F.CurrencySymbol := EdCurrencySymbol.Text;
if F.ShowModal = mrOK then
EdCurrencySymbol.Text := F.CurrencySymbol;
finally
F.Free;
end;
end;
procedure TFormatSettingsForm.EdCurrencySymbolChange(Sender: TObject);
var
currSym: String;