_OK | MB_ICONERROR); -> Color=clRed; -> Font-> ; Color=clWhite;;
}
/ / Колірна схема (int i=0; i Count; i + +)
{(Lua-> Strings [i]. Pos («cFrameFill =»))
{(RadioGroup1-> ItemIndex == 0)
{> Strings [i]=« cFrameFill={0, 0, 0, 0} »;> Strings [i +1] =« cDisplFill={0, 0, 0, 0} »;> Strings [i +2] =« »;
} (RadioGroup1-> ItemIndex == 1)
{> Strings [i]=« cFrameFill={0, 0, 0.5, 0.4} »;> Strings [i +1] =« cDisplFill={0, 0.5, 0.5, 0.4} »;> Strings [i +2] =« cPanelFill={0.05, 0.1, 0.1, 0.9} »;
} (RadioGroup1-> ItemIndex == 2)
{> Strings [i]=« cFrameFill={0.2, 0.4, 0.3, 0.4} »;> Strings [i +1] =« cDisplFill={0, 0.3, 0.7, 0.4} »;> Strings [i +2] =« »;
} (RadioGroup1-> ItemIndex == 3)
{> Strings [i]=« cFrameFill={0.4, 0.3, 0.6, 0.4} »;> Strings [i +1] =« cDisplFill={0, 0.5, 0.5, 0.4} »;> Strings [i +2] =« »;
}
}
}>SaveToFile(ExtractFilePath(Application->ExeName)+LuaAdr+«config.lua»);
delete Lua; (AutoSave == false)> MessageBox (MessegesLocale [6]. c_str (), Application-> Title.c_str (), MB_OK | MB_ICONINFORMATION);
}
/ / Про ПРОГРАММЕ__fastcall TMainForm :: LabelLink2Click (TObject * Sender)
{(Handle, NULL, L «#» justify" >}
//---------------------------------------------------------------------------__fastcall TMainForm :: LabelLink2MouseLeave (TObject * Sender)
{-> Font-> Style=TFontStyles () >> fsUnderline;
} __fastcall TMainForm :: LabelLink2MouseMove (TObject * Sender, TShiftState Shift,
int X, int Y)
{-> Font-> Style=TFontStyles () << fsUnderline;
}
/ / ---------------------------------------------------------------------------
__fastcall TMainForm :: Edit2KeyPress (TObject * Sender, char & Key)
{(Key>=«0» && Key <= «9» | | Key == VK_BACK);=0;
}
//---------------------------------------------------------------------------__fastcall TMainForm :: Edit3KeyPress (TObject * Sender, char & Key)
{(Key>=«0» && Key <= «9» | | Key == VK_BACK);=0;
}
//---------------------------------------------------------------------------__fastcall TMainForm :: Edit2Click (TObject * Sender)
{-> Color=clWindow; -> Font-> Color=clWindowText;
}
//---------------------------------------------------------------------------__fastcall TMainForm :: Edit3Click (TObject * Sender)
{-> Color=clWindow; -> Font-> Color=clWindowText;
}
/ / ---------------------------------------------------------------------------
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /// / / / / / / / / / / / / / / / /...
