[Gotisso-commit] SF.net SVN: gotisso:[13] trunk

[<jm...@us...>]

Revision: 13
          http://gotisso.svn.sourceforge.net/gotisso/?rev=13&view=rev
Author:   jmvaz
Date:     2009-12-06 01:51:56 +0000 (Sun, 06 Dec 2009)

Log Message:
-----------
changed class routine names from Portuguese to English

Modified Paths:
--------------
    trunk/lang/gotisso.po
    trunk/u_main.lfm
    trunk/u_main.lrt
    trunk/u_main.pas
    trunk/u_meal.pas

Modified: trunk/lang/gotisso.po
===================================================================
--- trunk/lang/gotisso.po	2009-12-06 01:47:17 UTC (rev 12)
+++ trunk/lang/gotisso.po	2009-12-06 01:51:56 UTC (rev 13)
@@ -49,7 +49,8 @@
 msgid "fmMain"
 msgstr ""
 
-#: TFMMAIN.GBCARDAPIO.CAPTION
+#: TFMMAIN.GBMENU.CAPTION
+msgctxt "TFMMAIN.GBMENU.CAPTION"
 msgid "Cardápio"
 msgstr ""
 

Modified: trunk/u_main.lfm
===================================================================
--- trunk/u_main.lfm	2009-12-06 01:47:17 UTC (rev 12)
+++ trunk/u_main.lfm	2009-12-06 01:51:56 UTC (rev 13)
@@ -10,7 +10,7 @@
   Position = poScreenCenter
   ShowHint = True
   LCLVersion = '0.9.28.2'
-  object gbCardapio: TGroupBox
+  object gbMenu: TGroupBox
     Left = 24
     Height = 361
     Top = 24

Modified: trunk/u_main.lrt
===================================================================
--- trunk/u_main.lrt	2009-12-06 01:47:17 UTC (rev 12)
+++ trunk/u_main.lrt	2009-12-06 01:51:56 UTC (rev 13)
@@ -1,5 +1,5 @@
 TFMMAIN.CAPTION=fmMain
-TFMMAIN.GBCARDAPIO.CAPTION=Cardápio
+TFMMAIN.GBMENU.CAPTION=Cardápio
 TFMMAIN.SGCARDAPIO.COLUMNS.TITLE.CAPTION=Data
 TFMMAIN.SGCARDAPIO.COLUMNS.TITLE.CAPTION=Pratos
 TFMMAIN.BTNEW.CAPTION=Nova...

Modified: trunk/u_main.pas
===================================================================
--- trunk/u_main.pas	2009-12-06 01:47:17 UTC (rev 12)
+++ trunk/u_main.pas	2009-12-06 01:51:56 UTC (rev 13)
@@ -40,7 +40,7 @@
     btUp: TButton;
     btPrint: TButton;
     btRemove: TButton;
-    gbCardapio: TGroupBox;
+    gbMenu: TGroupBox;
     PrintDialog: TPrintDialog;
     sgCardapio: TStringGrid;
     procedure btPrintClick(Sender: TObject);

Modified: trunk/u_meal.pas
===================================================================
--- trunk/u_meal.pas	2009-12-06 01:47:17 UTC (rev 12)
+++ trunk/u_meal.pas	2009-12-06 01:51:56 UTC (rev 13)
@@ -63,8 +63,8 @@
     procedure lbMealClick(Sender: TObject);
   private
     { private declarations }
-    procedure UpdateRefeicao;
-    function Adicionar: Boolean;
+    procedure UpdateMeal;
+    function Add: Boolean;
   public
     { public declarations }
   end; 
@@ -88,7 +88,7 @@
 begin
   cbType.ItemIndex:= 0;
   cbTypeChange(Sender);  // já que alterar o ItemIndex não dispara esse evento...
-  UpdateRefeicao;
+  UpdateMeal;
 end;
 
 procedure TfmMeal.cbTypeChange(Sender: TObject);
@@ -100,13 +100,13 @@
 
 procedure TfmMeal.btAddClick(Sender: TObject);
 begin
-  if not Adicionar then
+  if not Add then
     ShowMessage(sError);
 end;
 
 procedure TfmMeal.btAddAndCloseClick(Sender: TObject);
 begin
-  if not Adicionar then
+  if not Add then
     ShowMessage(sError)
   else
     Close;
@@ -123,7 +123,7 @@
         lbMeal.Items.Exchange(i, i+1);
         lbMeal.Selected[i+1]:= True;
       end;
-  UpdateRefeicao;
+  UpdateMeal;
 end;
 
 procedure TfmMeal.btCloseClick(Sender: TObject);
@@ -135,13 +135,13 @@
 procedure TfmMeal.btAddDishClick(Sender: TObject);
 begin
   lbMeal.Items.Add(cbDish.Items.Strings[cbDish.ItemIndex]);
-  UpdateRefeicao;
+  UpdateMeal;
 end;
 
 procedure TfmMeal.btClearClick(Sender: TObject);
 begin
   lbMeal.Clear;
-  UpdateRefeicao;
+  UpdateMeal;
 end;
 
 procedure TfmMeal.btRemoveClick(Sender: TObject);
@@ -151,7 +151,7 @@
   for i:= (lbMeal.Count-1) downto 0 do
     if lbMeal.Selected[i] then
       lbMeal.Items.Delete(i);
-  UpdateRefeicao;
+  UpdateMeal;
 end;
 
 procedure TfmMeal.btUpClick(Sender: TObject);
@@ -165,15 +165,15 @@
         lbMeal.Items.Exchange(i, i-1);
         lbMeal.Selected[i-1]:= True;
       end;
-  UpdateRefeicao;
+  UpdateMeal;
 end;
 
 procedure TfmMeal.lbMealClick(Sender: TObject);
 begin
-  UpdateRefeicao;
+  UpdateMeal;
 end;
 
-procedure TfmMeal.UpdateRefeicao;
+procedure TfmMeal.UpdateMeal;
 begin
   btUp.Enabled:= ((lbMeal.SelCount > 0) and (not lbMeal.Selected[0]));
   btDown.Enabled:= ((lbMeal.SelCount > 0) and (not lbMeal.Selected[lbMeal.Count-1]));
@@ -183,7 +183,7 @@
   btAddAndClose.Enabled:= btAdd.Enabled;
 end;
 
-function TfmMeal.Adicionar: Boolean;
+function TfmMeal.Add: Boolean;
 var
   Meal: TMeal;
   i: Integer;
@@ -200,7 +200,7 @@
     //TODO: falta adicionar ao cardápio
 
     lbMeal.Clear;
-    UpdateRefeicao;
+    UpdateMeal;
   except
     Result:= False;
   end;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.