procedure TImage.Paint;
var
  Save: Boolean;
begin
{ ¼³°è ½Ã¿¡¸¸ ÄÞÆ÷³ÍÆ®ÀÇ ¿Ü°û¿¡ Á¡¼±À» ±×·ÁÁØ´Ù. }
  if csDesigning in ComponentState then
    with inherited Canvas do
    begin
      Pen.Style := psDash;
      Brush.Style := bsClear;
      Rectangle(0, 0, Width, Height);
    end;
  Save := FDrawing;
  FDrawing := True;
  try
    with inherited Canvas do
      StretchDraw(DestRect, Picture.Graphic);
  finally
    FDrawing := Save;
  end;
end;

procedure TForm1.FindButton(var ButtonList: TStrings);
var
  nIndex : Integer;
begin
  for nIndex := 0 to Pred(ComponentCount) do
  begin
    if Components[nIndex] is TButton then
    begin
      ButtonList.Add(Components[nIndex].Name);
    end;
  end;
end;

procedure TCustomLabel.Notification(AComponent: TComponent;
  Operation: TOperation);
begin
  inherited Notification(AComponent, Operation);
  if (Operation = opRemove) and (AComponent = FFocusControl) then
    FFocusControl := nil;
end;

procedure TCustomLabel.SetFocusControl(Value: TWinControl);
begin
  FFocusControl := Value;
  if Value <> nil then Value.FreeNotification(Self);
end;

TBitBtn = class(TButton)
  private
{ »ý ·« }
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { »ý ·« }
  published
    { »ý ·« }
  end;
     
procedure TBitBtn.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do Style := Style or BS_OWNERDRAW;
end;

procedure TCustomEdit.CreateWnd;
begin
  FCreating := True;
  try
    inherited CreateWnd;
  finally
    FCreating := False;
  end;
  DoSetMaxLength(FMaxLength);
  Modified := FModified;
  if FPasswordChar <> #0 then
    SendMessage(Handle, EM_SETPASSWORDCHAR, Ord(FPasswordChar), 0);
  UpdateHeight;
end;

procedure TCustomEdit.SetMaxLength(Value: Integer);
begin
  if FMaxLength <> Value then
  begin
    FMaxLength := Value;
    if HandleAllocated then DoSetMaxLength(Value);
  end;
end;

procedure TCustomComboBox.SetSelText(const Value: string);
begin
  if FStyle < csDropDownList then
  begin
    HandleNeeded;
    SendMessage(FEditHandle, EM_REPLACESEL, 0, Longint(PChar(Value)));
  end;
end;

procedure WriteComponentResFile(const FileName: string; Instance: TComponent);

WriteComponentResFile('Unit1.dfm', Form1);

procedure TCustomGrid.ReadColWidths(Reader: TReader);
var
  I: Integer;
begin
  with Reader do
  begin
    ReadListBegin;
    for I := 0 to ColCount - 1 do ColWidths[I] := ReadInteger;
    ReadListEnd;
  end;
end;

procedure TCustomGrid.ReadRowHeights(Reader: TReader);
var
  I: Integer;
begin
  with Reader do
  begin
    ReadListBegin;
    for I := 0 to RowCount - 1 do RowHeights[I] := ReadInteger;
    ReadListEnd;
  end;
end;

procedure TCustomGrid.WriteColWidths(Writer: TWriter);
var
  I: Integer;
begin
  with Writer do
  begin
    WriteListBegin;
    for I := 0 to ColCount - 1 do WriteInteger(ColWidths[I]);
    WriteListEnd;
  end;
end;

procedure TCustomGrid.WriteRowHeights(Writer: TWriter);
var
  I: Integer;
begin
  with Writer do
  begin
    WriteListBegin;
    for I := 0 to RowCount - 1 do WriteInteger(RowHeights[I]);
    WriteListEnd;
  end;
end;

procedure TCustomGrid.DefineProperties(Filer: TFiler);

  function DoColWidths: Boolean;
  begin
    if Filer.Ancestor <> nil then
      Result := not CompareExtents(TCustomGrid(Filer.Ancestor).FColWidths, FColWidths)
    else
      Result := FColWidths <> nil;
  end;

  function DoRowHeights: Boolean;
  begin
    if Filer.Ancestor <> nil then
      Result := not CompareExtents(TCustomGrid(Filer.Ancestor).FRowHeights, FRowHeights)
    else
      Result := FRowHeights <> nil;
  end;


begin
  inherited DefineProperties(Filer);
  if FSaveCellExtents then
    with Filer do
    begin
      DefineProperty('ColWidths', ReadColWidths, WriteColWidths, DoColWidths);
      DefineProperty('RowHeights', ReadRowHeights, WriteRowHeights, DoRowHeights);
    end;
end;

TStatusPanel = class(TCollectionItem)
  private
    { »ý·« }
  protected
    { »ý·« }
    function GetDisplayName: string; override;
  public
    { »ý·« }
    procedure Assign(Source: TPersistent); override;
  published
    { »ý·« }
  end;

  TStatusPanels = class(TCollection)
  private
    FStatusBar: TStatusBar;
    function GetItem(Index: Integer): TStatusPanel;
    procedure SetItem(Index: Integer; Value: TStatusPanel);
  protected
    function GetOwner: TPersistent; override;
    procedure Update(Item: TCollectionItem); override;
  public
    constructor Create(StatusBar: TStatusBar);
    function Add: TStatusPanel;
    property Items[Index: Integer]: TStatusPanel read GetItem write SetItem; default;
  end;

  { »ý·« }

  TStatusBar = class(TWinControl)
  private
    { »ý·« }
    FPanels: TStatusPanels;
    { »ý·« }
    procedure SetPanels(Value: TStatusPanels);
  protected
    { »ý·« }
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    { »ý·« }
  published
    { »ý·« }
    property Panels: TStatusPanels read FPanels write SetPanels;
  end;

implementation

{ TStatusPanel }

procedure TStatusPanel.Assign(Source: TPersistent);
begin
  if Source is TStatusPanel then
  begin
    Text := TStatusPanel(Source).Text;
    Width := TStatusPanel(Source).Width;
    Alignment := TStatusPanel(Source).Alignment;
    Bevel := TStatusPanel(Source).Bevel;
    Style := TStatusPanel(Source).Style;
  end
  else inherited Assign(Source);
end;

function TStatusPanel.GetDisplayName: string;
begin
  Result := Text;
  if Result = '' then Result := inherited GetDisplayName;
end;

{ TStatusPanels }

constructor TStatusPanels.Create(StatusBar: TStatusBar);
begin
  inherited Create(TStatusPanel);
  FStatusBar := StatusBar;
end;

function TStatusPanels.Add: TStatusPanel;
begin
  Result := TStatusPanel(inherited Add);
end;

function TStatusPanels.GetItem(Index: Integer): TStatusPanel;
begin
  Result := TStatusPanel(inherited GetItem(Index));
end;

function TStatusPanels.GetOwner: TPersistent;
begin
  Result := FStatusBar;
end;

procedure TStatusPanels.SetItem(Index: Integer; Value: TStatusPanel);
begin
  inherited SetItem(Index, Value);
end;

procedure TStatusPanels.Update(Item: TCollectionItem);
begin
  if Item <> nil then
    FStatusBar.UpdatePanel(Item.Index, False) else
    FStatusBar.UpdatePanels(True, False);
end;

{ TStatusBar }

constructor TStatusBar.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  { »ý·« }
  FPanels := TStatusPanels.Create(Self);
  { »ý·« }
end;

destructor TStatusBar.Destroy;
begin
  { »ý·« }
  FPanels.Free;
  inherited Destroy;
end;

procedure TStatusBar.SetPanels(Value: TStatusPanels);
begin
  FPanels.Assign(Value);
end;

var
  SourceList : TStrings;
  DestList : TStrings;
begin
  SourceList := TStringList.Create;
  DestList := TStringList.Create;
  try
    SourceList.LoadFromFile('example.Text');
    DestList.Assign(SourceList);
  finally
    DestList.Free;
    SourceList.Free;
  end;
end;

procedure WriteCollectionToFile(const AFileName : String; ACollection : TCollection);
var
  Stream : TMemoryStream;
  Writer: TWriter;
begin
  Stream := TMemoryStream.Create;
  try
    Writer := TWriter.Create(Stream, 1024);
    try
      Writer.WriteCollection(ACollection);
    finally
      Writer.Free;
    end;
    Stream.SaveToFile(AFileName);
  finally
    Stream.Free;
  end;
end;


procedure ReadCollectionFromFile(const AFileName : String; ACollection : TCollection);
var
  Stream : TMemoryStream;
  Reader: TReader;
begin
  Stream := TMemoryStream.Create;
  try
    Stream.LoadFromFile(AFileName);
    Reader := TReader.Create(Stream, 1024);
    try
      Reader.ReadValue;
      Reader.ReadCollection(ACollection);
    finally
      Reader.Free;
    end;
  finally
    Stream.Free;
  end;
end;