Changeset 14 for trunk/Components/ButtonB.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/ButtonB.pas (modified) (1 diff)

trunk/Components/ButtonB.pas

@@ -30 +30 @@
 procedure Register;
 begin
-RegisterComponents('Samples', [TButtonB]);
+  RegisterComponents('Samples', [TButtonB]);
 end;
 
 constructor TButtonB.Create(aOwner: TComponent);
 begin
-inherited Create(aOwner);
-ShowHint:=true;
-SetBounds(0,0,25,25);
+  inherited Create(aOwner);
+  ShowHint := true;
+  SetBounds(0, 0, 25, 25);
 end;
 
 procedure TButtonB.Paint;
 begin
-with Canvas do
-  if FGraphic<>nil then
+  with Canvas do
+    if FGraphic <> nil then
     begin
-    BitBlt(Canvas.Handle,0,0,25,25,FGraphic.Canvas.Handle,
-      169,243+26*Byte(FDown),SRCCOPY);
-    if FIndex>=0 then
+      BitBlt(Canvas.Handle, 0, 0, 25, 25, FGraphic.Canvas.Handle, 169,
+        243 + 26 * Byte(FDown), SRCCOPY);
+      if FIndex >= 0 then
       begin
-      BitBlt(Canvas.Handle,0,0,25,25,FMask.Canvas.Handle,
-        1+FIndex mod 12 *26,337+FIndex div 12 *26,SRCAND);
-      BitBlt(Canvas.Handle,0,0,25,25,FGraphic.Canvas.Handle,
-        1+FIndex mod 12 *26,337+FIndex div 12 *26,SRCPAINT);
+        BitBlt(Canvas.Handle, 0, 0, 25, 25, FMask.Canvas.Handle,
+          1 + FIndex mod 12 * 26, 337 + FIndex div 12 * 26, SRCAND);
+        BitBlt(Canvas.Handle, 0, 0, 25, 25, FGraphic.Canvas.Handle,
+          1 + FIndex mod 12 * 26, 337 + FIndex div 12 * 26, SRCPAINT);
       end
     end
-  else begin Brush.Color:=$0000FF; FrameRect(Rect(0,0,25,25)) end
+    else
+    begin
+      Brush.Color := $0000FF;
+      FrameRect(Rect(0, 0, 25, 25))
+    end
 end;
 
 procedure TButtonB.SetIndex(x: integer);
 begin
-if x<>FIndex then
+  if x <> FIndex then
   begin
-  FIndex:=x;
-  Invalidate
+    FIndex := x;
+    Invalidate
   end
 end;
 
 end.
-