Исходники и листинги ::: Delphi ::: Image Size
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
  unit Unit1;
 
  interface
 
  uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, OleServer, Word2000, StdCtrls, ExtCtrls;
 
  type
    TForm1 = class(TForm)
      GroupBox1: TGroupBox;
      GroupBox2: TGroupBox;
      Edit1: TEdit;
      Edit2: TEdit;
      Label1: TLabel;
      Label2: TLabel;
      Label3: TLabel;
      Label4: TLabel;
      Label5: TLabel;
      Edit3: TEdit;
      Edit4: TEdit;
      Edit5: TEdit;
      ComboBox1: TComboBox;
      ComboBox2: TComboBox;
      Button1: TButton;
      Label6: TLabel;
      Button2: TButton;
      procedure Button1Click(Sender: TObject);
      procedure Button2Click(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;
 
  var
    Form1: TForm1;
 
  implementation
 
  {$R *.dfm}
 
  procedure cnt_size;
  var wdth,hght: real;
  begin
   wdth:=StrToInt(Form1.Edit1.Text)/StrToInt(Form1.Edit5.Text);
   hght:=StrToInt(Form1.Edit2.Text)/StrToInt(Form1.Edit5.Text);
   case Form1.ComboBox1.ItemIndex of
     1: begin
         wdth:=wdth*25.4;
        end;
     2: begin
         wdth:=wdth*2.54;
        end;
   end;
   case Form1.ComboBox2.ItemIndex of
     1: begin
         hght:=hght*25.4;
        end;
     2: begin
         hght:=hght*2.54;
        end;
   end;    
   Form1.Edit3.Text:=FloatToStr(wdth);
   Form1.Edit4.Text:=FloatToStr(hght);
  end;
 
  procedure TForm1.Button1Click(Sender: TObject);
  begin
   Form1.Close;
  end;
 
  procedure TForm1.Button2Click(Sender: TObject);
  begin
   cnt_size;
  end;
 
  end.
<<< Предыдущая работа

Вернуться в галерею исходников 		Image Size
Автор: Sashaa*
Город: Казань
 Дата: 14.01.2007  16:54
Комментариев: 0
Просмотров: 140
Оценка: 0 (0|0|0|0|0) [0]
Вернуться на главную
Авторский комментарий к работе: Вводишь высоту и ширину картинки в px и dpi, программа выводит размер картинки в сантиметрах или в миллиметрах.
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
Нет комментариев