добрейшего вечерка форумчане!
пытаюсь немного переписать DBGrid под свои нужды, на данный момент в шапке колонки можно сделать не ограниченное число строк (установив их количество)
хочется сделать так чтобы ширина оставалась как была установленная в параметрах, а на основе этого длинную строку разделить на строки так чтобы они по ширине вписались в установленную ширину столбца
перед вводом заголовка (Caption) ширина столбца 20, после уже 538
1.
2.
3.
wb:=dbg.Columns[0].Width; // ----->ширина 20
dbg.Columns[0].Title.Caption := 'длинная строка которую надо уместить в ширину столбца без его увеличения после ввода этой строки';
wa:=dbg.Columns[0].Width; // ----->ширина 538
пробовал отладчиком пройтись по коду
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
unit Data.DB;
.....................................................
procedure TField.SetDisplayLabel(Value: string);
begin
if Value = FFieldName then Value := '';
if FDisplayLabel <> Value then
begin // -----> здесь ещё 20
FDisplaylabel := Value; // -----> с этой строки перепрыгивает в модуль System
PropertyChanged(True); // -----> а тут уже 538
end;
end;
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
unit System;
.....................................................
procedure _UStrAsg(var Dest: UnicodeString; const Source: UnicodeString); // globals (need copy)
{$IFDEF PUREPASCAL}
.....................................................
{$ELSE !PUREPASCAL}
{$IFDEF CPUX86}
asm
.....................................................
@@2: XCHG EDX,[EAX] // -----> до этой строчки ширина столбца ещё 20, а после уже 538
TEST EDX,EDX
JE @@3
MOV ECX,[EDX-skew].StrRec.refCnt
DEC ECX
JL @@3
.....................................................
end;
{$ENDIF CPUX86}
{$ENDIF !PUREPASCAL}
подскажите каким образом отловить расширение столбца при вводе длинного названия
