Add(MainForm,16106768,147,105)
{
 Height=164
 Point(onClose)
 link(onCreate,9995737:doGetDefault,[(250,125)(250,153)])
 link(onClose,6895481:doWork1,[(221,132)])
}
Add(InlineCode,9995737,301,147)
{
 WorkPoints=#12:doGetDefault|15:doSetBrightness|12:doSetDefault|0:|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,windows,Share,Debug;|0:|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|52:    procedure doGetDefault(var dt:TData; idx: word);|55:    procedure doSetBrightness(var dt:TData; idx: word);|52:    procedure doSetDefault(var dt:TData; idx: word);|5: end;|0:|14:implementation|0:|4:type|60:  // Массив для хранения таблиц гамма-коррекции (gamma ramp)|52:  TRampArray = array[0..2] of array[byte] of word;  |3:var|32:  // Текущие значения gamma ramp|29:  origRampArray: TRampArray; |2:  |30:// Cохраняем текущие значения |35:procedure THiAsmClass.doGetDefault;|3:var|10:  DC: HDC;|5:begin|20:   DC := GetDC( 0 );|6:   try|46:      GetDeviceGammaRamp( DC, origRampArray );|10:   finally|25:      ReleaseDC( 0, DC );|6:   end|7:end;   |0:|53:function SetBrightness( wBrightness: word ): boolean;|3:var|24:  RampArray: TRampArray;|20:  i, Value: integer;|10:  DC: HDC;|5:begin|27:   for i := 0 to MAXBYTE do|8:   begin|41:      Value := i * ( wBrightness + 128 );|51:      if ( Value > MAXWORD ) then Value := MAXWORD;|34:         RampArray[0][i] := Value;|34:         RampArray[1][i] := Value;|34:         RampArray[2][i] := Value;|8:   end; |20:   DC := GetDC( 0 );|6:   try|53:      Result :=  SetDeviceGammaRamp( DC, RampArray );|10:   finally|25:      ReleaseDC( 0, DC );|7:   end;|4:end;|0:|38:procedure THiAsmClass.doSetBrightness;|4:var |13:  i: integer;|5:begin|21:  i := ToInteger(dt);|20:  SetBrightness (i);|4:end;|0:|35:procedure THiAsmClass.doSetDefault;|3:var|10:  DC: HDC;|5:begin|20:   DC := GetDC( 0 );|6:   try|46:      SetDeviceGammaRamp( DC, origRampArray );|10:   finally|25:      ReleaseDC( 0, DC );|6:   end|4:end;|0:|0:|4:end.|
}
Add(TrackBar,7829452,147,154)
{
 Left=15
 Top=50
 Width=355
 Max=255
 TickCount=10
 link(onPosition,9995737:doSetBrightness,[])
}
Add(Button,16221129,146,196)
{
 Left=25
 Top=90
 Width=95
 Caption="SetDefault"
 link(onClick,6895481:doWork2,[])
}
Add(Label,8092772,301,105)
{
 Left=15
 Top=15
 Width=99
 Height=17
 Caption="Яркость монитора"
}
Add(HubEx,6895481,217,196)
{
 link(onEvent,9995737:doSetDefault,[(249,202)(249,167)])
}