331 lines
12 KiB
PowerShell
331 lines
12 KiB
PowerShell
$out = @"
|
||
procedure TfrmMain.OnIrriCondEdit(Sender: TObject);
|
||
var
|
||
ActIdx, CondType, CondIdx, FieldID: Integer;
|
||
ValPart: Integer;
|
||
Act: ^TIrriAction;
|
||
ValStr: string;
|
||
begin
|
||
if FRefreshingAutoUI then Exit;
|
||
|
||
if Sender is TComboBox then
|
||
begin
|
||
ActIdx := (Sender as TComboBox).Tag;
|
||
ValPart := Trunc((Sender as TComboBox).TagFloat);
|
||
end
|
||
else if Sender is TEdit then
|
||
begin
|
||
ActIdx := (Sender as TEdit).Tag;
|
||
ValPart := Trunc((Sender as TEdit).TagFloat);
|
||
end
|
||
else Exit;
|
||
|
||
if (ActIdx < 0) or (ActIdx > High(FIrriSchedules[FCurrentEditIrriSchedIdx].Actions)) then Exit;
|
||
Act := @FIrriSchedules[FCurrentEditIrriSchedIdx].Actions[ActIdx];
|
||
|
||
CondType := ValPart div 1000;
|
||
CondIdx := (ValPart div 10) mod 100;
|
||
FieldID := ValPart mod 10;
|
||
|
||
var PCondArray: ^TArray<TAutoCondItem>;
|
||
var PCondMode: ^TAutoCondMode;
|
||
case CondType of
|
||
0: begin PCondArray := @Act^.StartConds; PCondMode := @Act^.StartCondMode; end;
|
||
1: begin PCondArray := @Act^.StopConds; PCondMode := @Act^.StopCondMode; end;
|
||
2: begin PCondArray := @Act^.EndConds; PCondMode := @Act^.EndCondMode; end;
|
||
else Exit;
|
||
end;
|
||
|
||
if FieldID = 3 then // AND/OR Mode
|
||
begin
|
||
if (Sender as TComboBox).ItemIndex = 0 then PCondMode^ := acmAND
|
||
else PCondMode^ := acmOR;
|
||
end
|
||
else if (CondIdx >= 0) and (CondIdx < Length(PCondArray^)) then
|
||
begin
|
||
case FieldID of
|
||
0: // NodeID
|
||
begin
|
||
ValStr := (Sender as TComboBox).Items[(Sender as TComboBox).ItemIndex];
|
||
var ss := ValStr.Split([' ']); // ID¸¸ ÃßÃâ
|
||
if Length(ss) > 0 then PCondArray^[CondIdx].NodeID := ss[0];
|
||
end;
|
||
1: // Op
|
||
PCondArray^[CondIdx].Op := TAutoCondOp((Sender as TComboBox).ItemIndex);
|
||
2: // Value
|
||
PCondArray^[CondIdx].Value := StrToFloatDef((Sender as TEdit).Text, 0.0);
|
||
end;
|
||
end;
|
||
|
||
SaveIrriSchedules;
|
||
end;
|
||
|
||
procedure TfrmMain.OnIrriCondAdd(Sender: TObject);
|
||
var
|
||
ActIdx, CondType: Integer;
|
||
Act: ^TIrriAction;
|
||
Item: TAutoCondItem;
|
||
begin
|
||
if FRefreshingAutoUI then Exit;
|
||
if not (Sender is TRectangle) then Exit;
|
||
|
||
ActIdx := (Sender as TRectangle).Tag;
|
||
CondType := Trunc((Sender as TRectangle).TagFloat) div 1000;
|
||
|
||
if (ActIdx < 0) or (ActIdx > High(FIrriSchedules[FCurrentEditIrriSchedIdx].Actions)) then Exit;
|
||
Act := @FIrriSchedules[FCurrentEditIrriSchedIdx].Actions[ActIdx];
|
||
|
||
Item.NodeID := '';
|
||
Item.Op := acoGT;
|
||
Item.Value := 0.0;
|
||
|
||
case CondType of
|
||
0: begin SetLength(Act^.StartConds, Length(Act^.StartConds)+1); Act^.StartConds[High(Act^.StartConds)] := Item; end;
|
||
1: begin SetLength(Act^.StopConds, Length(Act^.StopConds)+1); Act^.StopConds[High(Act^.StopConds)] := Item; end;
|
||
2: begin SetLength(Act^.EndConds, Length(Act^.EndConds)+1); Act^.EndConds[High(Act^.EndConds)] := Item; end;
|
||
end;
|
||
|
||
SaveIrriSchedules;
|
||
RefreshIrriActionPopupUI(FCurrentEditIrriSchedIdx);
|
||
end;
|
||
|
||
procedure TfrmMain.OnIrriCondDel(Sender: TObject);
|
||
var
|
||
ActIdx, CondType, CondIdx: Integer;
|
||
ValPart: Integer;
|
||
Act: ^TIrriAction;
|
||
begin
|
||
if FRefreshingAutoUI then Exit;
|
||
if not (Sender is TRectangle) then Exit;
|
||
|
||
ActIdx := (Sender as TRectangle).Tag;
|
||
ValPart := Trunc((Sender as TRectangle).TagFloat);
|
||
CondType := ValPart div 1000;
|
||
CondIdx := (ValPart div 10) mod 100;
|
||
|
||
if (ActIdx < 0) or (ActIdx > High(FIrriSchedules[FCurrentEditIrriSchedIdx].Actions)) then Exit;
|
||
Act := @FIrriSchedules[FCurrentEditIrriSchedIdx].Actions[ActIdx];
|
||
|
||
case CondType of
|
||
0: Delete(Act^.StartConds, CondIdx, 1);
|
||
1: Delete(Act^.StopConds, CondIdx, 1);
|
||
2: Delete(Act^.EndConds, CondIdx, 1);
|
||
end;
|
||
|
||
SaveIrriSchedules;
|
||
RefreshIrriActionPopupUI(FCurrentEditIrriSchedIdx);
|
||
end;
|
||
|
||
procedure TfrmMain.RefreshIrriActionPopupUI(ASchedIdx: Integer);
|
||
type
|
||
PIrriAction = ^TIrriAction;
|
||
var
|
||
i: Integer;
|
||
Card: TRectangle;
|
||
LblHeader: TLabel;
|
||
EdDelay: TEdit;
|
||
CbNode: TComboBox;
|
||
ChkDel: TCheckBox;
|
||
Act: PIrriAction;
|
||
TopLyt: TRectangle;
|
||
BaseY: Single;
|
||
begin
|
||
if (ASchedIdx < 0) or (ASchedIdx > High(FIrriSchedules)) then Exit;
|
||
lblIrriActionTitle.Text := 'µ¿ÀÛ ¼ø¼ °ü¸® : ' + FIrriSchedules[ASchedIdx].SchedName;
|
||
|
||
scrlIrriAction.BeginUpdate;
|
||
if Self.Focused <> nil then Self.Focused := nil;
|
||
try
|
||
for i := scrlIrriAction.Content.ControlsCount - 1 downto 0 do
|
||
begin
|
||
var C := scrlIrriAction.Content.Controls[i];
|
||
if C is TComboBox then (C as TComboBox).OnChange := nil;
|
||
if C is TEdit then (C as TEdit).OnExit := nil;
|
||
if C is TCheckBox then (C as TCheckBox).OnChange := nil;
|
||
C.Parent := nil; // macOS ¾ÈÁ¤
|
||
end;
|
||
|
||
for i := 0 to High(FIrriSchedules[ASchedIdx].Actions) do
|
||
begin
|
||
Act := @FIrriSchedules[ASchedIdx].Actions[i];
|
||
|
||
Card := TRectangle.Create(Self);
|
||
Card.Parent := scrlIrriAction;
|
||
Card.Align := TAlignLayout.Top;
|
||
Card.Margins.Rect := RectF(0, 0, 0, 12);
|
||
Card.Fill.Color := IfThen(Act^.IsSelected, `$FF3A2020, `$FF333333);
|
||
Card.Stroke.Color := `$FF555555;
|
||
Card.XRadius := 5; Card.YRadius := 5;
|
||
|
||
{`$IFDEF ANDROID}
|
||
var ChkBg := TRectangle.Create(Self);
|
||
ChkBg.Parent := Card;
|
||
ChkBg.Position.X := 10; ChkBg.Position.Y := 13;
|
||
ChkBg.Width := 29; ChkBg.Height := 29;
|
||
ChkBg.Fill.Color := claWhite; ChkBg.Stroke.Kind := TBrushKind.None;
|
||
ChkBg.XRadius := 4; ChkBg.YRadius := 4;
|
||
ChkBg.HitTest := False;
|
||
{`$ENDIF}
|
||
|
||
ChkDel := TCheckBox.Create(Self);
|
||
ChkDel.Parent := Card;
|
||
ChkDel.Position.X := 8; ChkDel.Position.Y := 10;
|
||
ChkDel.Width := 24; ChkDel.Height := 24;
|
||
ChkDel.IsChecked := Act^.IsSelected;
|
||
ChkDel.Tag := i;
|
||
ChkDel.Scale.X := 1.5; ChkDel.Scale.Y := 1.5;
|
||
ChkDel.OnChange := OnIrriActionCheck;
|
||
|
||
LblHeader := BuildLabel(Card, Format('µ¿ÀÛ ¼ø¹ø %d', [i+1]), 18, TAlignLayout.None, claWhite, True);
|
||
LblHeader.SetBounds(42, 10, 150, 30);
|
||
|
||
var LblNode := BuildLabel(Card, 'ÀÛµ¿ ±¸¿ª (DO):', 16, TAlignLayout.None, claLightgray, False);
|
||
LblNode.SetBounds(10, 50, 120, 30);
|
||
|
||
CbNode := TComboBox.Create(Self);
|
||
CbNode.Parent := Card;
|
||
CbNode.SetBounds(130, 50, 200, 30);
|
||
var kDO: Integer;
|
||
for kDO := 0 to High(FNodeConfigs) do
|
||
begin
|
||
if FNodeConfigs[kDO].ID.StartsWith('DO_') then
|
||
begin
|
||
var LItm := TListBoxItem.Create(CbNode);
|
||
LItm.Parent := CbNode;
|
||
LItm.Height := 24 * 1.8;
|
||
LItm.Text := FNodeConfigs[kDO].ID + ' [' + (
|
||
if FNodeConfigs[kDO].CustomName <> '' then FNodeConfigs[kDO].CustomName
|
||
else if FIsKorean then FNodeConfigs[kDO].TitleKO
|
||
else FNodeConfigs[kDO].TitleEN) + ']';
|
||
CbNode.AddObject(LItm);
|
||
end;
|
||
end;
|
||
var kSelDO: Integer;
|
||
CbNode.ItemIndex := -1;
|
||
for kSelDO := 0 to CbNode.Items.Count - 1 do
|
||
if CbNode.Items[kSelDO].StartsWith(Act^.TargetNodeID + ' ') or
|
||
(CbNode.Items[kSelDO] = Act^.TargetNodeID) then
|
||
begin CbNode.ItemIndex := kSelDO; Break; end;
|
||
CbNode.Tag := i;
|
||
CbNode.TagFloat := 10;
|
||
CbNode.OnChange := OnIrriActionEdit;
|
||
|
||
var LblDelay := BuildLabel(Card, 'Äð´Ù¿î(ÃÊ):', 16, TAlignLayout.None, claLightgray, False);
|
||
LblDelay.SetBounds(340, 50, 90, 30);
|
||
EdDelay := TEdit.Create(Self);
|
||
EdDelay.Parent := Card;
|
||
EdDelay.SetBounds(435, 50, 65, 30);
|
||
EdDelay.Text := IntToStr(Act^.DelaySeconds);
|
||
EdDelay.Tag := i; EdDelay.TagFloat := 11;
|
||
EdDelay.FilterChar := '0123456789';
|
||
EdDelay.OnExit := OnIrriActionEdit;
|
||
|
||
var LblTimeout := BuildLabel(Card, 'Á¦ÇÑ(ºÐ):', 16, TAlignLayout.None, claLightgray, False);
|
||
LblTimeout.SetBounds(510, 50, 80, 30);
|
||
var EdTimeout := TEdit.Create(Self);
|
||
EdTimeout.Parent := Card;
|
||
EdTimeout.SetBounds(590, 50, 65, 30);
|
||
EdTimeout.Text := IntToStr(Act^.TimeoutMin);
|
||
EdTimeout.Tag := i; EdTimeout.TagFloat := 12;
|
||
EdTimeout.FilterChar := '0123456789';
|
||
EdTimeout.OnExit := OnIrriActionEdit;
|
||
|
||
BaseY := 100;
|
||
|
||
var DrawCondGroup := procedure(ATitle: string; AConds: TArray<TAutoCondItem>; AMode: TAutoCondMode; CondType: Integer)
|
||
var
|
||
k: Integer;
|
||
cSen, cOp, cMode: TComboBox; eVal: TEdit;
|
||
btnDel, btnAdd: TRectangle;
|
||
begin
|
||
var lTitle := BuildLabel(Card, ATitle, 14, TAlignLayout.None, claLightgray, True);
|
||
lTitle.SetBounds(10, BaseY, 80, 30);
|
||
|
||
cMode := TComboBox.Create(Self); cMode.Parent := Card;
|
||
cMode.SetBounds(95, BaseY, 70, 30);
|
||
cMode.Items.Add('AND'); cMode.Items.Add('OR');
|
||
cMode.ItemIndex := Integer(AMode);
|
||
cMode.Tag := i; cMode.TagFloat := CondType * 1000 + 3;
|
||
cMode.OnChange := OnIrriCondEdit;
|
||
|
||
btnAdd := CreateCustomButton(Card, '+ Ãß°¡', TAlignLayout.None, 60, OnIrriCondAdd);
|
||
btnAdd.SetBounds(175, BaseY, 60, 30);
|
||
btnAdd.Fill.Color := `$FF226622;
|
||
btnAdd.Tag := i; btnAdd.TagFloat := CondType * 1000 + 4;
|
||
|
||
if Length(AConds) = 0 then
|
||
begin
|
||
BuildLabel(Card, ' [Á¶°Ç ¾øÀ½ - ¹«Á¶°Ç µ¿ÀÛ]', 14, TAlignLayout.None, claGray, False).SetBounds(250, BaseY, 200, 30);
|
||
end;
|
||
|
||
BaseY := BaseY + 40;
|
||
|
||
for k := 0 to High(AConds) do
|
||
begin
|
||
cSen := TComboBox.Create(Self); cSen.Parent := Card;
|
||
cSen.SetBounds(80, BaseY, 240, 30);
|
||
|
||
var kS: Integer;
|
||
for kS := 0 to High(FNodeConfigs) do
|
||
begin
|
||
var strId := FNodeConfigs[kS].ID;
|
||
// À¯·®°è ÈùÆ® Ç¥½Ã (³ëµå ID°¡ DI ÀÌ°í À¯·®À̸§À» Æ÷ÇÔÇϰųª DI_F µî ±ÔÄ¢ÀÌ ÀÖ´Ù¸é)
|
||
var strName := FNodeConfigs[kS].CustomName;
|
||
if strName = '' then begin if FIsKorean then strName := FNodeConfigs[kS].TitleKO else strName := FNodeConfigs[kS].TitleEN; end;
|
||
if (strId.StartsWith('DI_')) and ((strName.Contains('À¯·®')) or (strName.Contains('Flow'))) then
|
||
strName := strName + ' (¸®ÅÍ/ÆÞ½º)';
|
||
|
||
var LItmS := TListBoxItem.Create(cSen);
|
||
LItmS.Parent := cSen;
|
||
LItmS.Height := 24 * 1.8;
|
||
LItmS.Text := strId + ' [' + strName + ']';
|
||
cSen.AddObject(LItmS);
|
||
end;
|
||
|
||
var kSel: Integer;
|
||
cSen.ItemIndex := -1;
|
||
for kSel := 0 to cSen.Items.Count - 1 do
|
||
if cSen.Items[kSel].StartsWith(AConds[k].NodeID + ' ') or
|
||
(cSen.Items[kSel] = AConds[k].NodeID) then
|
||
begin cSen.ItemIndex := kSel; Break; end;
|
||
|
||
cSen.Tag := i; cSen.TagFloat := CondType * 1000 + k * 10 + 0;
|
||
cSen.OnChange := OnIrriCondEdit;
|
||
|
||
cOp := TComboBox.Create(Self); cOp.Parent := Card;
|
||
cOp.SetBounds(330, BaseY, 50, 30);
|
||
cOp.Items.Add('>'); cOp.Items.Add('<'); cOp.Items.Add('=');
|
||
cOp.ItemIndex := Integer(AConds[k].Op);
|
||
cOp.Tag := i; cOp.TagFloat := CondType * 1000 + k * 10 + 1;
|
||
cOp.OnChange := OnIrriCondEdit;
|
||
|
||
eVal := TEdit.Create(Self); eVal.Parent := Card;
|
||
eVal.SetBounds(390, BaseY, 70, 30);
|
||
eVal.Text := FloatToStr(AConds[k].Value);
|
||
eVal.Tag := i; eVal.TagFloat := CondType * 1000 + k * 10 + 2;
|
||
eVal.FilterChar := '0123456789.';
|
||
eVal.OnExit := OnIrriCondEdit;
|
||
|
||
btnDel := CreateCustomButton(Card, 'X', TAlignLayout.None, 30, OnIrriCondDel);
|
||
btnDel.SetBounds(470, BaseY, 40, 30);
|
||
btnDel.Fill.Color := `$FFFF5555;
|
||
btnDel.Tag := i; btnDel.TagFloat := CondType * 1000 + k * 10 + 5;
|
||
|
||
BaseY := BaseY + 36;
|
||
end;
|
||
BaseY := BaseY + 8; // ¿©¹é Ãß°¡
|
||
end;
|
||
|
||
DrawCondGroup('½ÃÀÛ Á¶°Ç:', Act^.StartConds, Act^.StartCondMode, 0);
|
||
DrawCondGroup('Á¤Áö Á¶°Ç:', Act^.StopConds, Act^.StopCondMode, 1);
|
||
DrawCondGroup('Á¾·á Á¶°Ç:', Act^.EndConds, Act^.EndCondMode, 2);
|
||
|
||
Card.Height := BaseY + 10;
|
||
end;
|
||
finally
|
||
scrlIrriAction.EndUpdate;
|
||
end;
|
||
end;
|
||
"@
|
||
Set-Content -Path gen_popup.pas -Value $out -Encoding UTF8
|