Помогите завершить скрипт

sign2 · 2015-03-07 11:12:02

sign2
Member
Offline

Registered: 2014-04-17
Posts: 64

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.

DriveSoft · 2015-03-07 13:06:40

DriveSoft
Administrator
Offline

Registered: 2014-02-14
Posts: 10,294

Re: Помогите завершить скрипт

Пожалуйста, приложите к сообщению ваш проект (zip файл без exe и dll)

Также опишите суть вопроса.

Dmitry.

sign2 · 2015-03-07 13:30:26

sign2
Member
Offline

Registered: 2014-04-17
Posts: 64

Re: Помогите завершить скрипт

В архиве база со скриптами работает нормально, но я хочу добавить еще один скрипт, который увидел на форуме (выделение цветом нужного мне поля и снятие выделения).
Вот этот скрипт, подправленный под мои условия для одной таблицы. всего таких таблиц 4.

Как мне его добавить, чтобы всё работало?

procedure dayvipis_TableGrid1_OnChange (Sender: string);
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;
end;

procedure dayvipis_TableGrid1_OnMouseUp (Sender: string; MouseLeft, MouseRight, MouseMiddle: boolean; Shift, Alt, Ctrl: boolean; X, Y: Integer);
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;
end;

Post's attachments

base.zip 59.06 kb, 405 downloads since 2015-03-07

DriveSoft · 2015-03-07 16:06:45

DriveSoft
Administrator
Offline

Registered: 2014-02-14
Posts: 10,294

Re: Помогите завершить скрипт

Доработал ваш проект.

Post's attachments

base_fixed.zip 62.15 kb, 414 downloads since 2015-03-07

Dmitry.

sign2 · 2015-03-07 16:11:56

sign2
Member
Offline

Registered: 2014-04-17
Posts: 64

Re: Помогите завершить скрипт

Огромное спасибо! Всё работает.
Вы лучший! -))

Помогите завершить скрипт

Posts: 5

1 Topic by sign2 2015-03-07 11:12:02

Topic: Помогите завершить скрипт

2 Reply by DriveSoft 2015-03-07 13:06:40

Re: Помогите завершить скрипт

3 Reply by sign2 2015-03-07 13:30:26

Re: Помогите завершить скрипт

4 Reply by DriveSoft 2015-03-07 16:06:45

Re: Помогите завершить скрипт

5 Reply by sign2 2015-03-07 16:11:56

Re: Помогите завершить скрипт

Posts: 5