unit_public_jin.pas

来自「主要是介绍DELPHI三层应用以及分布式数据库的应用」· PAS 代码 · 共 70 行

unit Unit_public_jin;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Mask, DBCtrls, DB, DBTables, ExtCtrls,strutils,
  Grids, DBGrids;


  ///////
var
form_comtract_cstm_flag : boolean;
form_comtract_kehu:string;
function SetBool_true(bool:boolean):boolean;
function SetBool_false(bool:boolean):boolean;
procedure Setcolor(aScrollBox:TScrollBox);


implementation

function SetBool_true(bool:boolean):boolean;
begin
SetBool_true := true;
end;

function SetBool_false(bool:boolean):boolean;
begin
SetBool_false:= false;
end;

//设置颜色；
procedure Setcolor(aScrollBox:TScrollBox);
var
  I,Teller: Integer;
  classname1, classnameshort:string;
  ClassRef: TClass;
begin
   with aScrollBox do
   begin
     For Teller := 0 to aScrollBox.ControlCount -1 do //.ControlCount - 1 do
     begin
      ClassRef :=aScrollBox.Controls[ Teller ].ClassType; //控件类型
      classname1 :=aScrollBox.Controls[ Teller ].ClassName;
      if ClassRef <> nil then
      begin
       if classname1 = 'TDBEdit' then  TDBEdit(aScrollBox.Controls[ Teller ]).color:= clInfoBk;
       if classname1 = 'TDBRadioGroup' then TDBRadioGroup(aScrollBox.Controls[ Teller ]).color:= clInfoBk;
       if classname1 = 'TDBMemo' then  TDBMemo(aScrollBox.Controls[ Teller ]).color:= clInfoBk;
       if classname1 = 'TDBComboBox' then  TDBComboBox(aScrollBox.Controls[ Teller ]).color:= clInfoBk;
              //.color:= clCream;

      end

    end

end;


end;







end.