e_cmped.pas

一个关于delphi控件

          else
          begin
            TBool:=False;
            For I:=0 to FComponent.ComponentCount-1 do
              If FComponent.Components[I] IS TTable then
               If CompareText(ComboEnum.Text,(TTable(FComponent.Components[I]).Name))=0 then
               begin
                 TBool:=True;
                 CAddr:=Longint(FComponent.Components[I]);
                 Break;
               end;
            If NOT TBool then With Session do  for I:= 0 to DatabaseCount - 1 do
              With Databases[I] do
                For J:=0 to DataSetCount-1 do
                If CompareText(ComboEnum.Text,DataSets[I].Name)=0 then
               begin
                 CAddr:=Longint(DataSets[I]);
                 Break;
               end;
            If E_SetIntProp(CurComponent,PropList.Strings[CurRow],CAddr) then
            begin
              CompProp.PValue:=ComboEnum.Text;
              CompProp.ClassAddr:=CAddr;
            end;
          end;
        end
        else If CompProp.SubType=PROP_DATASOURCESUB then
        begin
          TBool:=True;
          CAddr:=0;
          If ComboEnum.Text<>'' then
          begin
            For I:=0 to FComponent.ComponentCount-1 do
              If FComponent.Components[I] IS TdataSource then
               If CompareText(ComboEnum.Text,(TdataSource(FComponent.Components[I]).Name))=0 then
               begin
                 CAddr:=Longint(FComponent.Components[I]);
                 Break;
               end;
            TBool:=E_SetIntProp(CurComponent,PropList.Strings[CurRow],CAddr);
          end;
          If TBool then
          begin
            CompProp.PValue:=ComboEnum.Text;
            CompProp.ClassAddr:=CAddr;
          end;
        end;
      end;
      StringGrid1.Cells[1,CurRow]:=CompProp.PValue;
    end;
  end;
end;
Procedure TCompEditForm.SetStatusBar(Sender : TObject;
                                     ARow   : Integer);
begin
  If Assigned(PropList) then
    If Sender IS TStringGrid then
      If TEProperty(PropList.Objects[ARow]).EType=PROP_NOTYPE then
        StatusBar1.SimpleText:='This Property Cannot Be Edited'
      else
        StatusBar1.SimpleText:='Double Click/Enter To Edit Property'
    else
      StatusBar1.SimpleText:='Escape To Cancel'
  else
    StatusBar1.SimpleText:='';
end;
procedure TCompEditForm.StringGrid1SelectCell(Sender        : TObject;
                                              Col           ,
                                              Row           : Longint;
                                              var CanSelect : Boolean);
begin
  If Col=1 then
  begin
    CanSelect:=True;
    SetStatusBar(StringGrid1,Row);
  end
  else
    CanSelect:=False;
end;
Procedure TCompEditForm.EGetStrs(Const s : String);
begin
  ComboEnum.Items.Add(S);
end;
procedure TCompEditForm.SetEditBounds(AControl : TWinControl);
Var
    Rect : TRect;
begin
  If AControl<>Nil then With AControl do
  begin
    CompProp:=PropList.Objects[StringGrid1.Row] AS TEProperty;
    Rect := StringGrid1.CellRect(1,StringGrid1.Row);
    If CompProp.EType = PROP_SETTYPE then
    begin
      Left:=0;
      Top:=Rect.Top+StringGrid1.Top+StringGrid1.DefaultRowHeight;
      Height:=StringGrid1.DefaultRowHeight*3;
      Width:=StringGrid1.Width;
    end
    else
    begin
      Left:=Rect.Left+1;
      Top:=Rect.Top+StringGrid1.Top;
      Height:=StringGrid1.DefaultRowHeight;
      Width:=StringGrid1.DefaultColWidth;
    end;
    StatusBar1.SimpleText:='';
    Visible:=True;
    ActiveControl:=AControl;
    SetStatusBar(AControl,0);
  end
end;
procedure TCompEditForm.EditProperty(CurCol ,
                                     CurRow : LongInt);
Var
    DoIt       : Boolean;
    CurEdit    : TWinControl;
    I,J        : Integer;
    S          ,
    Ts         : String;
    FontDialog : TFontDialog;
    AList      : TStrings;
    TBool      : Boolean;
    CAddr      : Longint;
                Function GetDataBaseName : Boolean;
                begin
                  Result:=False;
                  If StringGrid1.RowCount>0 then
                  begin
                    I:=0;
                    While (I<StringGrid1.RowCount) AND (UpperCase(StringGrid1.Cells[0,I])<>'DATABASENAME') do
                      Inc(I);
                    If I<StringGrid1.RowCount then
                    begin
                      S:=StringGrid1.Cells[1,I];
                      Result:=S<>'';
                    end;
                  end;
                end;
                Function GetDataBasePath : Boolean;
                begin
                  Result:=False;
                  AList:=TStringList.Create;
                  Session.GetAliasParams(S,AList);
                  S:='';
                  I:=0;
                  While I < AList.Count do
                    If Pos('PATH',UpperCase(Alist.Strings[I]))>0 then
                    begin
                      S:=AList.Strings[I];
                      Delete(S,1,Pos('=',S));
                      Result:=True;
                      Break;
                    end
                    else
                      Inc(I);
                    AList.Free;
                end;
                Function GetTableName : Boolean;
                begin
                  Result:=False;
                  S:='';
                  If StringGrid1.RowCount>0 then
                  begin
                    I:=0;
                    While (I<StringGrid1.RowCount) AND (UpperCase(StringGrid1.Cells[0,I])<>'TABLENAME') do
                      Inc(I);
                    If I<StringGrid1.RowCount then
                      S:=StringGrid1.Cells[1,I];
                    Result:=S<>'';
                  end;
                end;
                Function GetLookUpSource : Boolean;
                begin
                  Result:=False;
                  CAddr:=0;
                  If StringGrid1.RowCount>0 then
                  begin
                    I:=0;
                    While (I<StringGrid1.RowCount) AND (UpperCase(StringGrid1.Cells[0,I])<>'LOOKUPSOURCE') do
                      Inc(I);
                    If I<StringGrid1.RowCount then
                    begin
                      S:=StringGrid1.Cells[1,I];
                      If S<>'' then
                        CAddr:=LongInt(TDataSource(TeProperty(PropList.Objects[I]).ClassAddr).DataSet);
                    end;
                    Result:=CAddr>0;
                  end;
                end;
begin
  If (PropList=Nil) OR (CurCol<>1) then
    Exit;
  CompProp:=PropList.Objects[CurRow] AS TEProperty;
  If CompProp.EType IN [PROP_STRTYPE,PROP_INTTYPE,PROP_REALTYPE,PROP_CHARTYPE] then
  begin
    EditStr.MaxLength:=CompProp.MaxChars;
    EditStr.Text:=CompProp.PValue;
    CurEdit:=EditStr;
  end
  else If CompProp.EType IN [PROP_BOOLTYPE,PROP_ENUMTYPE,PROP_COLORTYPE,PROP_CURSORTYPE,PROP_MODALTYPE] then
  begin
    ComboEnum.Items.Clear;
    CurEdit:=ComboEnum;
    Case CompProp.EType of
      PROP_BOOLTYPE   ,
      PROP_ENUMTYPE   : If NOT E_GetEnumList(CompProp,ComboEnum.Items) then
                          CurEdit:=Nil;
      PROP_COLORTYPE  : GetColorValues(EGetStrs);
      PROP_CURSORTYPE : GetCursorValues(EGetStrs);
      PROP_MODALTYPE  : For I:=MrNone to MrNo do
                          ComboEnum.Items.Add(MrArray[I]);
    else
      CurEdit:=Nil;
    end;
  end
  else If CompProp.EType = PROP_SETTYPE then
  begin
    If E_GetEnumList(CompProp,SetEdit.Items) then
    begin
      S:=StripAllChr(StripAllChr(StringGrid1.Cells[1,CurRow],'['),']');
      While S<>'' do
      begin
        I:=Pos(',',S);
        If I=0 then
          I:=Succ(Length(S));
        Ts:=Copy(S,1,Pred(I));
        Delete(S,1,I);
        I:=SetEdit.Items.IndexOf(Ts);
        If I>-1 then
          SetEdit.Selected[I]:=True;
      end;
      CurEdit:=SetEdit;
    end;
  end
  else If CompProp.EType IN [PROP_DBIDXNAMETYPE,PROP_DBTABNAMETYPE,
                            PROP_DBNAMETYPE,PROP_DBLOOKUPFIELD] then
  begin
    ComboEnum.Style:=csDropDown;
    If CompProp.EType=PROP_DBNAMETYPE then
      Session.GetDataBaseNames(ComboEnum.Items)
    else If CompProp.EType=PROP_DBIDXNAMETYPE then
    begin
      If GetTableName AND GetDataBaseName then
        If E_GetBoolProp(CurComponent,'Active',TBool) then
        begin
          If NOT TBool then
            If E_SetBoolProp(CurComponent,'Active',True) then
            begin
              Try
                 TTable(CurComponent).IndexDefs.Update;
                 For I := 0 to TTable(CurComponent).IndexDefs.Count - 1 do
                    ComboEnum.Items.Add(TTable(CurComponent).IndexDefs.Items[I].Fields);
              Finally
                 If NOT TBool then
                   E_SetBoolProp(CurComponent,'Active',False);
              end;
            end;
        end;
    end
    else If CompProp.EType=PROP_DBTABNAMETYPE then
    begin
      If GetDataBaseName AND GetDataBasePath then
        GetFileList(S,'*.DB;*.DBF',ComboEnum.Items);
    end
    else If CompProp.EType=PROP_DBLOOKUPFIELD then
    begin
      If GetLookupSource then
      begin
        TBool:=TTable(CAddr).Active;
        If NOT TBool then
          TTable(CAddr).Active:=True;
        For I := 0 to TTable(CAddr).FieldDefs.Count - 1 do
            ComboEnum.Items.Add(TTAble(CAddr).FieldDefs.Items[I].Name);
        If NOT TBool then
          TTable(CAddr).Active:=False;
      end;
    end;
    CurEdit:=ComboEnum;
  end
  else If CompProp.EType=PROP_CLASSTYPE then
  begin
    If CompProp.SubType=PROP_DATASETSUB then
    begin
      ComboEnum.Style:=csDropDown;
      With Session do  for I:= 0 to DatabaseCount - 1 do
        With Databases[I] do
          For J:=0 to DataSetCount-1 do
            If ComboEnum.Items.IndexOf(Datasets[I].Name)<0 then
              ComboEnum.Items.Add(DataSets[I].Name);
      For I:=0 to FComponent.ComponentCount-1 do
         If FComponent.Components[I] IS TTable then
           If ComboEnum.Items.IndexOf(TTable(FComponent.Components[I]).Name)<0 then
             ComboEnum.Items.Add(TTable(FComponent.Components[I]).Name);
      CurEdit:=ComboEnum;
    end
    else If CompProp.SubType=PROP_DATASOURCESUB then
    begin
      ComboEnum.Style:=csDropDown;
      For I:=0 to FComponent.ComponentCount-1 do
         If FComponent.Components[I] IS TDataSource then
           If ComboEnum.Items.IndexOf(TDataSource(FComponent.Components[I]).Name)<0 then
             ComboEnum.Items.Add(TDataSource(FComponent.Components[I]).Name);
      CurEdit:=ComboEnum;
    end;
  end;
  If CurEdit<>Nil then
  begin
    If CurEdit=ComboEnum then
    begin
      ComboEnum.Text:=CompProp.PValue;
      ComboEnum.ItemIndex:=ComboEnum.Items.IndexOf(CompProp.PValue);
    end;
    SetEditBounds(CurEdit);
  end
  else If CompProp.EType=PROP_CLASSTYPE then
  begin
    Try
      If CompProp.SubType=PROP_FONTSUB then
      begin
        FontDialog := TFontDialog.Create(Application);
        try
          FontDialog.Font := TFont(CompProp.ClassAddr);
          FontDialog.Options := FontDialog.Options + [fdForceFontExist];
          if FontDialog.Execute then
            If E_SetIntProp(CurComponent,PropList.Strings[CurRow],LongInt(FontDialog.Font)) then
              CompProp.PValue:=FontDialog.Font.Name;
        finally
          FontDialog.Free;
        end;
      end
      else If CompProp.SubType=PROP_ICONSUB then
      begin
        ImageForm.IconsOnly;
        ImageForm.Image1.Picture.Icon.Assign(TIcon(CompProp.ClassAddr));
        If ImageForm.ShowModal=mrOk then
          TIcon(CompProp.ClassAddr).Assign(ImageForm.Image1.Picture.Icon);
      end
      else If CompProp.SubType=PROP_BMPSUB then
      begin
        DoIt:=UpperCase(StringGrid1.Cells[0,CurRow])='GLYPH';
        ImageForm.BmpsOnly(DoIt);
        ImageForm.Image1.Picture.BitMap.Assign(TBitMap(CompProp.ClassAddr));
        If ImageForm.ShowModal=mrOk then
          TBitMap(CompProp.ClassAddr).Assign(ImageForm.Image1.Picture.BitMap);
        If DoIt then
        begin
          For I := 0 To StringGrid1.RowCount-1 do
            If UpperCase(StringGrid1.Cells[0,I])='NUMGLYPHS' then
            begin
              If E_SetIntProp(CurComponent,StringGrid1.Cells[0,I],StrToInt(ImageForm.UpDownEdit.Text)) then
              begin
                With PropList.Objects[I] AS TEProperty do
                begin
                  PValue:=ImageForm.UpdownEdit.Text;
                  StringGrid1.Cells[0,I]:=PValue;
                end;
              end;
              Break;
            end;
        end;
      end
      else If CompProp.SubType=PROP_TSTRSUB then
      begin
        SedForm.StrList.Lines.Assign(TStrings(CompProp.ClassAddr));
        If (SedForm.ShowModal=mrOk) then
          TStrings(CompProp.ClassAddr).Assign(SedForm.StrList.Lines);
      end
      else If Assigned(TComponent(CompProp.ClassAddr)) then
      begin
        E_GetStrProp(CurComponent,'Name',ts);
        If ts<>'' then
          ts:=ts+'.';
        ts:=ts+StringGrid1.Cells[0,CurRow];
        EditAComponent(TComponent(CompProp.ClassAddr),ts,True);
      end;
      StringGrid1.Cells[1,CurRow]:=CompProp.PValue;
    Finally
    end;
  end;
end;
procedure TCompEditForm.StringGrid1DblClick(Sender: TObject);
Var
    CurCol     : LongInt;
    CurRow     : LongInt;
    MousePoint : TPoint;
begin             {THIS WAS ADDED DUE TO A BUG FOUND BY Wm David Parker}
  GetCursorPos(MousePoint);
  MousePoint:=StringGrid1.ScreenToClient(MousePoint);
  StringGrid1.MouseToCell(MousePoint.X,MousePoint.Y,CurCol,CurRow);
  EditProperty(CurCol,CurRow);
end;

procedure TCompEditForm.ClearEdit(Sender: TObject);
begin
  E_SetBoolProp(TComponent(Sender),'Visible',False);
  ActiveControl:=StringGrid1;
  If Sender=ComboEnum then
  begin
    ComboEnum.Items.Clear;
    ComboEnum.Style:=csDropDownList;
  end;
  SetStatusBar(StringGrid1,StringGrid1.Row);
end;
procedure TCompEditForm.FixUpOnExit(Sender: TObject);
Var
    S         : String;
    IsVisible : Boolean;
begin
  If NOT E_GetBoolProp(TComponent(Sender),'Visible',IsVisible) then
    IsVisible:=False;
  If IsVisible AND (PropList<>Nil) then
  begin
    CompProp:=PropList.Objects[StringGrid1.Row] AS TEProperty;
    If CompProp.EType=PROP_SETTYPE then
      S:=''
    else If NOT E_GetStrProp(TComponent(Sender),'Text',S) then
      S:=StringGrid1.Cells[1,StringGrid1.Row];
    Try
      If (S<>StringGrid1.Cells[1,StringGrid1.Row]) then
        DoLastControl;
    Finally
      ClearEdit(Sender);
    end;
  end
  else
    ClearEdit(Sender);
end;

procedure TCompEditForm.EditStrKeyPress(Sender: TObject; var Key: Char);
begin
  If StringGrid1.Row>=PropList.Count then
    Exit;
  CompProp:=PropList.Objects[StringGrid1.Row] AS TEProperty;
  Case CompProp.EType Of
    PROP_CHARTYPE : If Key IN ['0'..'9'] then
                      If Pos('#',EditStr.Text)=0 then
                        Key:=#0;
    PROP_INTTYPE  : If (Key='-') AND (CompProp.MinVal>-1) then
                      Key:=#0
                    else If NOT (Key IN ['-','0'..'9']) then
                      Key:=#0;
    PROP_REALTYPE  : If (Key='.') AND (EditStr.Text='') then
                      Key:=#0
                    else If NOT (Key IN ['-','.','0'..'9']) then
                      Key:=#0;
  end;
end;



procedure TCompEditForm.EditkeyDown(Sender: TObject; var Key: Word;
                                    Shift: TShiftState);
Var
     ARow : Integer;
begin
  If Key=VK_ESCAPE then
  begin          {Suggested by Wm David Parker to allow for cancel of edit}
    E_SetBoolProp(TComponent(Sender),'Visible',False);
    Key:=0;
  end
  else If Key IN[VK_UP,VK_DOWN] then
  begin
    If (Sender = ComboEnum) AND (ComboEnum.DroppedDown) then
      Exit;
    With StringGrid1 do
    begin