{*******************************************************}
{                                                       }
{       Borland Delphi Visual Component Library         }
{                                                       }
{       Copyright (c) 1995,98 Inprise Corporation       }
{                                                       }
{*******************************************************}

unit Buttons;

{$S-,W-,R-}
{$C PRELOAD}

interface

uses
  Windows, Messages, Classes,
  Controls, Forms, Graphics,
  StdCtrls, ExtCtrls, CommCtrl;

implementation

uses
  Consts, SysUtils, ActnList,
  ImgList;

{*******************************************************}
{                                                       }
{       Widgets Galore                                  }
{                                                       }
{       Copyright (c) 1995,98 Your Company              }
{                                                       }
{*******************************************************}

{*******************************************************}
{                                                       }
{       Borland Delphi Visual Component Library         }
{       Copyright (c) 1995,99 Borland International     }
{       Created by Project JEDI                         }
{                                                       }
{*******************************************************}

uses
  Windows, SysUtils, Classes, Graphics, Controls, Forms,
  TypInfo;
    在uses的下一行開始加入單元名和在uses后面直接加入單元名同樣都是正確的。
uses Windows, SysUtils, Classes, Graphics, Controls, Forms,
  TypInfo;

  TMyClass = class(TObject)
  private
    FMyDate: Integer;
    function GetDate: Integer;
    procedure SetData(Value: Integer);
  public
  published
    property MyData: Integer read GetData write SetData;
  end;

function CreateWindowEx(dwExStyle: DWord;
  lpClassName: PChar; lpWindowName: PChar;
  dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
  hWndParent: HWND; hMenu: HMENU; hInstance: HINST;
  lpParam: Pointer): HWND; stdcall;

if ((X = Y) or (Y = X) or
  (Z = P) or (F = J) then
begin
  S := J;
end;

while (LongExpression1 or LongExpression2) do begin
  //DoSomething
  //DoSomethingElse;
end;

while (LongExpression1 or longExpression2) do
begin
  //DoSomething
  //DoSomethingElse;
end;

if (LongExpressiong1) or
  (LongExpression2) or
  (LongExpression3) then

begin
  DoThis; // Start the process
  DoThat; // Continue iteration
  { We need a way to report errors here, perhaps using
    a try finally block ??? }
  CallMoreCode; // Finalize the process
end; *)

if (not IsVisible) then
    Exit;           // nothing to do
Inc(StrLength);     // reserve space for null terminator

procedure ImageUpdate(Image img, infoflags: Integer,
  x: Integer, y: Integer, w: Integer, h: Integer)

  InterfaceName = interface([inherited Interface])
    InterfaceBody
  end;

begin
  B := C;
  A := B;
end;

MyValue :=
  MyValue + (SomeVeryLongStatement / OtherLongStatement);

a := b + c; Inc(Count);     //錯(cuò)誤
a := b + c;                 //正確
Inc(Count);                 //正確

var
  MyData: Integer;
  MyString: string;

var
  ArraySize, ArrayCount: Integer;

type
  TMyArray = array [0..100] of Char;

if A = B then DoSomething;

if A = B then
  DoSomething;

if A = B then begin
  DoSomething;
  DoSomethingElse;
end else begin
  DoThis;
  DoThat;
end;

if A = B then
begin
  DoSomething;
  DoSomethingElse;
end
else
begin
  DoThis;
  DoThat;
end;

if Condition then
begin
  DoThis;
end else
begin
  DoThat;
end;

if Condition then
begin
  DoThis;
end
else
  DoSomething;

if Condition then
begin
  DoThis;
end else
  DoSoemthing;

if Condition then
  DoThis
else DoThat;

  for i := 0 to 10 do begin
    DoSomething;
    DoSomethingElse;
  end;

  for i := 0 to 10 do
  begin
    DoSomething;
    DoSomethingElse;
  end;

  while x < j  do begin
    DoSomething;
    DoSomethingElse;
  end;

  while x < j do
  begin
    DoSomething;
    DoSomethingElse;
  end;

  repeat
    x := j;
    j := UpdateValue;
  until j = 25;

  case Control.Align of
    alLeft, alNone: NewRange := Max(NewRange, Position);
    alRight: Inc(AlignMargin, Control.Width);
  end;

  case x of
    CSStart:
      begin
        j := UpdateValue;
      end;
    csBegin: x := j;
    csTimeOut:
      begin
        j := x;
        x := UpdateValue;
      end;
  end;

  case ScrollCode of
    SB_LINEUP, SB_LINEDOWN:
      begin
        Incr := FIncrement div FLineDiv;
        FinalIncr := FIncrement mod FLineDiv;
        Count := FLineDiv;
      end;
    SB_PAGEUP, SB_PAGEDOWN:
      begin
        Incr := FPageIncrement;
        FinalIncr := Incr mod FPageDiv;
        Incr := Incr div FPageDiv;
        Count := FPageDiv;
      end;
  else
    Count := 0;
    Incr := 0;
    FinalIncr := 0;
  end;

  try
    try
      EnumThreadWindows(CurrentThreadID, @Disable, 0);
      Result := TaskWindowList;
    except
      EnableTaskWindows(TaskWindowList);
      raise;
    end;
  finally
    TaskWindowList := SaveWindowList;
    TaskActiveWindow := SaveActiveWindow;
  end;