Q&A

  • 상태바(StatusBar)표현을 어떻게...
폼에 상태바(StatusBar)를 두고 디비그리드에 대한 합계를 보여주려합니다.

근데 실제 Text 길이가 1500 정도되는것 같은데.. 1200정도 보여주다가 그이후 Text는 안나오는데..

아무리 해봐도 안되네요..

상태바(StatusBar)에도 width 길이 제한이 있는지요..

어떻게 하면 원하는 각필드의 합계를 보여줄수 있는지요...



StatusBar1.Panels.Items[0].Text :=

'A의 SUM : ' +

FormatFloat('#,##0', FieldByName('정상원금').AsCurrency) +

' / B의 SUM : ' +

FormatFloat('#,##0', FieldByName('정상이자').AsCurrency) +

' / C의 SUM : ' +

FormatFloat('#,##0', FieldByName('중도상환금').AsCurrency) +



:

:

:





3  COMMENTS
  • Profile
    nilriri 2000.05.25 18:37
    STATUSBAR1.SimpleText := 'ASDFASFASFFDSASDFAS'

    이렇게 하면 안되나요?

    이렇게 하니깐 화면크기가 허용하는 만큼은 나오는거 같은데...





    몰라 wrote:

    > 폼에 상태바(StatusBar)를 두고 디비그리드에 대한 합계를 보여주려합니다.

    > 근데 실제 Text 길이가 1500 정도되는것 같은데.. 1200정도 보여주다가 그이후 Text는 안나오는데..

    > 아무리 해봐도 안되네요..

    > 상태바(StatusBar)에도 width 길이 제한이 있는지요..

    > 어떻게 하면 원하는 각필드의 합계를 보여줄수 있는지요...

    >

    > StatusBar1.Panels.Items[0].Text :=

    > 'A의 SUM : ' +

    > FormatFloat('#,##0', FieldByName('정상원금').AsCurrency) +

    > ' / B의 SUM : ' +

    > FormatFloat('#,##0', FieldByName('정상이자').AsCurrency) +

    > ' / C의 SUM : ' +

    > FormatFloat('#,##0', FieldByName('중도상환금').AsCurrency) +

    >

    > :

    > :

    > :

    >

    >

  • Profile
    몰라 2000.05.25 18:55
    몰라 wrote :

    > STATUSBAR1.SimpleText := 'ASDFASFASFFDSASDFAS' 처럼 해봤죠....

    그런데도 안되요..



    nilriri wrote:

    > STATUSBAR1.SimpleText := 'ASDFASFASFFDSASDFAS'

    > 이렇게 하면 안되나요?

    > 이렇게 하니깐 화면크기가 허용하는 만큼은 나오는거 같은데...

    >

    >

    > 몰라 wrote:

    > > 폼에 상태바(StatusBar)를 두고 디비그리드에 대한 합계를 보여주려합니다.

    > > 근데 실제 Text 길이가 1500 정도되는것 같은데.. 1200정도 보여주다가 그이후 Text는 안나오는데..

    > > 아무리 해봐도 안되네요..

    > > 상태바(StatusBar)에도 width 길이 제한이 있는지요..

    > > 어떻게 하면 원하는 각필드의 합계를 보여줄수 있는지요...

    > >

    > > StatusBar1.Panels.Items[0].Text :=

    > > 'A의 SUM : ' +

    > > FormatFloat('#,##0', FieldByName('정상원금').AsCurrency) +

    > > ' / B의 SUM : ' +

    > > FormatFloat('#,##0', FieldByName('정상이자').AsCurrency) +

    > > ' / C의 SUM : ' +

    > > FormatFloat('#,##0', FieldByName('중도상환금').AsCurrency) +

    > >

    > > :

    > > :

    > > :

    > >

    > >

  • Profile
    타락천사 2000.05.25 20:29
    안녕하세여..타락임다.. ^^



    이상하군여..



    우선 스테이트바를 더블클릭해서 판넬을 만듭니다..



    담에



    procedure TForm1.Button1Click(Sender: TObject);

    begin

    StatusBar1.Panels[0].Width := ClientWidth;

    StatusBar1.Panels[0].Text := '88888888888888888888888888888888888888'

    + '8888888888888888888888888888888888888888888888888888888888888';

    end;



    왕초보 타락천사. ^_____^



    몰라 wrote:

    > 몰라 wrote :

    > > STATUSBAR1.SimpleText := 'ASDFASFASFFDSASDFAS' 처럼 해봤죠....

    > 그런데도 안되요..

    >

    > nilriri wrote:

    > > STATUSBAR1.SimpleText := 'ASDFASFASFFDSASDFAS'

    > > 이렇게 하면 안되나요?

    > > 이렇게 하니깐 화면크기가 허용하는 만큼은 나오는거 같은데...

    > >

    > >

    > > 몰라 wrote:

    > > > 폼에 상태바(StatusBar)를 두고 디비그리드에 대한 합계를 보여주려합니다.

    > > > 근데 실제 Text 길이가 1500 정도되는것 같은데.. 1200정도 보여주다가 그이후 Text는 안나오는데..

    > > > 아무리 해봐도 안되네요..

    > > > 상태바(StatusBar)에도 width 길이 제한이 있는지요..

    > > > 어떻게 하면 원하는 각필드의 합계를 보여줄수 있는지요...

    > > >

    > > > StatusBar1.Panels.Items[0].Text :=

    > > > 'A의 SUM : ' +

    > > > FormatFloat('#,##0', FieldByName('정상원금').AsCurrency) +

    > > > ' / B의 SUM : ' +

    > > > FormatFloat('#,##0', FieldByName('정상이자').AsCurrency) +

    > > > ' / C의 SUM : ' +

    > > > FormatFloat('#,##0', FieldByName('중도상환금').AsCurrency) +

    > > >

    > > > :

    > > > :

    > > > :

    > > >

    > > >