1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

 {*******************************************************}
{                                                       }
{       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;					

1:
2:
3:
4:
5:
6:
7:

 implementation
    
uses 
  Consts, SysUtils, ActnList, 
  ImgList;
    
{$R BUTTONS.RES}					

1:
2:
3:
4:
5:
6:
7:

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

1:
2:
3:
4:
5:
6:
7:

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

1:

unit MyUnit;					

1:

uses MyUnit;					

1:
2:
3:

 uses 
  Windows, SysUtils, Classes, Graphics, Controls, Forms, 
  TypInfo;					

1:
2:

 uses Windows, SysUtils, Classes, Graphics, Controls, Forms, 
  TypInfo;					

1:
2:
3:
4:
5:
6:
7:
8:

 uses 
  Windows, 
  SysUtils, 
  Classes, 
  Graphics, 
  Controls, 
  Forms, 
  TypInfo;					

1:

 TMyClass = class					

1:

 TMyClass = class(TObject)					

1:
2:
3:
4:
5:
6:

 TMyClass = class(TObject)
  private
  protected
  public
  published
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

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

1:
2:
3:
4:
5:
6:
7:
8:
9:

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

1:
2:

MyIdentifier
MyFTPClass					

1:
2:

GOOD type names:
  AddressForm, ArrayIndexOutOfBoundsException					

1:
2:
3:

BAD type names:
  ManageLayout         // verb phrase  
  delphi_is_new_to_me  // underscores					

1:

 FMyString: String;					

1:

 lpstrMyString: String;					

1:
2:
3:

 TBitBtnKind = (bkCustom, bkOK, bkCancel, bkHelp, 
    bkYes, bkNo, bkClose, bkAbort, bkRetry, 
    bkIgnore, bkAll);					

1:
2:
3:
4:
5:
6:
7:
8:

 var
  i : Integer;

begin
  // Loop 5 times
  For i := 1 to (10 div 2) do
    ShowMessage('i = '+IntToStr(i));
end;					

1:
2:

// GUTE Methodennamen:
ShowStatus, DrawCircle, AddLayoutComponent					

1:
2:
3:
4:
5:
6:
7:
8:
9:

// SCHLECHTE Methodennamen:
MouseButton  // Satz mit Substantiv; beschreibt nicht die Funktion
drawCircle   // beginnt mit einem Kleinbuchstaben
add_layout_component        // Unterstriche

// Die Funktion dieser Methode ist unklar. Startet
// sie den Server (besser: StartServer) oder prüft
// sie, ob er läuft oder nicht (besser: IsServerRunning)?
ServerRunning        // Satz mit Verb, aber nicht in Befehlsform					

1:
2:

// Aufruf von einem Fahrstuhl  für die sichtbare Eigenschaft lesen zu können
   isWordVisible:=Boolean(msWord.GetType.InvokeMember('Visible', BindingFlags.GetProperty,Nil, msWord, Nil));					

1:
2:

// Aufruf von einem Fahrstuhl für die sichtbare Eigenschaft ändern zu können
   msWord.GetType.InvokeMember('Visible', BindingFlags.SetProperty,Nil, msWord, Parametres);					

1:
2:
3:
4:
5:
6:
7:
8:
9:

        /// </summary>
        public static bool IsVisible = false;
        /// <summary>
        /// Determines if a line will be drawn at the zero value for the 
        /// <see cref="Y2Axis"/>, that is, a line that
        /// divides the negative values from positive values.
        /// <seealso cref="Axis.IsZeroLine"/>.
        /// </summary>
        public static bool IsZeroLine = true;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

 public
    { Timer displayed in right top of window, initialized upon class creation }
    Timer: tTimer;
    { which timer to display? }
    TimerToUse: tpTimer;
    { display which time? }
    TimerDisplay: (mwElapsedTime,mwTimeout,mwNone);

    { True if visible, used also for hiding/restoring window }
    property IsVisible: Boolean read FVisible write SVisible;
    property Headline: string read FHeadline write SHeadline;

    constructor CreateWithSize(iw,ih: Integer; Headline: String; Visible: Boolean);
    destructor Destroy; override;

    { Displays a new message in window }
    procedure WriteFmt(mc: TMsgClass; fmt: string; args: array of const); override;

    { Resizes and the window _and_ _makes_ _it_ _visible_ }
    procedure Resize(Width,Height:integer); virtual;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

public
    function  Acquired: boolean; virtual;
    function  AcquireMemory(forWriting: boolean; timeout: DWORD): pointer; virtual; abstract;
    function  MakeSnapshot: TGpSharedSnapshot; virtual; abstract;
    procedure ReleaseMemory; virtual;
  {properties}
    //:True if memory is resizable.
    property IsResizable: boolean read SupportsResize;
    //:True is memory is acquired for writing.
    property IsWriting: boolean read GetIsWriting;
    //:Maximum size of the shared memory.
    property MaxSize: cardinal read gbsmMaxSize;
    //:Shared memory name.
    property Name: string read GetName;
    //:Shared memory size.
    property Size: cardinal read GetSize;
    //:String interface
    property AsString: string read GetAsString write SetAsString;
    //:True if shared memory was created in the constructor.
    property WasCreated: boolean read GetCreated;