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

tvplanit: Minor refactoring of unit VpEdElem.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8509 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-03 17:18:42 +00:00
parent b2991baa90
commit be8de46cce
10 changed files with 77 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/languages/vpsr.de.po
View File

@ -1022,6 +1022,10 @@ msgstr "Pixel"
msgid "Play"
msgstr "Abspielen"
#: vpsr.rspleaseenterfloat
msgid "Please enter a valid floating point value."
msgstr "Bitte gültige Gleitkomma-Zahl eingeben."
#: vpsr.rspopupaddevent
msgctxt "vpsr.rspopupaddevent"
msgid "Add event..."

7
components/tvplanit/languages/vpsr.en.po
View File

@ -1,6 +1,6 @@
msgid ""
msgstr ""
"Project-Id-Version: \n"
"Project-Id-Version: TvPlanIt\n"
"POT-Creation-Date: \n"
"PO-Revision-Date: \n"
"Last-Translator: \n"
@ -1014,6 +1014,10 @@ msgstr "Pixels"
msgid "Play"
msgstr "Play"
#: vpsr.rspleaseenterfloat
msgid "Please enter a valid floating point value."
msgstr "Please enter a valid floating point value."
#: vpsr.rspopupaddevent
msgid "Add event..."
msgstr "Add event..."
@ -1792,4 +1796,3 @@ msgstr "Unknown axis specifier: %s"
#: vpsr.sxmldecnotatbeg
msgid "The XML declaration must appear before the first element"
msgstr "The XML declaration must appear before the first element"

4
components/tvplanit/languages/vpsr.fi.po
View File

@ -1013,6 +1013,10 @@ msgstr ""
msgid "Play"
msgstr ""
#: vpsr.rspleaseenterfloat
msgid "Please enter a valid floating point value."
msgstr ""
#: vpsr.rspopupaddevent
msgctxt "vpsr.rspopupaddevent"
msgid "Add event..."

4
components/tvplanit/languages/vpsr.fr.po
View File

@ -1028,6 +1028,10 @@ msgstr ""
msgid "Play"
msgstr ""
#: vpsr.rspleaseenterfloat
msgid "Please enter a valid floating point value."
msgstr ""
#: vpsr.rspopupaddevent
msgctxt "vpsr.rspopupaddevent"
msgid "Add event..."

4
components/tvplanit/languages/vpsr.nl.po
View File

@ -1022,6 +1022,10 @@ msgstr ""
msgid "Play"
msgstr ""
#: vpsr.rspleaseenterfloat
msgid "Please enter a valid floating point value."
msgstr ""
#: vpsr.rspopupaddevent
msgctxt "vpsr.rspopupaddevent"
msgid "Add event..."

4
components/tvplanit/languages/vpsr.pl.po
View File

@ -1022,6 +1022,10 @@ msgstr "Pixele"
msgid "Play"
msgstr ""
#: vpsr.rspleaseenterfloat
msgid "Please enter a valid floating point value."
msgstr ""
#: vpsr.rspopupaddevent
msgid "Add event..."
msgstr "Dodaj wydarzenie..."

4
components/tvplanit/languages/vpsr.pot
View File

@ -1004,6 +1004,10 @@ msgstr ""
msgid "Play"
msgstr ""
#: vpsr.rspleaseenterfloat
msgid "Please enter a valid floating point value."
msgstr ""
#: vpsr.rspopupaddevent
msgid "Add event..."
msgstr ""

4
components/tvplanit/languages/vpsr.ru.po
View File

@ -1022,6 +1022,10 @@ msgstr ""
msgid "Play"
msgstr ""
#: vpsr.rspleaseenterfloat
msgid "Please enter a valid floating point value."
msgstr ""
#: vpsr.rspopupaddevent
msgctxt "vpsr.rspopupaddevent"
msgid "Add event..."

1
components/tvplanit/source/include/vpsr.inc
View File

@ -381,6 +381,7 @@ resourcestring
RSSaveFileBtn = 'Save file...';
RSNoPrintFormatName = 'Please supply a format name';
RSNoDayIncrement = 'Day increment unit not specified.';
RSPleaseEnterFloat = 'Please enter a valid floating point value.';
RSReportSetup = 'Report setup';

90
components/tvplanit/source/vpedelem.pas
View File

@ -134,7 +134,10 @@ function EvalFmt(Val : Extended) : string;
begin
Result := FormatFloat('0.00', Val);
end;
{=====}
{******************************************************************************}
{* TfrmEditElement *}
{******************************************************************************}
procedure TfrmEditElement.FormCreate(Sender: TObject);
var
i: Integer;
@ -156,24 +159,24 @@ begin
SetCaptions;
end;
{=====}
procedure TfrmEditElement.FormShow(Sender: TObject);
begin
PositionControls;
edName.SetFocus;
end;
{=====}
procedure TfrmEditElement.btnCaptionFontClick(Sender: TObject);
begin
if FontDialog1.Execute then
TheCaption.Font := FontDialog1.Font;
end;
{=====}
procedure TfrmEditElement.btnCancelClick(Sender: TObject);
begin
ModalResult := mrCancel;
end;
{=====}
procedure TfrmEditElement.btnOkClick(Sender: TObject);
begin
if Validate then
@ -184,7 +187,7 @@ begin
Exit;
end;
end;
{=====}
procedure TfrmEditElement.btnShapeClick(Sender: TObject);
var
frmEditShape: TfrmEditShape;
@ -193,12 +196,12 @@ begin
frmEditShape.Execute(TheShape);
frmEditShape.Free;
end;
{=====}
procedure TfrmEditElement.edCaptionTextChange(Sender: TObject);
begin
TheCaption.Caption := edCaptionText.Text;
end;
{=====}
function TfrmEditElement.Execute(AnElement : TVpPrintFormatElementItem) : Boolean;
begin
SetData(AnElement);
@ -206,45 +209,44 @@ begin
if Result then
SaveData(AnElement);
end;
{=====}
procedure TfrmEditElement.PosEditEnter(Sender: TObject);
begin
CurEdit := (Sender as TEdit);
end;
{=====}
procedure TfrmEditElement.PosEditExit(Sender: TObject);
var
ed : TEdit;
Val : Extended;
ed: TEdit;
Val: Extended;
begin
ed := (Sender as TEdit);
try
Val := StrToFloat(ed.Text);
if TryStrToFloat(ed.Text, Val) then
begin
if Val > MaxSpin then begin
ed.Text := EvalFmt(MaxSpin);
end else
if Val < 0.0 then begin
ed.Text := EvalFmt(0);
end;
except
on EConvertError do begin
ShowMessage('Please Enter a Floating Point Value');
end else
begin
ed.SetFocus;
end;
MessageDlg(RSPleaseEnterFloat, mtError, [mbOK], 0);
end;
end;
{=====}
procedure TfrmEditElement.rgItemTypeClick(Sender: TObject);
begin
SetItemType(rgItemType.ItemIndex);
end;
{=====}
procedure TfrmEditElement.rgMeasurementClick(Sender: TObject);
begin
SetMaxSpin(rgMeasurement.ItemIndex);
end;
{=====}
procedure TfrmEditElement.SaveData(AnElement : TVpPrintFormatElementItem);
procedure TfrmEditElement.SaveData(AnElement: TVpPrintFormatElementItem);
begin
AnElement.ElementName := edName.Text;
@ -350,25 +352,19 @@ begin
chkVisible.Checked := AnElement.Visible;
end;
{=====}
procedure TfrmEditElement.SetItemType(Index : Integer);
begin
rgItemType.ItemIndex := Index;
gbCaption.Enabled := False;
edCaptionText.Enabled := False;
lblCaptionText.Enabled := False;
btnCaptionFont.Enabled := False;
btnShape.Enabled := TVpItemType(Index) = itShape;
btnShape.Enabled := Index = 4;
if Index = 5 then begin
gbCaption.Enabled := True;
edCaptionText.Enabled := True;
lblCaptionText.Enabled := True;
btnCaptionFont.Enabled := True;
end;
gbCaption.Enabled := TVpItemType(Index) = itCaption;
edCaptionText.Enabled := gbCaption.Enabled;
lblCaptionText.Enabled := gbCaption.Enabled;
btnCaptionFont.Enabled := gbCaption.Enabled;
end;
{=====}
procedure TfrmEditElement.SetMaxSpin(Spin : Integer);
begin
case Spin of
@ -381,26 +377,23 @@ begin
udTop.Max := MaxSpin;
udHeight.Max := MaxSpin;
udWidth.Max := MaxSpin;
end;
{=====}
procedure TfrmEditElement.UpDownClick(Sender: TObject; Button: TUDBtnType);
var
Val, Inc : Extended;
begin
if Sender = udLeft then CurEdit := edLeft ;
if Sender = udTop then CurEdit := edTop ;
if Sender = udLeft then CurEdit := edLeft;
if Sender = udTop then CurEdit := edTop;
if Sender = udHeight then CurEdit := edHeight;
if Sender = udWidth then CurEdit := edWidth ;
if Sender = udWidth then CurEdit := edWidth;
Val := 0.0;
try
Val := StrToFloat(CurEdit.Text);
except
on EConvertError do begin
ShowMessage('Please Enter a Floating Point Value');
if not TryStrToFloat(CurEdit.Text, Val) then
begin
Val := 0.0;
CurEdit.SetFocus;
end;
MessageDlg(RSPleaseEnterFloat, mtError, [mbOK], 0);
end;
Inc := udLeft.Increment / 100;
@ -417,12 +410,11 @@ begin
end;
end;
end;
{=====}
function TfrmEditElement.Validate : Boolean;
function TfrmEditElement.Validate: Boolean;
begin
Result := edName.Text <> '';
end;
{=====}
end.