Changeset 6 for trunk/Inp.pas

Timestamp:

Jan 7, 2017, 11:32:14 AM (8 years ago)

Author:

chronos

Message:

• Modified: Formated all project source files using Delphi formatter as original indentation and other formatting was really bad.

File:

• trunk/Inp.pas (modified) (3 diffs)

trunk/Inp.pas

@@ -1 +1 @@
 {$INCLUDE switches}
-
 unit Inp;
 
@@ -6 +5 @@
 
 uses
-  ScreenTools,Messg,
+  ScreenTools, Messg,
 
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
@@ -36 +35 @@
 procedure TInputDlg.FormCreate(Sender: TObject);
 begin
-Canvas.Font.Assign(UniFont[ftNormal]);
-Canvas.Brush.Style:=bsClear;
-TitleHeight:=ClientHeight;
-InitButtons();
-Center:=true
+  Canvas.Font.Assign(UniFont[ftNormal]);
+  Canvas.Brush.Style := bsClear;
+  TitleHeight := ClientHeight;
+  InitButtons();
+  Center := true
 end;
 
 procedure TInputDlg.FormPaint(Sender: TObject);
 begin
-PaintBackground(self,3,3,ClientWidth-6,ClientHeight-6);
-Frame(Canvas,0,0,ClientWidth-1,ClientHeight-1,0,0);
-Frame(Canvas,1,1,ClientWidth-2,ClientHeight-2,MainTexture.clBevelLight,
-  MainTexture.clBevelShade);
-Frame(Canvas,2,2,ClientWidth-3,ClientHeight-3,MainTexture.clBevelLight,
-  MainTexture.clBevelShade);
-EditFrame(Canvas,EInput.BoundsRect,MainTexture);
-BtnFrame(Canvas,OKBtn.BoundsRect,MainTexture);
-RisedTextOut(Canvas,(ClientWidth-BiColorTextWidth(Canvas,Caption)) div 2,9,Caption);
-{Corner(canvas,1,1,0,MainTexture);
-Corner(canvas,ClientWidth-9,1,1,MainTexture);
-Corner(canvas,1,ClientHeight-9,2,MainTexture);
-Corner(canvas,ClientWidth-9,ClientHeight-9,3,MainTexture);}
+  PaintBackground(self, 3, 3, ClientWidth - 6, ClientHeight - 6);
+  Frame(Canvas, 0, 0, ClientWidth - 1, ClientHeight - 1, 0, 0);
+  Frame(Canvas, 1, 1, ClientWidth - 2, ClientHeight - 2,
+    MainTexture.clBevelLight, MainTexture.clBevelShade);
+  Frame(Canvas, 2, 2, ClientWidth - 3, ClientHeight - 3,
+    MainTexture.clBevelLight, MainTexture.clBevelShade);
+  EditFrame(Canvas, EInput.BoundsRect, MainTexture);
+  BtnFrame(Canvas, OKBtn.BoundsRect, MainTexture);
+  RisedTextOut(Canvas, (ClientWidth - BiColorTextWidth(Canvas, Caption)) div 2,
+    9, Caption);
+  { Corner(canvas,1,1,0,MainTexture);
+    Corner(canvas,ClientWidth-9,1,1,MainTexture);
+    Corner(canvas,1,ClientHeight-9,2,MainTexture);
+    Corner(canvas,ClientWidth-9,ClientHeight-9,3,MainTexture); }
 end;
 
 procedure TInputDlg.OKBtnClick(Sender: TObject);
 begin
-if EInput.Text='' then ModalResult:=mrCancel
-else ModalResult:=mrOK
+  if EInput.Text = '' then
+    ModalResult := mrCancel
+  else
+    ModalResult := mrOK
 end;
 
 procedure TInputDlg.EInputKeyPress(Sender: TObject; var Key: Char);
 begin
-if (Key=#13) and (EInput.Text<>'') then begin Key:=#0 ; ModalResult:=mrOK end
-else if Key=#27 then begin Key:=#0; ModalResult:=mrCancel end
+  if (Key = #13) and (EInput.Text <> '') then
+  begin
+    Key := #0;
+    ModalResult := mrOK
+  end
+  else if Key = #27 then
+  begin
+    Key := #0;
+    ModalResult := mrCancel
+  end
 end;
 
 procedure TInputDlg.FormShow(Sender: TObject);
 begin
-OKBtn.Caption:=Phrases.Lookup('BTN_OK');
-EInput.Font.Color:=MainTexture.clMark;
-EInput.SelStart:=0;
-EInput.SelLength:=Length(EInput.Text);
-if Center then CenterToRect(Rect(0,0,Screen.Width,Screen.Height));
+  OKBtn.Caption := Phrases.Lookup('BTN_OK');
+  EInput.Font.Color := MainTexture.clMark;
+  EInput.SelStart := 0;
+  EInput.SelLength := Length(EInput.Text);
+  if Center then
+    CenterToRect(Rect(0, 0, Screen.Width, Screen.Height));
 end;
 
 procedure TInputDlg.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
-Center:=true
+  Center := true
 end;
 
 procedure TInputDlg.CenterToRect(Rect: TRect);
 begin
-Center:=false;
-Left:=Rect.Left+(Rect.Right-Rect.Left-Width) div 2;
-Top:=Rect.Top+(Rect.Bottom-Rect.Top-Height) div 2;
+  Center := false;
+  Left := Rect.Left + (Rect.Right - Rect.Left - Width) div 2;
+  Top := Rect.Top + (Rect.Bottom - Rect.Top - Height) div 2;
 end;
 
 end.
-