se_designer.pas

小区水费管理系统源代码水费收费管理系统 水费收费管理系统

end;

procedure TSeCustomConverter.Progress(Max, Pos: integer);
begin
  if Assigned(FOnProgress) then
  begin
    FOnProgress(Self, Max, Pos);
    Application.ProcessMessages;
  end;
end;

{ Properties }

function TSeCustomConverter.GetRules(Kind: TSeClassKind): string;
begin
  Result := FRules.Values['Ident'+IntToStr(Integer(Kind))];
end;

procedure TSeCustomConverter.SetRules(Kind: TSeClassKind; const Value: string);
begin
  FRules.Values['Ident'+IntToStr(Integer(Kind))] := Value;
end;

procedure TSeCustomConverter.SetLog(const Value: TStrings);
begin
  FLog := Value;
end;

procedure TSeCustomConverter.SetOnProgress(const Value: TSeConvertEvent);
begin
  FOnProgress := Value;
end;


{ TfrmAddClass ================================================================}


constructor TfrmAddClass.CreateNew(AOwner: TComponent; Dummy: Integer = 0);
var
  m, c: integer;
begin
  inherited;

  BorderStyle := bsDialog;

  Label1 := TLabel.Create(Self);
  with Label1 do
  begin
    Parent := Self;
    Visible := true;
    Left := 8;
    Top := 10;
    Width := 60;
    Height := 13;
    Caption := 'Select class:';
  end;

  cbClassList := TComboBox.Create(Self);
  with cbClassList do
  begin
    Parent := Self;
    Visible := true;
    Left := 8;
    Top := 30;
    Width := 249;
    Height := 21;
    Style := csDropDownList;
    ItemHeight := 13;
    TabOrder := 0;
  end;

  Button1 := TButton.Create(Self);
  with Button1 do
  begin
    Parent := Self;
    Visible := true;

    Left := 135;
    Top := 72;
    Width := 75;
    Height := 25;
    Caption := 'Cancel';
    ModalResult := 2;
    TabOrder := 1;
  end;

  Button2 := TButton.Create(Self);
  with Button2 do
  begin
    Parent := Self;
    Visible := true;

    Left := 55;
    Top := 72;
    Width := 75;
    Height := 25;
    Caption := 'OK';
    ModalResult := 1;
    TabOrder := 2;
  end;

  if ToolServices = nil then Exit;

  cbClassList.Items.Clear;
  for m := 0 to ToolServices.GetModuleCount-1 do
    for c := 0 to ToolServices.GetComponentCount(m)- 1 do
      cbClassList.Items.Add(ToolServices.GetComponentName(m, c));
end;


{ TSeTabControlEditor =========================================================}


procedure TSeTabControlEditor.ExecuteVerb(Index: Integer);
var
  TC: TSeCustomTabControl;
  Page: TSeCustomTabSheet;
begin
  if Component is TSeCustomTabSheet then
  begin
    TC := (Component as TSeCustomTabSheet).TabControl;
  end
  else
    if not (Component is TSeCustomTabControl) then
      Exit
    else
      TC := Component as TSeCustomTabControl;

  case Index of
    0: { New Page }
      begin
        TC.Tabs.Add('New Tab ' + IntToStr(TC.Tabs.Count));
        if TC.UsePages then
          TC.SetActivePageIndex(TC.PageCount - 1);
      end;
    1: { Delete Page }
      begin
        if TC.UsePages then
        begin
          Page := TC.Pages[TC.ActivePageIndex];
          if Page <> nil then
            Page.Free;

          TC.TabIndex := 0;
        end;
      end;
  end;
end;

function TSeTabControlEditor.GetVerbCount: Integer;
begin
  Result := 2;
end;

function TSeTabControlEditor.GetVerb(Index: Integer): String;
begin
  case Index of
    0: Result := 'New Tab';
    1: Result := 'Delete Tab';
  else
    Result := '';
  end;
end;

{ TfrmConvertForm =============================================================}


const ConvertFormRes: array [0..30659] of byte = (
$FF,$A,$0,$54,$46,$52,$4D,$43,$4F,$4E,$56,$45,$52,$54,$46,$4F,$52,$4D,$0,$30,$10,$AA,$77,$0,$0,$54,$50,$46,$30,$F,$54,$66,$72,$6D,$43,$6F,$6E,$76,$65,$72,
$74,$46,$6F,$72,$6D,$E,$66,$72,$6D,$43,$6F,$6E,$76,$65,$72,$74,$46,$6F,$72,$6D,$4,$4C,$65,$66,$74,$3,$56,$1,$3,$54,$6F,$70,$3,$BB,$0,$B,$42,$6F,$72,$64,
$65,$72,$53,$74,$79,$6C,$65,$7,$8,$62,$73,$44,$69,$61,$6C,$6F,$67,$7,$43,$61,$70,$74,$69,$6F,$6E,$6,$16,$43,$6F,$6D,$70,$6F,$6E,$65,$6E,$74,$27,$73,$20,$43,
$6F,$6E,$76,$65,$72,$74,$65,$72,$20,$C,$43,$6C,$69,$65,$6E,$74,$48,$65,$69,$67,$68,$74,$3,$74,$1,$B,$43,$6C,$69,$65,$6E,$74,$57,$69,$64,$74,$68,$3,$DA,$1,
$5,$43,$6F,$6C,$6F,$72,$7,$9,$63,$6C,$42,$74,$6E,$46,$61,$63,$65,$C,$46,$6F,$6E,$74,$2E,$43,$68,$61,$72,$73,$65,$74,$7,$F,$52,$55,$53,$53,$49,$41,$4E,$5F,
$43,$48,$41,$52,$53,$45,$54,$A,$46,$6F,$6E,$74,$2E,$43,$6F,$6C,$6F,$72,$7,$C,$63,$6C,$57,$69,$6E,$64,$6F,$77,$54,$65,$78,$74,$B,$46,$6F,$6E,$74,$2E,$48,$65,
$69,$67,$68,$74,$2,$F5,$9,$46,$6F,$6E,$74,$2E,$4E,$61,$6D,$65,$6,$5,$41,$72,$69,$61,$6C,$A,$46,$6F,$6E,$74,$2E,$53,$74,$79,$6C,$65,$B,$0,$E,$4F,$6C,$64,
$43,$72,$65,$61,$74,$65,$4F,$72,$64,$65,$72,$8,$8,$50,$6F,$73,$69,$74,$69,$6F,$6E,$7,$E,$70,$6F,$53,$63,$72,$65,$65,$6E,$43,$65,$6E,$74,$65,$72,$8,$4F,$6E,
$43,$72,$65,$61,$74,$65,$7,$A,$46,$6F,$72,$6D,$43,$72,$65,$61,$74,$65,$D,$50,$69,$78,$65,$6C,$73,$50,$65,$72,$49,$6E,$63,$68,$2,$60,$A,$54,$65,$78,$74,$48,
$65,$69,$67,$68,$74,$2,$E,$0,$6,$54,$4C,$61,$62,$65,$6C,$6,$4C,$61,$62,$65,$6C,$33,$4,$4C,$65,$66,$74,$2,$9,$3,$54,$6F,$70,$3,$4A,$1,$5,$57,$69,$64,
$74,$68,$2,$60,$6,$48,$65,$69,$67,$68,$74,$2,$1C,$9,$41,$6C,$69,$67,$6E,$6D,$65,$6E,$74,$7,$8,$74,$61,$43,$65,$6E,$74,$65,$72,$7,$41,$6E,$63,$68,$6F,$72,
$73,$B,$6,$61,$6B,$4C,$65,$66,$74,$8,$61,$6B,$42,$6F,$74,$74,$6F,$6D,$0,$7,$43,$61,$70,$74,$69,$6F,$6E,$6,$21,$28,$63,$29,$20,$4B,$53,$20,$44,$65,$76,$65,
$6C,$6F,$70,$6D,$65,$6E,$74,$D,$A,$77,$77,$77,$2E,$6B,$73,$64,$65,$76,$2E,$63,$6F,$6D,$C,$46,$6F,$6E,$74,$2E,$43,$68,$61,$72,$73,$65,$74,$7,$F,$52,$55,$53,
$53,$49,$41,$4E,$5F,$43,$48,$41,$52,$53,$45,$54,$A,$46,$6F,$6E,$74,$2E,$43,$6F,$6C,$6F,$72,$7,$8,$63,$6C,$57,$69,$6E,$64,$6F,$77,$B,$46,$6F,$6E,$74,$2E,$48,
$65,$69,$67,$68,$74,$2,$F5,$9,$46,$6F,$6E,$74,$2E,$4E,$61,$6D,$65,$6,$5,$41,$72,$69,$61,$6C,$A,$46,$6F,$6E,$74,$2E,$53,$74,$79,$6C,$65,$B,$0,$A,$50,$61,
$72,$65,$6E,$74,$46,$6F,$6E,$74,$8,$0,$0,$6,$54,$42,$65,$76,$65,$6C,$6,$42,$65,$76,$65,$6C,$31,$4,$4C,$65,$66,$74,$2,$0,$3,$54,$6F,$70,$3,$37,$1,$5,
$57,$69,$64,$74,$68,$3,$DA,$1,$6,$48,$65,$69,$67,$68,$74,$2,$6,$5,$41,$6C,$69,$67,$6E,$7,$5,$61,$6C,$54,$6F,$70,$5,$53,$68,$61,$70,$65,$7,$9,$62,$73,
$54,$6F,$70,$4C,$69,$6E,$65,$0,$0,$6,$54,$4C,$61,$62,$65,$6C,$6,$4C,$61,$62,$65,$6C,$32,$4,$4C,$65,$66,$74,$2,$8,$3,$54,$6F,$70,$3,$49,$1,$5,$57,$69,
$64,$74,$68,$2,$60,$6,$48,$65,$69,$67,$68,$74,$2,$1C,$9,$41,$6C,$69,$67,$6E,$6D,$65,$6E,$74,$7,$8,$74,$61,$43,$65,$6E,$74,$65,$72,$7,$41,$6E,$63,$68,$6F,
$72,$73,$B,$6,$61,$6B,$4C,$65,$66,$74,$8,$61,$6B,$42,$6F,$74,$74,$6F,$6D,$0,$7,$43,$61,$70,$74,$69,$6F,$6E,$6,$21,$28,$63,$29,$20,$4B,$53,$20,$44,$65,$76,
$65,$6C,$6F,$70,$6D,$65,$6E,$74,$D,$A,$77,$77,$77,$2E,$6B,$73,$64,$65,$76,$2E,$63,$6F,$6D,$C,$46,$6F,$6E,$74,$2E,$43,$68,$61,$72,$73,$65,$74,$7,$F,$52,$55,
$53,$53,$49,$41,$4E,$5F,$43,$48,$41,$52,$53,$45,$54,$A,$46,$6F,$6E,$74,$2E,$43,$6F,$6C,$6F,$72,$7,$B,$63,$6C,$42,$74,$6E,$53,$68,$61,$64,$6F,$77,$B,$46,$6F,
$6E,$74,$2E,$48,$65,$69,$67,$68,$74,$2,$F5,$9,$46,$6F,$6E,$74,$2E,$4E,$61,$6D,$65,$6,$5,$41,$72,$69,$61,$6C,$A,$46,$6F,$6E,$74,$2E,$53,$74,$79,$6C,$65,$B,
$0,$A,$50,$61,$72,$65,$6E,$74,$46,$6F,$6E,$74,$8,$B,$54,$72,$61,$6E,$73,$70,$61,$72,$65,$6E,$74,$9,$0,$0,$9,$54,$4E,$6F,$74,$65,$62,$6F,$6F,$6B,$5,$50,
$61,$67,$65,$73,$4,$4C,$65,$66,$74,$2,$0,$3,$54,$6F,$70,$2,$0,$5,$57,$69,$64,$74,$68,$3,$DA,$1,$6,$48,$65,$69,$67,$68,$74,$3,$37,$1,$5,$41,$6C,$69,
$67,$6E,$7,$5,$61,$6C,$54,$6F,$70,$5,$43,$6F,$6C,$6F,$72,$7,$7,$63,$6C,$57,$68,$69,$74,$65,$B,$50,$61,$72,$65,$6E,$74,$43,$6F,$6C,$6F,$72,$8,$8,$54,$61,
$62,$4F,$72,$64,$65,$72,$2,$0,$D,$4F,$6E,$50,$61,$67,$65,$43,$68,$61,$6E,$67,$65,$64,$7,$10,$50,$61,$67,$65,$73,$50,$61,$67,$65,$43,$68,$61,$6E,$67,$65,$64,
$0,$5,$54,$50,$61,$67,$65,$0,$4,$4C,$65,$66,$74,$2,$0,$3,$54,$6F,$70,$2,$0,$7,$43,$61,$70,$74,$69,$6F,$6E,$6,$7,$57,$65,$6C,$63,$6F,$6D,$65,$0,$6,
$54,$49,$6D,$61,$67,$65,$6,$49,$6D,$61,$67,$65,$31,$4,$4C,$65,$66,$74,$2,$0,$3,$54,$6F,$70,$2,$0,$5,$57,$69,$64,$74,$68,$3,$A4,$0,$6,$48,$65,$69,$67,
$68,$74,$3,$37,$1,$5,$41,$6C,$69,$67,$6E,$7,$6,$61,$6C,$4C,$65,$66,$74,$8,$41,$75,$74,$6F,$53,$69,$7A,$65,$9,$C,$50,$69,$63,$74,$75,$72,$65,$2E,$44,$61,
$74,$61,$A,$8A,$67,$0,$0,$7,$54,$42,$69,$74,$6D,$61,$70,$7E,$67,$0,$0,$42,$4D,$7E,$67,$0,$0,$0,$0,$0,$0,$76,$0,$0,$0,$28,$0,$0,$0,$A4,$0,$0,
$0,$3A,$1,$0,$0,$1,$0,$4,$0,$0,$0,$0,$0,$8,$67,$0,$0,$C4,$E,$0,$0,$C4,$E,$0,$0,$10,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$39,$0,$0,
$0,$84,$0,$0,$0,$84,$84,$84,$0,$A5,$A5,$A5,$0,$C6,$C6,$C6,$0,$FF,$FF,$FF,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,
$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$22,$22,$22,$20,$20,$20,$20,$22,$22,$22,$22,$22,$22,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,
$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,
$20,$20,$20,$20,$22,$22,$22,$22,$22,$22,$22,$22,$22,$20,$20,$20,$20,$20,$20,$0,$0,$22,$22,$22,$2,$2,$2,$2,$22,$22,$22,$22,$22,$22,$2,$2,$2,$2,$2,$2,
$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$22,$22,$22,$22,$22,$22,
$22,$22,$22,$22,$2,$2,$2,$2,$22,$22,$22,$22,$22,$22,$22,$22,$22,$2,$2,$2,$2,$2,$2,$0,$0,$22,$22,$20,$20,$20,$20,$22,$22,$22,$22,$22,$22,$20,$20,$20,
$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$22,$22,$22,
$22,$22,$22,$22,$22,$22,$20,$20,$20,$20,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$20,$20,$20,$20,$20,$20,$22,$0,$0,$22,$22,$2,$2,$2,$2,$22,$22,$22,$22,$22,
$22,$22,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,
$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$2,$2,$2,$2,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$2,$2,$2,$2,$2,$2,$22,$0,$0,$22,$20,$20,$20,$20,$20,$22,
$22,$22,$22,$22,$22,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,
$20,$20,$20,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$20,$20,$20,$20,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$20,$20,$20,$20,$20,$22,$22,$22,$0,$0,$22,$2,$2,
$2,$2,$2,$22,$22,$22,$22,$22,$22,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,
$2,$2,$2,$2,$2,$2,$2,$22,$22,$22,$22,$22,$22,$22,$22,$22,$2,$2,$2,$2,$2,$22,$22,$22,$22,$22,$22,$22,$22,$22,$2,$2,$2,$2,$2,$2,$22,$22,$22,$0,
$0,$20,$20,$20,$20,$20,$22,$22,$22,$22,$22,$22,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,
$20,$20,$20,$20,$20,$20,$20,$20,$20,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$20,$20,$20,$20,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$20,$20,$20,$20,$20,$20,$22,
$22,$22,$22,$0,$0,$2,$2,$2,$2,$2,$22,$22,$22,$22,$22,$22,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,
$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$2,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$2,$2,$2,$2,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$2,$2,$2,