procedure TCustomListView.CreateParams(var Params: TCreateParams);
const
BorderStyles: array[TBorderStyle] of DWORD = (0, WS_BORDER);
EditStyles: array[Boolean] of DWORD = (LVS_EDITLABELS, 0);
MultiSelections: array[Boolean] of DWORD = (LVS_SINGLESEL, 0);
HideSelections: array[Boolean] of DWORD = (LVS_SHOWSELALWAYS, 0);
Arrangements: array[TIconArrangement] of DWORD = (LVS_ALIGNTOP,
LVS_ALIGNLEFT);
AutoArrange: array[Boolean] of DWORD = (0, LVS_AUTOARRANGE);
WrapText: array[Boolean] of DWORD = (LVS_NOLABELWRAP, 0);
ViewStyles: array[TViewStyle] of DWORD = (LVS_ICON, LVS_SMALLICON,
LVS_LIST, LVS_REPORT);
ShowColumns: array[Boolean] of DWORD = (LVS_NOCOLUMNHEADER, 0);
ColumnClicks: array[Boolean] of DWORD = (LVS_NOSORTHEADER, 0);
begin
InitCommonControl(ICC_LISTVIEW_CLASSES);
inherited CreateParams(Params);
CreateSubClass(Params, WC_LISTVIEW);
with Params do
begin
Style := Style or WS_CLIPCHILDREN or ViewStyles[ViewStyle] or
BorderStyles[BorderStyle] or Arrangements[IconOptions.Arrangement] or
EditStyles[ReadOnly] or MultiSelections[MultiSelect] or
HideSelections[HideSelection] or
AutoArrange[IconOptions.AutoArrange] or
WrapText[IconOptions.WrapText] or
ShowColumns[ShowColumnHeaders] or
ColumnClicks[ColumnClick] or
LVS_SHAREIMAGELISTS;
if FOwnerData then Style := Style or LVS_OWNERDATA;
if FOwnerDraw then Style := Style or LVS_OWNERDRAWFIXED;
if Ctl3D and NewStyleControls and (FBorderStyle = bsSingle) then
begin
Style := Style and not WS_BORDER;
ExStyle := Params.ExStyle or WS_EX_CLIENTEDGE;
end;
WindowClass.style := WindowClass.style and not (CS_HREDRAW or CS_VREDRAW);
end;
end;def job_get_money(from_id):
global uns
if from_id > 0:
global count
if count == max_counts:
t = threading.Timer(300.0, null_count)
t.start()
return "Ты устал, иди передохни 5 минут."
else:
uns += 35000
vkbd.job_upd_balance(vkID=td, Balance=uns)
count += 1
return "+35000 uns \n Баланс: " + str(uns)
Создание приложений будет примерно одинаково в обоих средах. И там и там есть дизайнер окон, но в C++ Builder будет чуток побогаче функционал дизайнера