картинки в delphi

[aljkerh]

как зделать что бы амперметр показывал нужное значение?
т.е. я нажимаю посчитать и стрелка устанавливается на определенное значение.
у меня есть картинки со всеми значениями, пытался зделать чтоб они пролистывались как кадры, но как остановить на нужном значении.

может как-нибудь по другому зделать попробывать?

[Alex21]

Сообщение от aljkerh

может как-нибудь по другому зделать попробывать?

Если не выходит так, то лучше идеи не встречал
Как делаете? Не секрет?

[Stilet]

Можеш проектик свой прикрепить, ато пока не очень ясно...
Кста для такого есть спецкомпоненты, например в пакете ELdos.

[aljkerh]

проект - виртуальный макет для выполнения лабораторной работы.

там в принципе все просто: вводишь данные, жмешь на кнопку и амперметр (стрелочный) выводит значение.

картинки апмперметра с разным положением стрелок я сделал в один фильм (думаю зря).

проблема заключается в том как зделать чтоб было видно, что двигается только стрелка (с фильмом не вышло).

и еще при этом надо чтоб она тормозилась на нужном мне значении (т.е. если по расчетам получилось 30, то чтоб стрелка остановилась на 30mA).

[xenon]

Мда... Ищем трудностей?
Делаем картинку самого амперметра, потом рисуем стрелку на канве Image КСОРОМ, потом(когда значение поменяли) ещё раз рисуем в ЭТОМ же месте линию опять же ксором (она стирается) и рисуем на новом месте.
Итого: требуется 1 картинка и сделать зависимость значения координаты от значения амперметра.

Если захотеть, то можно сделать плавное перемещение стрелки (линии), для этого используем таймер.

[mutabor]

манометр подойдет? (правда чуток недоделан, но стрелка есть)
manometr.rar
можно и спрайтами (смена картинок) сделать, если что обращайся, помогу

p.s. xenon правильно говорит, одна картинка и рисовать стрелку, дай картинку я тебе стрелку сделаю как надо

[Stilet]

Вот мой примерчик:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Timer1: TTimer;
    procedure Edit1Change(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var k,i:integer;ao,bo,a,b:real;

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);

begin
 if TryStrToInt(Edit1.Text,i) then begin
   a:=100*sin(i)+Width div 2;
   b:=100*cos(i)+Height div 2;
  Timer1.Enabled:=true;  k:=1;
 end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //********** WITH **********
  with Form1.Canvas do  begin
   FillRect(BoundsRect);
   MoveTo(Width div 2,Height div 2);
   a:=100*sin(k/360)+Width div 2;
   b:=100*cos(k/360)+Height div 2;
   LineTo(round(a),round(b));
   if k<i then   inc(k,i div k) else dec(i,i div k);
   caption:=inttostr(i)+' '+inttostr(k);
   if k=i then begin
     Timer1.Enabled:=false;
   end;
  end;
  //********** END WITH ****** {}
end;

end.

[aljkerh]

Сообщение от mutabor

манометр подойдет? (правда чуток недоделан, но стрелка есть)
Вложение 1344

p.s. xenon правильно говорит, одна картинка и рисовать стрелку, дай картинку я тебе стрелку сделаю как надо

попробуй

схемотичная картинка

[Квэнди]

Сугубо имхо как вариант: для каждог оположения сделать анимированный gif и в зависимости от значения показывать тот или иной gif

[aljkerh]

Сообщение от xenon

Мда... Ищем трудностей?
Делаем картинку самого амперметра, потом рисуем стрелку на канве Image КСОРОМ, потом(когда значение поменяли) ещё раз рисуем в ЭТОМ же месте линию опять же ксором (она стирается) и рисуем на новом месте.
Итого: требуется 1 картинка и сделать зависимость значения координаты от значения амперметра.

Если захотеть, то можно сделать плавное перемещение стрелки (линии), для этого используем таймер.

спасибо за идею
попробую.