Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.02.2016, 18:12   #11
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Да напиши ты уже свой прогрессбар!



Код:
  TProgressBar_64bit = class(TWinControl)
  private
    F32BitMode: Boolean;
    FMin: Int64;
    FMax: Int64;
    FPosition: Int64;
    FSavedPosition: Int64;
    FStep: Int64;
    FOrientation: TProgressBarOrientation;
    FSmooth: Boolean;
    FSmoothReverse: Boolean;
    FMarqueeInterval: Int64;
    FStyle: TProgressBarStyle;
    FBarColor: TColor;
    FBackgroundColor: TColor;
    FState: TProgressBarState;
    class constructor Create;
    class destructor Destroy;
    function GetMin: Int64;
    function GetMax: Int64;
    function GetPosition: Int64;
    procedure SetParams(AMin, AMax: Int64);
    procedure SetMin(Value: Int64);
    procedure SetMax(Value: Int64);
    procedure SetMarqueeInterval(Value: Int64);
    procedure SetPosition(Value: Int64);
    procedure SetStep(Value: Int64);
    procedure SetOrientation(Value: TProgressBarOrientation);
    procedure SetSmooth(Value: Boolean);
    procedure SetSmoothReverse(Value: Boolean);
    procedure SetStyle(Value: TProgressBarStyle);
    procedure SetBarColor(Value: TColor);
    procedure SetBackgroundColor(Value: TColor);
    procedure SetState(Value: TProgressBarState);
    procedure WMEraseBkGnd(var Message: TWmEraseBkgnd); Message WM_ERASEBKGND;
  protected
    procedure CreateParams(var Params: TCreateParams); override;
    procedure CreateWnd; override;
    procedure DestroyWnd; override;
  public
    constructor Create(AOwner: TComponent); override;
    procedure StepIt;
    procedure StepBy(Delta: Int64);
  published
    property Align;
    property Anchors;
    property BorderWidth;
    property DoubleBuffered;
    property DragCursor;
    property DragKind;
    property DragMode;
    property Enabled;
    property Hint;
    property Constraints;
    property Min: Int64 read GetMin write SetMin default 0;
    property Max: Int64 read GetMax write SetMax default 100;
    property Orientation: TProgressBarOrientation read FOrientation
      write SetOrientation default pbHorizontal;
    property ParentDoubleBuffered;
    property ParentShowHint;
    property PopupMenu;
    property Position: Int64 read GetPosition write SetPosition default 0;
    property Smooth: Boolean read FSmooth write SetSmooth default False;
    property Style: TProgressBarStyle read FStyle write SetStyle default pbstNormal;
    property MarqueeInterval: Int64 read FMarqueeInterval write SetMarqueeInterval default 10;
    property BarColor: TColor read FBarColor write SetBarColor default clDefault;
    property BackgroundColor: TColor read FBackgroundColor write SetBackgroundColor default clDefault;
    property SmoothReverse: Boolean read FSmoothReverse write SetSmoothReverse default false;
    property Step: Int64 read FStep write SetStep default 10;
    property State: TProgressBarState read FState write SetState default pbsNormal;
    property ShowHint;
    property TabOrder;
    property TabStop;
    property Touch;
    property Visible;
    property StyleElements;
    property OnContextPopup;
    property OnDragDrop;
    property OnDragOver;
    property OnEndDock;
    property OnEndDrag;
    property OnEnter;
    property OnExit;
    property OnGesture;
    property OnMouseActivate;
    property OnMouseDown;
    property OnMouseEnter;
    property OnMouseLeave;
    property OnMouseMove;
    property OnMouseUp;
    property OnStartDock;
    property OnStartDrag;
  end;
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...

Последний раз редактировалось min@y™; 22.02.2016 в 18:22.
min@y™ вне форума Ответить с цитированием
Старый 23.02.2016, 01:54   #12
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,859
По умолчанию

Цитата:
Сообщение от Shouldercannon Посмотреть сообщение
Задача требует отображать количество переданных данных начиная с байт и заканчивая Мб, Гб и т.д. Здесь ProgressBar поднимешь, байты уронишь. Поднимешь байты, ProgressBar уронишь.
Замкнутый круг.
Для троешнитка это действительно проблема!
Но поскольку все или почти все разумные советы уже были даны, то промолчу.
northener вне форума Ответить с цитированием
Старый 09.03.2016, 20:35   #13
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,893
По умолчанию

Аллилуя. Как-то так.
Вложения
Тип файла: zip Indy_Delphi_XE8.zip (150.6 Кб, 8 просмотров)
Shouldercannon вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Передача файлов большого размера через сайт. shavedcat HTML и CSS 15 14.05.2015 06:55
Загрузка файла большого размера с одного устройства monolitsk PHP 9 20.02.2014 11:23
Определение размера файлов большого размера stpdqstns Общие вопросы C/C++ 4 13.03.2013 11:50
Скачать файл большого размера Volkogriz Общие вопросы Delphi 4 21.02.2013 09:43
вывод буквы большого размера masterbet Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 12 30.11.2011 23:57