frameu.pas

一套及时通讯的原码

unit Frameu;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  fcImager, fcImage, fcImageForm, ExtCtrls, StdCtrls, Buttons, Mask,
  ComCtrls, fcOutlookList, fcButton, fcImgBtn, fcShapeBtn, fcClearPanel,
  fcButtonGroup, fcCombo, fctreecombo, ImgList, fcLabel, fcFrame,
  fcDemoRichEdit, fcpanel;

type
  TFrameDemo = class(TForm)
    fcImageForm1: TfcImageForm;
    Shape1: TShape;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    ImageList1: TImageList;
    fcShapeBtn1: TfcShapeBtn;
    Label18: TLabel;
    Image1: TImage;
    BackgroundCombo: TfcTreeCombo;
    fcLabel5: TfcLabel;
    FrameCombo: TfcTreeCombo;
    fcLabel7: TfcLabel;
    fcDemoRichEdit1: TfcDemoRichEdit;
    fcImager6: TfcImager;
    TileImager: TfcImager;
    MosaicImager: TfcImager;
    WrinkleImager: TfcImager;
    LinenImager: TfcImager;
    ParchmentImager: TfcImager;
    fcGroupBox1: TfcGroupBox;
    fcTreeCombo3: TfcTreeCombo;
    fcLabel3: TfcLabel;
    fcTreeCombo2: TfcTreeCombo;
    fcLabel2: TfcLabel;
    fcTreeCombo1: TfcTreeCombo;
    fcLabel1: TfcLabel;
    fcGroupBox2: TfcGroupBox;
    fcTreeCombo4: TfcTreeCombo;
    fcLabel8: TfcLabel;
    fcTreeCombo5: TfcTreeCombo;
    fcLabel9: TfcLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure fcTreeCombo4Exit(Sender: TObject);
    procedure fcShapeBtn1Click(Sender: TObject);
    procedure BackgroundComboChange(Sender: TObject);
    procedure FrameComboChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrameDemo: TFrameDemo;

implementation

{$R *.DFM}

procedure TFrameDemo.BitBtn1Click(Sender: TObject);
begin
  Close;
end;

procedure TFrameDemo.fcTreeCombo4Exit(Sender: TObject);
begin
   with (Sender as TfcTreeCombo) do begin
     if items.FindNode(text,False) = nil then begin
        TreeView.Items.Add(nil,Text);
        Treeview.AlphaSort;
     end;
   end;
end;

procedure TFrameDemo.fcShapeBtn1Click(Sender: TObject);
begin
   ShowMessage('Put code here to send results of poll.');
end;

procedure TFrameDemo.BackgroundComboChange(Sender: TObject);
var TempImager:TfcImager;
begin
  if ((Sender as TfcTreeCombo).Text = 'Plain') then begin
     TileImager.Visible := False;
     exit;
  end;
  TempImager := nil;
  if ((Sender as TfcTreeCombo).Text = 'Wrinkle') then
     TempImager := WrinkleImager
  else if ((Sender as TfcTreeCombo).Text = 'Linen') then
     TempImager := LinenImager
  else if ((Sender as TfcTreeCombo).Text = 'Parchment') then
     TempImager := ParchmentImager
  else if ((Sender as TfcTreeCombo).Text = 'Mosaic') then
     TempImager := MosaicImager;

  if TempImager <> nil then begin
     TempImager.UpdateWorkBitmap;
     TileImager.Picture.Assign(TempImager.WorkBitmap);
  end;
  TileImager.Visible := True;
end;

procedure TFrameDemo.FrameComboChange(Sender: TObject);
var i:integer;
begin
  for i:= 0 to Controlcount-1 do begin
     if (Controls[i] is TfcTreeCombo) then begin
       TfcTreeCombo(Controls[i]).Frame.FocusStyle := efsFrameBox;
       TfcTreeCombo(Controls[i]).Frame.NonFocusStyle := efsFrameBox;
       TfcTreeCombo(Controls[i]).Frame.NonFocusBorders := [efLeftBorder,efTopBorder,efRightBorder,efBottomBorder];
       TfcTreeCombo(Controls[i]).ButtonEffects.Flat := False;
       TfcTreeCombo(Controls[i]).ButtonEffects.Transparent := False;
       TfcTreeCombo(Controls[i]).Frame.Enabled := True;


       if ((Sender as TfcTreeCombo).Text = 'Underline') then begin
          TfcTreeCombo(Controls[i]).Frame.NonFocusBorders := [efBottomBorder];
       end
       else if ((Sender as TfcTreeCombo).Text = 'FrameBox') then begin
       end
       else if ((Sender as TfcTreeCombo).Text = 'Flat Buttons') then begin
          TfcTreeCombo(Controls[i]).Frame.NonFocusStyle := efsFrameSingle;
          TfcTreeCombo(Controls[i]).ButtonEffects.Flat := True;
          TfcTreeCombo(Controls[i]).ButtonEffects.Transparent := True;
       end
       else if ((Sender as TfcTreeCombo).Text = 'No Frame (Normal)') then begin
          TfcTreeCombo(Controls[i]).Frame.Enabled := False;
          TfcTreeCombo(Controls[i]).BorderStyle := bsSingle;
       end
       else if ((Sender as TfcTreeCombo).Text = 'Sunken Focus') then begin
          TfcTreeCombo(Controls[i]).Frame.FocusStyle := efsFrameSunken;
       end
       else if ((Sender as TfcTreeCombo).Text = 'Raised Panel Focus') then begin
          TfcTreeCombo(Controls[i]).Frame.FocusStyle := efsFrameRaised;
       end
       else if ((Sender as TfcTreeCombo).Text = 'Etched') then begin
          TfcTreeCombo(Controls[i]).Frame.NonFocusStyle := efsFrameEtched;
          TfcTreeCombo(Controls[i]).Frame.FocusStyle := efsFrameEtched;
       end
       else if ((Sender as TfcTreeCombo).Text = 'Bump') then begin
          TfcTreeCombo(Controls[i]).Frame.NonFocusStyle := efsFrameBump;
          TfcTreeCombo(Controls[i]).Frame.FocusStyle := efsFrameBump;
       end
     end;
  end;
end;

procedure TFrameDemo.FormShow(Sender: TObject);
begin
//  fctreecombo4.TreeView.Color := clBtnFace;
   ParchmentImager.UpdateWorkBitmap;
   TileImager.Picture.Assign(ParchmentImager.WorkBitmap);
end;

end.