А нужно, например, сделать некоторые edit-ы недоступными для редактирования или выделить цветом.
Add(InlineCode,644566,658,560)
{
WorkPoints=#1:c|
DataPoints=#1:h|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|9: public|16: h:THI_Event;|42: procedure c(var dt:TData; index:word);|5: end;|0:|14:implementation|0:|24:procedure THiAsmClass.c;|16:var hnd:integer;|18: Ctl: pControl;|5:begin|26: hnd := ToIntegerEvent(h);|39: Ctl := Pointer(GetProp(hnd, ID_SELF));|66: //GetProp - ф-ция winapi, извлекает указанное св-во окна/контрола|100: //SetProp - устанавливает св-во окна/контрола, в т.ч. произвольное (SetProp(hwnd, "TestProp", 555))|54: //KOL заносит в св-во ID_SELF Pcontrol (слава б-гу :)|22: Ctl.Color := $E8E8E8;|17: //_hi_OnEvent();|4:end;|0:|4:end.|
link(h,11891032:Var1,[(664,488)])
}
Add(MainForm,10489408,231,105)
{
Width=911
Height=350
Position=1
}
Add(StringTableMT,7503742,462,119)
{
Width=903
Height=250
Align=2
Font=[Calibri,28,0,0,204]
Name="table1"
Columns=#7:авб=200|7:где=150|7:еёж=150|11:зик-T20=160|7:лмн=160|
StrDelimiter="\9"
Redaction=0
Flat=1
TabGrid=0
Grid=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
StringsStrLst=#24:йцу\9енг\9шщз\9фыв\9апро|28:еке\9енг\9шщипз\9фы54в\9апро|32:йцпку\9е55нг\9ш5нщз\9фыв\9апрьго|34:й5епцу\9ен634г\9шщз\9фыцьв\9аьпгро|34:йцрну\9е5нг\9шитщз\9фтпыв\9апрпк4о|
AutoTblStrLst=0
StaticColumn=0
Point(onEscCell)
Point(onChange)
Point(Matrix)
Point(EndIdx)
Point(FullTextTab)
Point(doInitTxtTab)
Point(onKeyDown)
Point(Index)
Point(Handle)
}
Add(InfoTip,13056749,231,266)
{
Info=#31:Блокировка редактирования ячеек|
Font=[MS Sans Serif,8,1,0,1]
Frame=2
HAlign=0
Width=498
Height=340
Margin=3
}
Add(Timer,2437119,301,413)
{
Interval=200
link(onTimer,1492792:doEvent1,[])
}
Add(Hub,1492792,350,413)
{
OutCount=4
link(onEvent2,3632333:In,[])
link(onEvent3,11821637:doEnumChildWindows,[])
link(onEvent4,6899760:doEnum,[(374,440)(374,531)])
}
Add(LineBreak,4662516,539,322)
{
link(Out,3781745:doClear,[])
Primary=[3632333,-161,98]
}
Add(WinEnum,11821637,420,406)
{
Point(onEnumChildWindows)
Point(doEnumChildWindows)
Point(ParentHandle)
link(onEnumChildWindows,12747369:doValue,[])
link(ParentHandle,2020457:Var,[])
}
Add(MT_MultiMem,12747369,469,420)
{
link(onData,10525174:doCompare,[])
}
Add(If_else,10525174,511,420)
{
Op2=String(obj_EDIT)
link(onTrue,1765035:doAdd,[])
link(Op1,12747369:Value1,[(517,408)(496,408)(496,464)(475,464)])
AddHint(1,37,70,13,Op2)
}
Add(IntegerArray,3781745,581,308)
{
IntArray=[]
}
Add(ArrayRW,1765035,581,406)
{
link(Array,922605:Var2,[])
link(Value,16686113:Var,[])
}
Add(LineBreak,16606972,476,476)
{
Caption="hnd"
Type=1
link(Data,12747369:Value2,[])
Primary=[16686113,119,-98]
}
Add(LineBreak,8278647,504,175)
{
Caption="hnd1"
Type=1
link(Data,7503742:Handle,[])
Primary=[2020457,-77,189]
}
Add(GetDataEx,922605,581,343)
{
link(Data,3781745:Array,[])
}
Add(LineBreak,9069183,588,357)
{
Caption="arr"
Type=1
link(Data,922605:Var3,[(594,348)])
Primary=[1795958,-203,140]
}
Add(CounterEx,5285802,427,525)
{
Max=1
Default=-1
Point(onThroughMax)
link(onNext,999608:doEvent1,[])
}
Add(ArrayEnum,6899760,385,525)
{
Type=1
link(onItem,5285802:doNext,[])
link(Array,1795958:Var,[])
AddHint(-85,26,35,13,Type)
}
Add(Case,6258814,497,532)
{
Value=Integer(1)
link(onTrue,7738208:In,[])
AddHint(3,-23,21,13,Value)
}
Add(Hub,999608,469,525)
{
link(onEvent1,5300686:doData,[])
link(onEvent2,6258814:doCase,[])
}
Add(LineBreak,12096479,343,532)
{
link(Out,6899760:doStop,[])
Primary=[7738208,196,7]
}
Add(WinTools,10447454,665,497)
{
Point(doEnable)
link(Handle,11891032:Var2,[])
}
Add(DoData,5300686,581,525)
{
Data=Integer(0)
link(onEventData,7030212:doEvent1,[])
AddHint(1,35,21,13,Data)
}
Add(LineBreak,1556672,385,567)
{
Caption="hnd"
Type=1
link(Data,6899760:Item,[])
Primary=[3317433,280,-105]
}
Add(Hub,7030212,623,525)
{
link(onEvent1,10447454:doEnable,[])
link(onEvent2,644566:c,[(647,538)(647,566)])
}
Add(GetDataEx,11891032,665,483)
{
link(Data,3317433:Var,[])
}
Поиск
Друзья
Администрация