?? e_cmped.pas
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -