开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
LCliForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

LCliForm.pas：源码内容
  1. unit LCliForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, ListServ_TLB;
  9. type
  10.   TListCliForm = class(TForm)
  11.     btnFont: TButton;
  12.     FontDialog1: TFontDialog;
  13.     btnMemList: TButton;
  14.     EditItem: TEdit;
  15.     btnMemoTo: TButton;
  16.     Memo1: TMemo;
  17.     btnAdd: TButton;
  18.     btnServer: TButton;
  19.     procedure btnFontClick(Sender: TObject);
  20.     procedure btnMemListClick(Sender: TObject);
  21.     procedure btnMemoToClick(Sender: TObject);
  22.     procedure btnAddClick(Sender: TObject);
  23.     procedure btnServerClick(Sender: TObject);
  24.   private
  25.     fInternalListServ: IListServer;
  26.     function GetListSrv: IListServer;
  27.   public
  28.     property ListSrv: IListServer
  29.       read GetListSrv;
  30.   end;
  32. var
  33.   ListCliForm: TListCliForm;
  35. implementation
  37. {$R *.DFM}
  39. uses
  40.   ActiveX, AxCtrls, StdVCL;
  42. procedure TListCliForm.btnFontClick(Sender: TObject);
  43. var
  44.   NewFont: IFontDisp;
  45. begin
  46.   // select a font and apply it
  47.   if FontDialog1.Execute then
  48.   begin
  49.     GetOleFont (FontDialog1.Font, NewFont);
  50.     ListSrv.Font := NewFont;
  51.   end;
  52. end;
  54. procedure TListCliForm.btnMemListClick(Sender: TObject);
  55. var
  56.   TempIStrs: IStrings;
  57.   List: TStrings;
  58.   I: Integer;
  59. begin
  60.   // set a list of strings...
  61.   List := TStringList.Create;
  62.   try
  63.     for I := 1 to 10 do
  64.       List.Add ('Item ' + IntToStr (I));
  65.     GetOleStrings (List, TempIStrs);
  66.     ListSrv.Items := TempIStrs;
  67.   finally
  68.     List.Free;
  69.   end;
  70. end;
  72. procedure TListCliForm.btnMemoToClick(Sender: TObject);
  73. var
  74.   TempIStrs: IStrings;
  75. begin
  76.   GetOleStrings (Memo1.Lines, TempIStrs);
  77.   ListSrv.Items := TempIStrs;
  78. end;
  80. procedure TListCliForm.btnAddClick(Sender: TObject);
  81. var
  82.   TempIStrs: IStrings;
  83.   List: TStrings;
  84. begin
  85.   // create a temporary list of strings
  86.   List := TStringList.Create;
  87.   try
  88.     // get items from server
  89.     TempIStrs := ListSrv.Items;
  90.     // add new item
  91.     TempIStrs.Add (EditItem.Text);
  92.     // make local copy
  93.     SetOleStrings (List, TempIStrs);
  94.     // copy back to interface
  95.     GetOleStrings (List, TempIStrs);
  96.     // send to server
  97.     ListSrv.Items := TempIStrs;
  98.   finally
  99.     List.Free;
  100.   end;
  101. end;
  103. procedure TListCliForm.btnServerClick(Sender: TObject);
  104. var
  105.   TempIStrs: IStrings;
  106. begin
  107.   // get the interface and move strings to memo
  108.   TempIStrs := ListSrv.Items;
  109.   SetOleStrings (Memo1.Lines, TempIStrs);
  110. end;
  112. function TListCliForm.GetListSrv: IListServer;
  113. begin
  114.   // eventually create the server
  115.   if not Assigned (fInternalListServ) then
  116.     fInternalListServ := CoCoListServ.Create;
  117.   Result := fInternalListServ;
  118. end;
  120. end.