【搞定】一中特殊的文档表现形式，不知道如何用X3实现[问题]**

atiger

我想到的就是一个格子用一个字段。

要不就是找找是否有类似控件，用第三方控件来做，

新来小职员

他的输入是象windows自带的计算器那样,当你先输入一个1,然后再输入一个0,那1就向前移动到十位处0就在个位处.依此类推

atiger

能让这些数字之间没有线，意思就用一个字段来表示，如果要一个数字一个数字用线隔开，平台做不到，需要借助第三方控件了

新来小职员

如此这般,只好结贴了...-_-b

lixy

有个不算好方法的方法，你可以自己画这个
用GridCustomDrawCell 事件

atiger

??

lixy

procedure TSJWG1.DataGridCustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode; AColumn: TTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: string; var AColor: Integer; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
var
    S: String;
    i, x, y, iTextWidth: Integer;
begin

    if  AColumn.Name<>'DataGridJE'   then Exit;

    with ACanvas do begin
        iTextWidth := TextWidth('8') + 4;

        y := ARect.Top + (ARect.Bottom - ARect.Top - TextHeight('8')) div 2;

        S :=  Business.System.SysUtils.StringReplace(sysutils.FormatFloat('0.00',DataSetBrokerBZSJJ1.DataSet.FieldByName('je').AsFloat), '.', '', []);
        if DataSetBrokerBZSJJ1.DataSet.FieldByName('je').AsFloat < 0 then Font.Color := Business.System.Graphics.clRed;
        if ASelected then    Font.Color := Business.System.Graphics.clBlack;
        FillRect(ARect);

        i := (ARect.Right - ARect.Left) div iTextWidth;
        repeat
            x := ARect.Right - iTextWidth * i;
            if i <= Length(S) then
                TextOut(x+3, y, s.Chars[s.Length-i]); //S[Length(S)-i+1]

            if i = 2 then
                Pen.Color := Business.System.Graphics.clRed
            else if (i = 0) or ( (i>2) and (((i-2) mod 3) = 0) ) then
                Pen.Color := Business.System.Graphics.clGreen
            else
                Pen.Color := Business.System.Graphics.clSilver;
            MoveTo(x, ARect.Top);
            LineTo(x, ARect.Bottom);
            Dec(i);

        until (i<0);
        ADone := true;
    end;
end;

新来小职员

我要研究下,过段时间再反馈.

atiger

好，记得及时反馈，帖子一般跟踪不要超过一周，太长你我都不方便

新来小职员

如果是样你先结了这贴先,我遇到问题的话再另外发贴.