kalk.pas

The law of the Ohm for pupils. The program with source codes. RX-library components are required

unit kalk;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Tabnotbk, StdCtrls, Rsextra, Hlabels, FxImage, ExtCtrls,
  ClrPanel, Label3D, Math,  RxRichEd,RXCtrls,
  CurrEdit, MMSystem, RxCalc, ToolEdit, ShadowButton, SImageBtn, ToolWin,
  RXClock, ColorBtns,Mask, yupack, RxMenus, Menus, RXSpin;

type
  TElF = class(TForm)
    AlignLeftButton: TColor95Button;
    AlignRightButton: TColor95Button;
    AlingCentrButton: TColor95Button;
    AlingWidthButton: TColor95Button;
    Applic: TColor95Button;
    ButtonColor: TColor95Button;
    ColorPanel2: TColorPanel;
    ColorPanel3: TColorPanel;
    ComboBox1: TComboBox;
    ComboBox10: TComboBox;
    ComboBox11: TComboBox;
    ComboBox12: TComboBox;
    ComboBox13: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    ComboBox7: TComboBox;
    ComboBox8: TComboBox;
    ComboBox9: TComboBox;
    ButtonCopy: TColor95Button;
    CurrencyEdit1: TCurrencyEdit;
    CurrencyEdit2: TCurrencyEdit;
    CurrencyEdit3: TCurrencyEdit;
    CurrencyEdit4: TCurrencyEdit;
    CurrencyEdit5: TCurrencyEdit;
    CurrencyEdit6: TCurrencyEdit;
    ButtonCut: TColor95Button;
    DateEdit: TDateEdit;
    EditButton: TColor95Button;
    ButtonFont: TColor95Button;
    hgLabel1: ThgLabel;
    hgLabel10: ThgLabel;
    hgLabel11: ThgLabel;
    hgLabel12: ThgLabel;
    hgLabel2: ThgLabel;
    hgLabel3: ThgLabel;
    hgLabel4: ThgLabel;
    hgLabel5: ThgLabel;
    hgLabel6: ThgLabel;
    hgLabel7: ThgLabel;
    hgLabel8: ThgLabel;
    hgLabel9: ThgLabel;
    Label3D1: TLabel3D;
    Label3D2: TLabel3D;
    Label3D3: TLabel3D;
    Label3D4: TLabel3D;
    Label3D5: TLabel3D;
    Label3D6: TLabel3D;
    Label3D7: TLabel3D;
    MainMenu1: TRxMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    ButtonNew: TColor95Button;
    ButtonOpen: TColor95Button;
    PageControl1: TPageControl;
    PageControl2: TPageControl;
    Panel1: TPanel;
    Panel2: TPanel;
    PanelCondBox: TColorPanel;
    PanelFreqBox: TColorPanel;
    PanelOpZad: TPanel;
    ButtonPaste: TColor95Button;
    ButtonPrint: TColor95Button;
    ButtonPrintset: TColor95Button;
    ButtonRedo: TColor95Button;
    RxCalculator1: TRxCalculator;
    RxClock1: TRxClock;
    RxRich: TRxRichEdit;
    RxRichEdit1: TRxRichEdit;
    ButtonSaveAs: TColor95Button;
    ButtonSave: TColor95Button;
    ShadowButton1: TShadowButton;
    Size: TRxSpinEdit;
    TabbedNotebook1: TTabbedNotebook;
    TabSheetZU: TTabSheet;
    TabSheetXc: TTabSheet;
    TabSheetZI: TTabSheet;
    TabSheetZR: TTabSheet;
    TabSheetZP: TTabSheet;
    TabSheetRx: TTabSheet;
    ToolBar1: TToolBar;
    ToolBar2: TToolBar;
    ToolBar3: TToolBar;
    Buttonundo: TColor95Button;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Label3D9: TLabel3D;
    ClrBevel2: TClrBevel;
    Label3D10: TLabel3D;
    Label3D11: TLabel3D;
    Label3D13: TLabel3D;
    Label3D8: TLabel3D;
    Label3D14: TLabel3D;
    Label3D18: TLabel3D;
    Label3D15: TLabel3D;
    ClrBevel3: TClrBevel;
    Label3D20: TLabel3D;
    ClrBevel4: TClrBevel;
    Label3D17: TLabel3D;
    Label3D16: TLabel3D;
    Label3D19: TLabel3D;
    Label3D53: TLabel3D;
    Label3D36: TLabel3D;
    Label3D21: TLabel3D;
    Panel6: TPanel;
    Label3D22: TLabel3D;
    Label3D23: TLabel3D;
    Label3D25: TLabel3D;
    Label3D26: TLabel3D;
    ClrBevel6: TClrBevel;
    Label3D28: TLabel3D;
    Label3D29: TLabel3D;
    Label3D30: TLabel3D;
    ClrBevel7: TClrBevel;
    Label3D32: TLabel3D;
    Label3D33: TLabel3D;
    Label3D34: TLabel3D;
    Label3D35: TLabel3D;
    Label3D55: TLabel3D;
    ClrBevel8: TClrBevel;
    ClrBevel5: TClrBevel;
    ComboBoxBL: TComboBox;
    ComboBoxBR: TComboBox;
    ComboBoxCL: TComboBox;
    ComboBoxCR: TComboBox;
    ComboBoxTR: TComboBox;
    ComboBoxTL: TComboBox;
    ClrBevel1: TClrBevel;
    Label3D54: TLabel3D;
    Label3D12: TLabel3D;
    Panel7: TPanel;
    Label3D38: TLabel3D;
    Label3D39: TLabel3D;
    Label3D40: TLabel3D;
    Label3D57: TLabel3D;
    Label3D43: TLabel3D;
    Label3D58: TLabel3D;
    Label3D59: TLabel3D;
    Label3D60: TLabel3D;
    Label3D52: TLabel3D;
    Label3D44: TLabel3D;
    Label3D47: TLabel3D;
    Label3D83: TLabel3D;
    Label3D82: TLabel3D;
    Label3D81: TLabel3D;
    Label3D80: TLabel3D;
    Label3D50: TLabel3D;
    Label3D48: TLabel3D;
    ClrBevel11: TClrBevel;
    Label3D45: TLabel3D;
    Label3D41: TLabel3D;
    Label3D49: TLabel3D;
    ClrBevel12: TClrBevel;
    Label3D27: TLabel3D;
    Label3D37: TLabel3D;
    Label3D56: TLabel3D;
    Label3D31: TLabel3D;
    ClrBevel9: TClrBevel;
    Label3D24: TLabel3D;
    ClrBevel10: TClrBevel;
    Panel8: TPanel;
    Label3D72: TLabel3D;
    Label3D68: TLabel3D;
    Label3D64: TLabel3D;
    Label3D61: TLabel3D;
    Label3D62: TLabel3D;
    Label3D63: TLabel3D;
    Label3D66: TLabel3D;
    Label3D67: TLabel3D;
    Label3D70: TLabel3D;
    Label3D71: TLabel3D;
    ClrBevel16: TClrBevel;
    Label3D76: TLabel3D;
    Label3D78: TLabel3D;
    Label3D75: TLabel3D;
    Label3D73: TLabel3D;
    Label3D79: TLabel3D;
    ClrBevel13: TClrBevel;
    ClrBevel14: TClrBevel;
    Label3D77: TLabel3D;
    Label3D84: TLabel3D;
    ClrBevel15: TClrBevel;
    Label3D42: TLabel3D;
    Label3D46: TLabel3D;
    Label3D51: TLabel3D;
    Label3D65: TLabel3D;
    Label3D69: TLabel3D;
    Label3D86: TLabel3D;
    Label3D85: TLabel3D;
    Label3D74: TLabel3D;
    OpenDialog: TOpenDialog;
    StatusBar1: TStatusBar;

    procedure FormShow(Sender: TObject);
    Function KomaPoint(var kp:string):string;
    procedure ZakonOma(PageOm,PozitionOm: integer);
    procedure RaschetR(rt1,rt2: string);
    procedure RaschetC(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N2Click(Sender: TObject);
    procedure hgLabel7Click(Sender: TObject);
    procedure ComboBox8Change(Sender: TObject);
    procedure ComboBox6Change(Sender: TObject);
    procedure ComboBox9Change(Sender: TObject);
    procedure ComboBox10Change(Sender: TObject);
    procedure ComboBox12Change(Sender: TObject);
    function deviderOm(BoxOm1,BoxOm2: string;
    PageOm,PozitionOm: integer):string;
    procedure N5Click(Sender: TObject);
    Function SoundPlay(SoundFile:string):boolean;
    function Conv(cs: double; numb: integer): double;

    procedure ShadowButton1Click(Sender: TObject);
    procedure TabSheetZUShow(Sender: TObject);
    procedure EditNul;

    procedure ApplicClick(Sender: TObject);
    procedure CurrencyEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CurrencyEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure PageControl3Change(Sender: TObject);
    procedure CurrencyEdit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CurrencyEdit5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CurrencyEdit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CurrencyEdit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure OvalButton9Click(Sender: TObject);
    procedure TabSheet8Show(Sender: TObject);
    procedure TabSheetXcShow(Sender: TObject);
    procedure ComboBox13Change(Sender: TObject);
    procedure SizeBottomClick(Sender: TObject);
    procedure RxRichEdit1SelectionChange(Sender: TObject);
    procedure ButtonOpenClick(Sender: TObject);
    procedure EditButtonClick(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure Label3D2Click(Sender: TObject);
    procedure Label3D1Click(Sender: TObject);
    procedure Label3D5Click(Sender: TObject);
    procedure ComboBox11Change(Sender: TObject);
    procedure ComboBox11KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox12KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox12Exit(Sender: TObject);
    procedure ComboBox11Exit(Sender: TObject);
    procedure ComboBox7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox9KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox10KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox7Exit(Sender: TObject);
    procedure ComboBox5Exit(Sender: TObject);
    procedure TabSheetRxShow(Sender: TObject);
    procedure RxClock1Alarm(Sender: TObject);
    procedure TabSheetZIShow(Sender: TObject);
    procedure TabSheetZRShow(Sender: TObject);
    procedure TabSheetZPShow(Sender: TObject);
    procedure ComboBoxTLKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBoxCLKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBoxBLKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure TabSheetZUHide(Sender: TObject);

//    procedure NewClick(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ElF: TElF;

implementation
{$R *.DFM}
{$R Dark.res}

uses  DarAbout;

procedure TElF.FormShow(Sender: TObject);
begin
 ComboBox13.Items.LoadFromFile(ExtractFilePath(Application.EXEName)+
    'dat\combmath.dat');
RxRichEdit1.Lines.LoadFromFile
(ExtractFilePath(Application.EXEName)+ 'dat\0.dat');
//    hgLabel6.Caption:= '骡邃栩