Topic: Помогите завершить скрипт
Не могу завершить скрипт из-за незнания, как правильно его завершить.
скрипт прилагаю.
var
Sender: string;
isDobuleClick: boolean;
procedure Новая_TableGrid5_OnMouseUp (Sender: string; MouseLeft, MouseRight, MouseMiddle: boolean; Shift, Alt, Ctrl: boolean; X, Y: Integer);
begin
end;
procedure Новая_TableGrid5_OnCellDoubleClick (Sender: string; ACol, ARow: Integer);
begin
end;
procedure dayvipis_TableGrid1_OnCellDoubleClick (Sender: string; ACol, ARow: Integer);
begin
isDobuleClick := True;
end;
procedure dayvipis_TableGrid1_OnMouseUp (Sender: string; MouseLeft, MouseRight, MouseMiddle: boolean; Shift, Alt, Ctrl: boolean; X, Y: Integer);
begin
if isDobuleClick then
begin
dayvipis.Close;
isDobuleClick := False;
end;
end;
procedure krugvipis_TableGrid1_OnCellDoubleClick (Sender: string; ACol, ARow: Integer);
begin
isDobuleClick:= True;
end;
procedure krugvipis_TableGrid1_OnMouseUp (Sender: string; MouseLeft, MouseRight, MouseMiddle: boolean; Shift, Alt, Ctrl: boolean; X, Y: Integer);
begin
if isDobuleClick then
begin
krugvipis.Close;
isDobuleClick := False;
end;
end;
procedure daypostup_TableGrid1_OnCellDoubleClick (Sender: string; ACol, ARow: Integer);
begin
isDobuleClick:= True;
end;
procedure daypostup_TableGrid1_OnMouseUp (Sender: string; MouseLeft, MouseRight, MouseMiddle: boolean; Shift, Alt, Ctrl: boolean; X, Y: Integer);
begin
if isDobuleClick then
begin
daypostup.Close;
isDobuleClick := False;
end;
end;
procedure krugpost_TableGrid1_OnCellDoubleClick (Sender: string; ACol, ARow: Integer);
begin
isDobuleClick:= True;
end;
procedure krugpost_TableGrid1_OnMouseUp (Sender: string; MouseLeft, MouseRight, MouseMiddle: boolean; Shift, Alt, Ctrl: boolean; X, Y: Integer);
begin
if isDobuleClick then
begin
krugpost.Close;
isDobuleClick := False;
end;
end;
procedure dayvipis_TableGrid1_OnChange (Sender: string);
begin
dayvipis.TableGrid1.Columns[0].Header.Color := clLime;
dayvipis.TableGrid1.Columns[1].Header.Color := clLime;
dayvipis.TableGrid1.Columns[2].Header.Color := clLime;
dayvipis.TableGrid1.Columns[3].Header.Color := clLime;
dayvipis.TableGrid1.Columns[4].Header.Color := clLime;
dayvipis.TableGrid1.Columns[5].Header.Color := clLime;
dayvipis.TableGrid1.Columns[6].Header.Color := clLime;
dayvipis.TableGrid1.Columns[9].Header.Color := clLime;
dayvipis.TableGrid1.Columns[10].Header.Color := clLime;
dayvipis.TableGrid1.Columns[11].Header.Color := clLime;
dayvipis.TableGrid1.Columns[7].Header.Color := clYellow;
dayvipis.TableGrid1.Columns[8].Header.Color := clRed;
dayvipis.TableGrid1.Columns[12].Header.Color := clYellow;
dayvipis.TableGrid1.Columns[13].Header.Color := clRed;
dayvipis.TableGrid1.Columns[14].Header.Color := clYellow;
dayvipis.TableGrid1.Columns[15].Header.Color := clRed;
dayvipis.TableGrid1.Columns[16].Header.Color := clYellow;
dayvipis.TableGrid1.Columns[17].Header.Color := clYellow;
dayvipis.TableGrid1.Columns[18].Header.Color := clRed;
dayvipis.TableGrid1.Columns[19].Header.Color := clYellow;
dayvipis.TableGrid1.Columns[20].Header.Color := clRed;
dayvipis.TableGrid1.Columns[21].Header.Color := clYellow;
dayvipis.TableGrid1.Columns[22].Header.Color := clRed;
dayvipis.TableGrid1.Columns[23].Header.Color := clYellow;
dayvipis.TableGrid1.Columns[24].Header.Color := clRed;
dayvipis.TableGrid1.Columns[25].Header.Color := clYellow;
dayvipis.TableGrid1.Columns[26].Header.Color := clRed;
dayvipis.TableGrid1.Columns[27].Header.Color := clYellow;
dayvipis.TableGrid1.Columns[28].Header.Color := clRed;
dayvipis.TableGrid1.Columns[29].Header.Color := clYellow;
dayvipis.TableGrid1.Columns[30].Header.Color := clRed;
end;
procedure krugvipis_TableGrid1_OnChange (Sender: string);
begin
krugvipis.TableGrid1.Columns[0].Header.Color := clLime;
krugvipis.TableGrid1.Columns[1].Header.Color := clLime;
krugvipis.TableGrid1.Columns[2].Header.Color := clLime;
krugvipis.TableGrid1.Columns[3].Header.Color := clLime;
krugvipis.TableGrid1.Columns[4].Header.Color := clLime;
krugvipis.TableGrid1.Columns[5].Header.Color := clLime;
krugvipis.TableGrid1.Columns[6].Header.Color := clLime;
krugvipis.TableGrid1.Columns[9].Header.Color := clLime;
krugvipis.TableGrid1.Columns[10].Header.Color := clLime;
krugvipis.TableGrid1.Columns[11].Header.Color := clLime;
krugvipis.TableGrid1.Columns[7].Header.Color := clYellow;
krugvipis.TableGrid1.Columns[8].Header.Color := clRed;
krugvipis.TableGrid1.Columns[12].Header.Color := clYellow;
krugvipis.TableGrid1.Columns[13].Header.Color := clRed;
krugvipis.TableGrid1.Columns[14].Header.Color := clYellow;
krugvipis.TableGrid1.Columns[15].Header.Color := clRed;
krugvipis.TableGrid1.Columns[16].Header.Color := clYellow;
krugvipis.TableGrid1.Columns[17].Header.Color := clYellow;
krugvipis.TableGrid1.Columns[18].Header.Color := clRed;
krugvipis.TableGrid1.Columns[19].Header.Color := clYellow;
krugvipis.TableGrid1.Columns[20].Header.Color := clRed;
krugvipis.TableGrid1.Columns[21].Header.Color := clYellow;
krugvipis.TableGrid1.Columns[22].Header.Color := clRed;
krugvipis.TableGrid1.Columns[23].Header.Color := clYellow;
krugvipis.TableGrid1.Columns[24].Header.Color := clRed;
krugvipis.TableGrid1.Columns[25].Header.Color := clYellow;
krugvipis.TableGrid1.Columns[26].Header.Color := clRed;
krugvipis.TableGrid1.Columns[27].Header.Color := clYellow;
krugvipis.TableGrid1.Columns[28].Header.Color := clRed;
krugvipis.TableGrid1.Columns[29].Header.Color := clYellow;
krugvipis.TableGrid1.Columns[30].Header.Color := clRed;
end;
procedure daypostup_TableGrid1_OnChange (Sender: string);
begin
daypostup.TableGrid1.Columns[0].Header.Color := clLime;
daypostup.TableGrid1.Columns[1].Header.Color := clLime;
daypostup.TableGrid1.Columns[2].Header.Color := clLime;
daypostup.TableGrid1.Columns[3].Header.Color := clLime;
daypostup.TableGrid1.Columns[4].Header.Color := clLime;
daypostup.TableGrid1.Columns[5].Header.Color := clLime;
daypostup.TableGrid1.Columns[6].Header.Color := clLime;
daypostup.TableGrid1.Columns[7].Header.Color := clLime;
daypostup.TableGrid1.Columns[8].Header.Color := clLime;
end;
procedure krugpost_TableGrid1_OnChange (Sender: string);
begin
krugpost.TableGrid1.Columns[0].Header.Color := clLime;
krugpost.TableGrid1.Columns[1].Header.Color := clLime;
krugpost.TableGrid1.Columns[2].Header.Color := clLime;
krugpost.TableGrid1.Columns[3].Header.Color := clLime;
krugpost.TableGrid1.Columns[4].Header.Color := clLime;
krugpost.TableGrid1.Columns[5].Header.Color := clLime;
krugpost.TableGrid1.Columns[6].Header.Color := clLime;
krugpost.TableGrid1.Columns[7].Header.Color := clLime;
krugpost.TableGrid1.Columns[8].Header.Color := clLime;
end;
procedure Новая_TableGrid5_OnChange (Sender: string);
begin
Новая.TableGrid5.Columns[0].Header.Color := clLime;
Новая.TableGrid5.Columns[1].Header.Color := clLime;
Новая.TableGrid5.Columns[2].Header.Color := clLime;
Новая.TableGrid5.Columns[3].Header.Color := clLime;
Новая.TableGrid5.Columns[4].Header.Color := clLime;
Новая.TableGrid5.Columns[5].Header.Color := clLime;
Новая.TableGrid5.Columns[6].Header.Color := clLime;
Новая.TableGrid5.Columns[9].Header.Color := clLime;
Новая.TableGrid5.Columns[10].Header.Color := clLime;
Новая.TableGrid5.Columns[11].Header.Color := clLime;
Новая.TableGrid5.Columns[7].Header.Color := clYellow;
Новая.TableGrid5.Columns[8].Header.Color := clRed;
Новая.TableGrid5.Columns[12].Header.Color := clYellow;
Новая.TableGrid5.Columns[13].Header.Color := clRed;
Новая.TableGrid5.Columns[14].Header.Color := clYellow;
Новая.TableGrid5.Columns[15].Header.Color := clRed;
Новая.TableGrid5.Columns[16].Header.Color := clYellow;
Новая.TableGrid5.Columns[17].Header.Color := clYellow;
Новая.TableGrid5.Columns[18].Header.Color := clRed;
Новая.TableGrid5.Columns[19].Header.Color := clYellow;
Новая.TableGrid5.Columns[20].Header.Color := clRed;
Новая.TableGrid5.Columns[21].Header.Color := clYellow;
Новая.TableGrid5.Columns[22].Header.Color := clRed;
Новая.TableGrid5.Columns[23].Header.Color := clYellow;
Новая.TableGrid5.Columns[24].Header.Color := clRed;
Новая.TableGrid5.Columns[25].Header.Color := clYellow;
Новая.TableGrid5.Columns[26].Header.Color := clRed;
Новая.TableGrid5.Columns[27].Header.Color := clYellow;
Новая.TableGrid5.Columns[28].Header.Color := clRed;
Новая.TableGrid5.Columns[29].Header.Color := clYellow;
Новая.TableGrid5.Columns[30].Header.Color := clRed;
end;
procedure Новая_TableGrid6_OnChange (Sender: string);
begin
Новая.TableGrid6.Columns[0].Header.Color := clLime;
Новая.TableGrid6.Columns[1].Header.Color := clLime;
Новая.TableGrid6.Columns[2].Header.Color := clLime;
Новая.TableGrid6.Columns[3].Header.Color := clLime;
Новая.TableGrid6.Columns[4].Header.Color := clLime;
Новая.TableGrid6.Columns[5].Header.Color := clLime;
Новая.TableGrid6.Columns[6].Header.Color := clLime;
Новая.TableGrid6.Columns[7].Header.Color := clLime;
Новая.TableGrid6.Columns[8].Header.Color := clLime;
end;
procedure Новая_TableGrid1_OnChange (Sender: string);
begin
Новая.TableGrid1.Columns[0].Header.Color := clYellow;
Новая.TableGrid1.Columns[1].Header.Color := clYellow;
Новая.TableGrid1.Columns[2].Header.Color := clYellow;
Новая.TableGrid1.Columns[3].Header.Color := clYellow;
Новая.TableGrid1.Columns[4].Header.Color := clYellow;
end;
procedure Новая_TableGrid2_OnChange (Sender: string);
begin
Новая.TableGrid2.Columns[0].Header.Color := clRed;
Новая.TableGrid2.Columns[1].Header.Color := clRed;
Новая.TableGrid2.Columns[2].Header.Color := clRed;
Новая.TableGrid2.Columns[3].Header.Color := clRed;
Новая.TableGrid2.Columns[4].Header.Color := clRed;
end;
procedure Новая_TableGrid3_OnChange (Sender: string);
begin
Новая.TableGrid3.Columns[0].Header.Color := clYellow;
Новая.TableGrid3.Columns[1].Header.Color := clYellow;
Новая.TableGrid3.Columns[2].Header.Color := clYellow;
Новая.TableGrid3.Columns[3].Header.Color := clYellow;
Новая.TableGrid3.Columns[4].Header.Color := clYellow;
end;
procedure Новая_TableGrid4_OnChange (Sender: string);
begin
Новая.TableGrid4.Columns[0].Header.Color := clRed;
Новая.TableGrid4.Columns[1].Header.Color := clRed;
Новая.TableGrid4.Columns[2].Header.Color := clRed;
Новая.TableGrid4.Columns[3].Header.Color := clRed;
Новая.TableGrid4.Columns[4].Header.Color := clRed;
end;
Здесь добавил еще скрипт
var
i,c, id: integer;
s: string;
begin
c := dayvipis.TableGrid1.RowCount - 1;
for i := 0 to c do
begin
id := dayvipis.TableGrid1.dbIndexToID(i);
s := SQLExecute('SELECT marked FROM dayvipis WHERE id='+IntToStr(id));
if s = '1' then dayvipis.TableGrid1.Cell[1, i].Color := clLime;
end;
begin
if Ctrl then
begin
if dayvipis.TableGrid1.Cell[4, dayvipis.TableGrid1.SelectedRow].Color <> clLime then
begin
dayvipis.TableGrid1.Cell[4, dayvipis.TableGrid1.SelectedRow].Color := clLime;
SQLExecute ('UPDATE dayvipis SET marked=1 WHERE id='+dayvipis.TableGrid1.sqlValue);
end else
begin
dayvipis.TableGrid1.Cell[4, dayvipis.TableGrid1.SelectedRow].Color := clWindow;
SQLExecute ('UPDATE dayvipis SET marked=0 WHERE id='+dayvipis.TableGrid1.sqlValue);
end;
end.