TTeeCommander button bitmaps cut

[X-Ray]

Hello,

I am using a TTeeCommander component in an iOS project.
But somehow the buttons/bitmaps are always cut on the bottom of
TeeCommander toolbar, like in the attached screen shot.

TeeCommander.png (54 KiB) Viewed 20066 times

Is there any way to correctly display these button?

[Yeray]

Hello,

Have you tried to resize it?
Does it happen in the simulator or only in a real device?
Also note the editor/commander have been designed to help the developer to build and test their applications. These tools aren't designed to be accessed by the final users, so we don't recommend giving access to it.

[X-Ray]

Hello Yeray,

Yes, I tried to re-size it but it doesn't help. And the display is the same on the simulator too.
What is the recommended way to bind own toolbar buttons to the same functions?

[X-Ray]

Hello Yeray,

It would be very nice if there were simply a set of actions available that I could use to link any UI element to those functions that are available on the TTeeCommander toolbar.

[Yeray]

Hello,

Here you have what the buttons in the commander actually do:

Code: Select all

procedure TTeeCommander.ButtonNormalClick(Sender: TObject);
var tmp : TCircledSeries;
begin
  tmp:=GetCircledSeries(0,0);

  if Assigned(tmp) and tmp.Visible then
     SetLabelCaption(CaptionPanel(TeeCommanMsg_NormalPieLabel))
  else
     SetLabelCaption(CaptionPanel(TeeCommanMsg_NormalLabel));

  {$IFDEF FMX}
  if Assigned(ButtonNormal) then
     ButtonNormal.Down:=True;
  {$ENDIF}
end;

procedure TTeeCommander.ButtonRotateClick(Sender: TObject);
begin
  SetLabelCaption(CaptionPanel(TeeCommanMsg_RotateLabel));

  {$IFDEF FMX}
  if Assigned(ButtonRotate) then
     ButtonRotate.Down:=True;
  {$ENDIF}
end;

procedure TTeeCommander.ButtonMoveClick(Sender: TObject);
begin
  SetLabelCaption(CaptionPanel(TeeCommanMsg_MoveLabel));

  {$IFDEF FMX}
  if Assigned(ButtonMove) then
     ButtonMove.Down:=True;
  {$ENDIF}
end;

procedure TTeeCommander.ButtonZoomClick(Sender: TObject);
begin
  SetLabelCaption(CaptionPanel(TeeCommanMsg_ZoomLabel));

  {$IFDEF FMX}
  if Assigned(ButtonZoom) then
     ButtonZoom.Down:=True;
  {$ENDIF}
end;

procedure TTeeCommander.ButtonDepthClick(Sender: TObject);
begin
  SetLabelCaption(CaptionPanel(TeeCommanMsg_DepthLabel));

  {$IFDEF FMX}
  if Assigned(ButtonDepth) then
     ButtonDepth.Down:=True;
  {$ENDIF}
end;

procedure TTeeCommander.Button3DClick(Sender: TObject);
begin
  if Assigned(FPanel) then
  begin
    {$IFDEF CLX}
    IChanging3D:=True;
    {$ENDIF}
    FPanel.View3D:={$IFDEF CLX}not {$ENDIF}FButton3D.Down;
    {$IFDEF CLX}
    IChanging3D:=False;
    {$ENDIF}
  end;
end;

procedure TTeeCommander.ButtonEditClick(Sender: TObject);
{$IFNDEF TEEOCXNOEDITOR}
var tmp : TCustomTeePanel;
{$ENDIF}
begin
  {$IFNDEF TEEOCXNOEDITOR}
  tmp:=nil;

  if Assigned(FEditor) then
     FEditor.Execute
  else
  if Assigned(FPanel) then
  begin
    tmp:=TTeePanelAccess(FPanel).GetEditablePanel;

    if tmp is TCustomChart then
       {$IFDEF FMX}
       TChartEditForm.Edit(nil,TCustomChart(tmp))
       {$ELSE}
       {$IFDEF TEEOCX}
       EditChart(self,TCustomChart(tmp)) //TA05015162
       {$ELSE}
       EditChart(nil,TCustomChart(tmp))
       {$ENDIF}
       {$ENDIF}
    else
    if tmp is TCustomTeePanelExtended then
       {$IFDEF FMX}
       TGradientEditor.Edit(nil,TCustomTeePanelExtended(tmp).Gradient);
       {$ELSE}
       EditTeeGradient(nil,TCustomTeePanelExtended(tmp).Gradient);
       {$ENDIF}
  end;

  if Assigned(FOnEditedChart) then
     if Assigned(tmp) and (tmp is TCustomChart) then
        FOnEditedChart(Self,TCustomChart(tmp));

  if Assigned(FButton3D) then
     FButton3D.Down:=FPanel.View3D;
  {$ENDIF}
end;

procedure TTeeCommander.ButtonPrintClick(Sender: TObject);
begin
  {$IFNDEF TEEOCXNOEDITOR}
  if Assigned(FPreviewer) then FPreviewer.Execute
  else
  if Assigned(FPanel) then
     {$IFDEF FMX}
     TChartPreview.Preview(nil, FPanel);
     {$ELSE}
     {$IFDEF TEEOCX}
     ChartPreview(self,FPanel); //TA05015162
     {$ELSE}
     ChartPreview(nil,FPanel);
     {$ENDIF}
     {$ENDIF}
  {$ENDIF}
end;

procedure TTeeCommander.ButtonCopyClick(Sender: TObject);
begin
  if Assigned(FPanel) then FPanel.CopyToClipboardBitmap;
end;

procedure TTeeCommander.ButtonSaveClick(Sender: TObject);
begin
  {$IFNDEF TEEOCXNOEDITOR}
  if Assigned(FPanel) then
     if FPanel is TCustomChart then
        SaveChartDialog(FPanel as TCustomChart);
  {$ENDIF}
end;

[X-Ray]

Hello Yeray,

but call "SetLabelCaption" is private of "TTeeCommander" so I can't use this call in my code.
Or did you think about another way?

[Yeray]

Hello,

but call "SetLabelCaption" is private of "TTeeCommander" so I can't use this call in my code.
Or did you think about another way?

I posted the relevant methods for you to have an idea about what they actually do.
I believe you own the TeeChart sources so there's no need to put here the complete TeeComma.pas unit.

[X-Ray]

Hello Yeray,

yes of course, but that would mean duplicating all the code in there!
It would be much more elegant to offer this functionality via Actions, this would remove all the
necessity to know about internals and to duplicate any code.

[Yeray]

Hi,

yes of course, but that would mean duplicating all the code in there!
It would be much more elegant to offer this functionality via Actions, this would remove all the
necessity to know about internals and to duplicate any code.

Sorry, I understood you wanted to put your own buttons doing the same the buttons on the commander do. I don't see how this could be done without repeating some code.
I may have misunderstood you.