Цитата Tukash:
изменить цвет,"всмысле" там где голубой сделать темно синий, можно-ли это сделать путем занесения чего-либо в секцию [КОД], без разных там ***.cjstyles? »
|
если без использования сторонних длл, то в принципе можно, только такой способ будет действовать на всех наследников EDIT (т.е. во всей винде поменяются цвета у Edit, Memo и т.д. + менюшки и т.п.). обычная подмена системных цветов
читать дальше »
[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl
[code]
type
TM1 = array [0..1] of integer;
TM2 = array [0..1] of DWORD;
var
M1 : TM1;
M2 : TM2;
OldHighLightTextColor,
OldHighLightColor : DWORD;
function SetSysColors(cElements: Integer; lpaElements:TM1; lpaRgbValues:TM2): BOOL; external 'SetSysColors@user32.dll stdcall';
function GetSysColor(nIndex: Integer): DWORD; external 'GetSysColor@user32.dll stdcall';
procedure InitializeWizard();
begin
OldHighLightTextColor:=GetSysColor(14);
OldHighLightColor:=GetSysColor(13);
M1[0]:=14;
M1[1]:=13;
M2[0]:=$FF0000; // цвет выделенного текста
M2[1]:=$0000FF; // цвет фона выделенного текста
SetSysColors(2,M1,M2);
end;
procedure DeinitializeSetup();
begin
//вернем все взад, чтобы юзер не обиделся
M2[0]:=OldHighLightTextColor; //$FFFFFF;
M2[1]:=OldHighLightColor; //$C56A31;
SetSysColors(2,M1,M2);
end;
если нужно только для конкретного эдита, то это как минимум перехват оконной процедуры, т.е. тащить с собой стороннюю длл