play.pas

East make Tray Icon in delphi

{******************************************************************************}
{* WARNING:  JEDI VCL To CLX Converter generated unit.                        *}
{*           Manual modifications will be lost on next release.               *}
{******************************************************************************}

{-----------------------------------------------------------------------------
The contents of this file are subject to the Mozilla Public License
Version 1.1 (the "License"); you may not use this file except in compliance
with the License. You may obtain a copy of the License at
http://www.mozilla.org/MPL/

Software distributed under the License is distributed on an "AS IS" basis,
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
the specific language governing rights and limitations under the License.

The Original Code is: Play.pas, released 2002-01-05.

The Initial Developer of the Original Code is David Polberger <[e-mail]>
Portions created by David Polberger are Copyright (C) 2002 David Polberger.
All Rights Reserved.

Contributor(s): ______________________________________.

Last Modified: 2002-01-05;
Current Version: 1.00

You may retrieve the latest version of this file at the Project JEDI home page,
located at http://www.delphi-jedi.org

Known Issues:
  Please see the accompanying documentation.
-----------------------------------------------------------------------------}

unit Play;

interface

uses
  QWindows, QMessages, SysUtils, Classes, Types, QGraphics, QControls, QForms, QDialogs,
  QExtCtrls, QComCtrls, QStdCtrls, JvQLinkLabel, JvQValidateEdit, JvQEdit,
  JvQExStdCtrls, JvQExControls, JvQComponent, QComCtrlsEx;

type
  TfrmPlay = class(TForm)
    LinkLabel: TJvLinkLabel;
    Splitter1: TSplitter;
    Panel1: TPanel;
    Panel2: TPanel;
    Bevel1: TBevel;
    Panel3: TPanel;
    btnRefresh: TButton;
    TreeView: TTreeView;
    Edit: TEdit;
    rgTextLayout: TRadioGroup;
    gbMargin: TGroupBox;
    edMarginW: TJvValidateEdit;
    edMarginH: TJvValidateEdit;
    updnW: TUpDown;
    updbH: TUpDown;
    Label1: TLabel;
    Label2: TLabel;
    gbMousePos: TGroupBox;
    Label4: TLabel;
    LnkLblMousePos: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure btnRefreshClick(Sender: TObject);
    procedure Panel2Resize(Sender: TObject);
    procedure EditChange(Sender: TObject);
    procedure rgTextLayoutClick(Sender: TObject);
    procedure edMarginWChange(Sender: TObject);
    procedure edMarginHChange(Sender: TObject);
    procedure LinkLabelLinkClick(Sender: TObject; LinkNumber: Integer;
      LinkText: String);
    procedure LinkLabelMouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
  end;

implementation

{$R *.xfm}

uses
  InfoStrings, JvQLinkLabelDebug;

procedure TfrmPlay.FormCreate(Sender: TObject);
begin
  //DoubleBuffered := True;
  LinkLabel.Caption := Lorem;
  Edit.Text := Lorem;
  LnkLblMousePos.Caption := '? x ?';

  rgTextLayout.ItemIndex := Ord(LinkLabel.Layout);
  edMarginW.Value := LinkLabel.MarginWidth;
  edMarginH.Value := LinkLabel.MarginHeight;

  btnRefreshClick(Self);
end;

procedure TfrmPlay.btnRefreshClick(Sender: TObject);
begin
  TreeView.Items.BeginUpdate;
  try
    TDebugLinkLabelTools.NodeTreeToTreeNodes(LinkLabel, TreeView.Items);
    TreeView.FullExpand;
    TreeView.Selected := TreeView.Items.GetFirstNode;
  finally
    TreeView.Items.EndUpdate;
  end;
end;

procedure TfrmPlay.Panel2Resize(Sender: TObject);
begin
  Edit.Width := (Sender as TControl).Width - 16;
end;

procedure TfrmPlay.EditChange(Sender: TObject);
begin
  LinkLabel.Caption := (Sender as TEdit).Text;
end;

procedure TfrmPlay.rgTextLayoutClick(Sender: TObject);
begin
  LinkLabel.Layout := TTextLayout(rgTextLayout.ItemIndex);
end;

procedure TfrmPlay.edMarginWChange(Sender: TObject);
begin
 LinkLabel.MarginWidth := edMarginW.Value;
end;

procedure TfrmPlay.edMarginHChange(Sender: TObject);
begin
  LinkLabel.MarginHeight := edMarginH.Value;
end;

procedure TfrmPlay.LinkLabelLinkClick(Sender: TObject; LinkNumber: Integer;
  LinkText: String);
begin
(*  Application.MessageBox(PChar(LinkText + ' clicked !'),
    PChar('Link Clicked'),
    MB_APPLMODAL + MB_ICONINFORMATION + MB_OK);
*)
end;

procedure TfrmPlay.LinkLabelMouseMove(Sender: TObject; Shift: TShiftState;X, Y: Integer);
begin
  LnkLblMousePos.Caption := Format('( %d x %d )',[X,Y]);
end;

end.