Changeset 14 for trunk/Components/ButtonN.pas

Timestamp:

Jan 7, 2017, 8:54:23 PM (7 years ago)

Author:

chronos

Message:

• Removed: Do not create file association at runtime as it is done by installer program.
• Modified: Additional source formating using Delphi formatter.

File:

• trunk/Components/ButtonN.pas (modified) (5 diffs)

trunk/Components/ButtonN.pas

@@ -12 +12 @@
     FPossible, FLit: boolean;
     FGraphic, FMask, FBackGraphic: TBitmap;
-    FIndex,BackIndex: integer;
+    FIndex, BackIndex: integer;
     FSmartHint: string;
     ChangeProc: TNotifyEvent;
@@ -40 +40 @@
 procedure Register;
 begin
-RegisterComponents('Samples', [TButtonN]);
+  RegisterComponents('Samples', [TButtonN]);
 end;
 
 constructor TButtonN.Create(aOwner: TComponent);
 begin
-inherited Create(aOwner);
-ShowHint:=true;
-FGraphic:=nil;
-FBackGraphic:=nil;
-FPossible:=true;
-FLit:=false;
-FIndex:=-1;
-ChangeProc:=nil;
-SetBounds(0,0,42,42);
+  inherited Create(aOwner);
+  ShowHint := true;
+  FGraphic := nil;
+  FBackGraphic := nil;
+  FPossible := true;
+  FLit := false;
+  FIndex := -1;
+  ChangeProc := nil;
+  SetBounds(0, 0, 42, 42);
 end;
 
 procedure TButtonN.Paint;
 begin
-with Canvas do
+  with Canvas do
   begin
-  if FGraphic<>nil then
+    if FGraphic <> nil then
     begin
-    BitBlt(Canvas.Handle,1,1,40,40,FBackGraphic.Canvas.Handle,
-      1+80*BackIndex+40*byte(FPossible and FLit),176,SRCCOPY);
-    if FPossible then
+      BitBlt(Canvas.Handle, 1, 1, 40, 40, FBackGraphic.Canvas.Handle,
+        1 + 80 * BackIndex + 40 * byte(FPossible and FLit), 176, SRCCOPY);
+      if FPossible then
       begin
-      BitBlt(Canvas.Handle,3,3,36,36,FMask.Canvas.Handle,
-        195+37*(FIndex mod 3),21+37*(FIndex div 3),SRCAND);
-      BitBlt(Canvas.Handle,3,3,36,36,FGraphic.Canvas.Handle,
-        195+37*(FIndex mod 3),21+37*(FIndex div 3),SRCPAINT);
+        BitBlt(Canvas.Handle, 3, 3, 36, 36, FMask.Canvas.Handle,
+          195 + 37 * (FIndex mod 3), 21 + 37 * (FIndex div 3), SRCAND);
+        BitBlt(Canvas.Handle, 3, 3, 36, 36, FGraphic.Canvas.Handle,
+          195 + 37 * (FIndex mod 3), 21 + 37 * (FIndex div 3), SRCPAINT);
       end
     end;
-  MoveTo(0,41);
-  Pen.Color:=$B0B0B0;LineTo(0,0);LineTo(41,0);
-  Pen.Color:=$FFFFFF;LineTo(41,41);LineTo(0,41);
+    MoveTo(0, 41);
+    Pen.Color := $B0B0B0;
+    LineTo(0, 0);
+    LineTo(41, 0);
+    Pen.Color := $FFFFFF;
+    LineTo(41, 41);
+    LineTo(0, 41);
   end
 end;
 
 procedure TButtonN.MouseDown(Button: TMouseButton; Shift: TShiftState;
-      x, y: integer);
+  x, y: integer);
 begin
-if FPossible and (Button=mbLeft) and (@ChangeProc<>nil) then
-  ChangeProc(Self)
+  if FPossible and (Button = mbLeft) and (@ChangeProc <> nil) then
+    ChangeProc(Self)
 end;
 
 procedure TButtonN.SetPossible(x: boolean);
 begin
-if x<>FPossible then
+  if x <> FPossible then
   begin
-  FPossible:=x;
-  if x then Hint:=FSmartHint
-  else Hint:='';
-  Invalidate
+    FPossible := x;
+    if x then
+      Hint := FSmartHint
+    else
+      Hint := '';
+    Invalidate
   end
 end;
@@ -98 +104 @@
 procedure TButtonN.SetLit(x: boolean);
 begin
-if x<>FLit then
+  if x <> FLit then
   begin
-  FLit:=x;
-  Invalidate
+    FLit := x;
+    Invalidate
   end
 end;
@@ -107 +113 @@
 procedure TButtonN.SetIndex(x: integer);
 begin
-if x<>FIndex then
+  if x <> FIndex then
   begin
-  FIndex:=x;
-  if x<6 then BackIndex:=1
-  else BackIndex:=0;
-  Invalidate
+    FIndex := x;
+    if x < 6 then
+      BackIndex := 1
+    else
+      BackIndex := 0;
+    Invalidate
   end
 end;
@@ -118 +126 @@
 procedure TButtonN.SetSmartHint(x: string);
 begin
-if x<>FSmartHint then
+  if x <> FSmartHint then
   begin
-  FSmartHint:=x;
-  if FPossible then Hint:=x;
+    FSmartHint := x;
+    if FPossible then
+      Hint := x;
   end
 end;
 
 end.
-