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

trunk/Components/ButtonC.pas

@@ -27 +27 @@
 procedure Register;
 begin
-RegisterComponents('Samples', [TButtonC]);
+  RegisterComponents('Samples', [TButtonC]);
 end;
 
 constructor TButtonC.Create(aOwner: TComponent);
 begin
-inherited Create(aOwner);
-ShowHint:=true;
-SetBounds(0,0,12,12);
+  inherited Create(aOwner);
+  ShowHint := true;
+  SetBounds(0, 0, 12, 12);
 end;
 
 procedure TButtonC.Paint;
 begin
-with Canvas do
-  if FGraphic<>nil then
-    BitBlt(Canvas.Handle,0,0,12,12,FGraphic.Canvas.Handle,
-      169+13*Byte(FDown),159+13*FIndex,SRCCOPY)
-  else begin Brush.Color:=$0000FF; FrameRect(Rect(0,0,12,12)) end
+  with Canvas do
+    if FGraphic <> nil then
+      BitBlt(Canvas.Handle, 0, 0, 12, 12, FGraphic.Canvas.Handle,
+        169 + 13 * Byte(FDown), 159 + 13 * FIndex, SRCCOPY)
+    else
+    begin
+      Brush.Color := $0000FF;
+      FrameRect(Rect(0, 0, 12, 12))
+    end
 end;
 
 procedure TButtonC.SetIndex(x: integer);
 begin
-if x<>FIndex then
+  if x <> FIndex then
   begin
-  FIndex:=x;
-  Invalidate
+    FIndex := x;
+    Invalidate
   end
 end;
 
 end.
-