ocs-comps-commits

[Si C. <tec...@us...>]

Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/ButtonEdit
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/ButtonEdit

Added Files:
	ButtonEdit.dpr ButtonEdit.res Unit2.dfm Unit2.pas 
Log Message:
Initially added to source control

--- NEW FILE: ButtonEdit.res ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: Unit2.pas ---
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OrckaEdit, Grids, DBGrids, Db, DBTables;

type
  TForm2 = class(TForm)
    GroupBox1: TGroupBox;
    OrckaButtonEdit1: TOrckaButtonEdit;
    OpenDialog1: TOpenDialog;
    CheckBox1: TCheckBox;
    GroupBox2: TGroupBox;
    OrckaButtonEdit2: TOrckaButtonEdit;
    Memo1: TMemo;
    Label1: TLabel;
    GroupBox3: TGroupBox;
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    OrckaButtonEdit3: TOrckaButtonEdit;
    Label2: TLabel;
    procedure OrckaButtonEdit1ButtonClick(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure OrckaButtonEdit2ButtonClick(Sender: TObject);
    procedure OrckaButtonEdit3ButtonClick(Sender: TObject);
  private
    { Private declarations }
  public

  end;

var
  Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.OrckaButtonEdit1ButtonClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
    OrckaButtonEdit1.Text := OpenDialog1.FileName;
end;

procedure TForm2.CheckBox1Click(Sender: TObject);
begin
  OrckaButtonEdit1.UseEnter := CheckBox1.Checked;
  OrckaButtonEdit2.UseEnter := CheckBox1.Checked;
  OrckaButtonEdit3.UseEnter := CheckBox1.Checked;
end;

procedure TForm2.OrckaButtonEdit2ButtonClick(Sender: TObject);
var
  StartPos: Longint;
begin
  StartPos := Pos(OrckaButtonEdit2.Text, Memo1.Text) -1;
  if StartPos > -1 then
  begin
    Memo1.SelStart := StartPos;
    memo1.SelLength := Length(OrckaButtonEdit2.Text);
    Memo1.SetFocus;
  end else
    ShowMessage(Format('"%s" was not found', [OrckaButtonEdit2.Text]));
end;

procedure TForm2.OrckaButtonEdit3ButtonClick(Sender: TObject);
begin
  if OrckaButtonEdit3.Text = '' then
    Table1.Filtered := False
  else
  begin
    if Table1.Filtered then
      Table1.Filtered := False;
    Table1.Filter := Format('LastName = ''%s''', [OrckaButtonEdit3.Text]);
    Table1.Filtered := True;
  end;
end;

end.

--- NEW FILE: Unit2.dfm ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: ButtonEdit.dpr ---
program ButtonEdit;

uses
  Forms,
  Unit2 in 'Unit2.pas' {Form2};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.