wbsutil.pas

wbs43open-src.zip 数字隐藏工具

unit wbsUtil;

// wbStego 4.0 Utilities //

interface

uses SysUtils
{$IFDEF CLX}
  ,QStdCtrls, QGraphics
{$ELSE}
  ,StdCtrls
{$ENDIF}
  ;

  procedure FormatLabels(Text: String; aLabel: TLabel);

implementation

  procedure FormatLabels(Text: String; aLabel: TLabel);
  var
    t:      String;
    pts:    String;
  begin
    t:=LowerCase(ExtractFilename(Text));
    pts:='';
{$IFDEF CLX}
    while Length(t)>15 do begin
{$ELSE}
    while aLabel.Canvas.TextWidth(t+pts)>aLabel.Width do begin
{$ENDIF}
      pts:='...';
      t:=Copy(t,1,Length(t)-1);
    end;

    aLabel.Caption:=t+pts;
  end;

end.