home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / navody / DICOMSRC.ZIP / View.pas < prev    next >
Pascal/Delphi Source File  |  1999-10-28  |  1KB  |  59 lines
  1. unit View;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, RXSlider, PGraphic;
  8. var
  9.    gcWhite,gcBlack,gcSlice,gcnSlice,gcScale,gcZoom: integer;
  10.  
  11. type
  12.   TViewForm = class(TForm)
  13.     Image1: TPGImage;
  14.     Label7: TLabel;
  15.     Label1: TLabel;
  16.     BlackSlide: TRxSlider;
  17.     WhiteSlide: TRxSlider;
  18.     SliceSlider: TRxSlider;
  19.     SliceLabel: TLabel;
  20.     SchemeDrop: TComboBox;
  21.     ScaleDrop: TComboBox;
  22.     ProDrop: TComboBox;
  23.     procedure FormShow(Sender: TObject);
  24.     procedure BlackSlideChange(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   ViewForm: TViewForm;
  33.  
  34. implementation
  35.  
  36. uses Childwin, Main;
  37.  
  38. {$R *.DFM}
  39.  
  40. procedure TViewForm.FormShow(Sender: TObject);
  41. begin
  42. {BlackSlide.value := gcBlack;
  43. WhiteSlide.value := gcWhite;}
  44. end;
  45.  
  46. procedure TViewForm.BlackSlideChange(Sender: TObject);
  47. begin
  48.      if ((Sender as TRxSlider).name <> 'BlackSlide') and(BlackSlide.value > WhiteSlide.value) then
  49.         BlackSlide.value := WhiteSlide.value
  50.      else if (BlackSlide.value > WhiteSlide.value) then
  51.             WhiteSlide.value := BlackSlide.value;
  52.      gcWhite :=WhiteSlide.value;
  53.      gcBlack := BlackSlide.Value;
  54.      TMDIChild(MainForm.ActiveMDIChild).updatepalette;
  55.  
  56. end;
  57.  
  58. end.
  59.