tukasa blog

Delphi DFM ミニメモ帳 minimemo ソースコード

Fri, 26 Aug 2022 11:51:11 +0900

unit Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Buttons,

Vcl.Menus, System.Actions, Vcl.ActnList, Vcl.ExtDlgs, System.IOUtils,

System.ImageList, Vcl.ImgList, Vcl.Clipbrd;

type

TForm1 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Memo1: TMemo;

PopupMenu1: TPopupMenu;

bbtnMenu: TBitBtn;

S1: TMenuItem;

ActionList1: TActionList;

acSave: TAction;

SaveTextFileDialog1: TSaveTextFileDialog;

acSaveAs: TAction;

A1: TMenuItem;

acNew: TAction;

acOpen: TAction;

N1: TMenuItem;

O1: TMenuItem;

OpenTextFileDialog1: TOpenTextFileDialog;

ImageList1: TImageList;

N2: TMenuItem;

C1: TMenuItem;

V10byArihiko1: TMenuItem;

N3: TMenuItem;

bbtnAllSelect: TBitBtn;

bbtnCopy: TBitBtn;

bbtnPaste: TBitBtn;

procedure bbtnMenuMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure acSaveExecute(Sender: TObject);

procedure acSaveAsExecute(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure acOpenExecute(Sender: TObject);

procedure acNewExecute(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure bbtnAllSelectClick(Sender: TObject);

procedure bbtnCopyClick(Sender: TObject);

procedure bbtnPasteClick(Sender: TObject);

private

{ Private 宣言 }

FFileName: String;

FEncodingIndex: Integer;

procedure Init;

procedure SaveFile;

procedure UpdateCaption;

public

{ Public 宣言 }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.acNewExecute(Sender: TObject);

begin

Init;

end;

procedure TForm1.acOpenExecute(Sender: TObject);

var

Enc: TEncoding;

begin

if OpenTextFileDialog1.Execute then

begin

// 値を保存

FFileName := OpenTextFileDialog1.FileName;

FEncodingIndex := OpenTextFileDialog1.EncodingIndex;

// キャプションを変更

UpdateCaption; // <---------------------追加

// EncodingIndex によりエンコーディングを指定

case FEncodingIndex of

1: Enc := TEncoding.Unicode;

2: Enc := TEncoding.BigEndianUnicode;

3: Enc := TEncoding.UTF8;

else

Enc := TEncoding.Default;

end;

// エンコーディングを指定して読み込み

Memo1.Lines.LoadFromFile(FFileName, Enc);

end;

procedure TForm1.acSaveAsExecute(Sender: TObject);

begin

if SaveTextFileDialog1.Execute then

begin

// 値を保存

FFileName := SaveTextFileDialog1.FileName;

FEncodingIndex := SaveTextFileDialog1.EncodingIndex;

// キャプションを変更

UpdateCaption;

// ファイルへ保存

SaveFile;

end;

procedure TForm1.acSaveExecute(Sender: TObject);

begin

if (FFileName = '') then

begin

// 名前を付けて保存

acSaveAs.Execute; // <- 追加

end

else

begin

// 上書き保存

SaveFile;

end;

procedure TForm1.bbtnMenuMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

popupmenu1.Popup(form1.left+x,form1.top+y);

end;

procedure TForm1.bbtnPasteClick(Sender: TObject);

begin

Memo1.SelText:=Clipboard.AsText;

end;

procedure TForm1.bbtnAllSelectClick(Sender: TObject);

begin

memo1.selectall;

memo1.SetFocus;

end;

procedure TForm1.bbtnCopyClick(Sender: TObject);

begin

Memo1.SetFocus;

Clipboard.AsText:=Memo1.SelText;

end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

if Memo1.Modified then //テキストが変更されていれば

case MessageDlg('メモの内容が変更されています，保存しますか？'

+ #13#10 +'はい:保存，いいえ:終了',mtWarning,mbYesNo,0) of

mrYes: acSaveAs.Execute;

mrCancel: CanClose := False;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Init;

end;

procedure TForm1.Init;

begin

// 値を初期化

FFileName := '';

FEncodingIndex := 0;

Memo1.Lines.Clear; // Memo1 の中身を消去する。

// キャプションを変更

UpdateCaption;

end;

procedure TForm1.SaveFile;

var

Enc: TEncoding;

begin

// EncodingIndex によりエンコーディングを指定

case FEncodingIndex of

1: Enc := TEncoding.Unicode;

2: Enc := TEncoding.BigEndianUnicode;

3: Enc := TEncoding.UTF8;

else

Enc := TEncoding.Default;

end;

// エンコーディングを指定して保存

Memo1.Lines.SaveToFile(FFileName, Enc);

Memo1.Modified := false;

end;

procedure TForm1.UpdateCaption;

var

Dmy: String;

begin

if FFileName = '' then

Dmy := '無題'

else

Dmy := TPath.GetFileName(FFileName);

Self.Caption := Dmy + '_miniメモ';

end;

end.

Delphi FMX メディアプレイヤー miniDPlay ソースコード

Fri, 26 Aug 2022 11:46:21 +0900

unit Unit1;

interface

uses

System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Media,

FMX.StdCtrls, FMX.Controls.Presentation, FMX.Media.Win, FMX.Edit, FMX.ExtCtrls,

FMX.Memo.Types, FMX.ScrollBox, FMX.Memo, FMX.Platform, FMX.Layouts,

FMX.ListBox, FMX.Objects, FMX.Effects,System.IOUtils, FMX.DialogService,

Winapi.Windows;

type

TForm1 = class(TForm)

StatusBar1: TStatusBar;

Panel1: TPanel;

OpenDialog1: TOpenDialog;

MediaPlayer1: TMediaPlayer;

MediaPlayerControl1: TMediaPlayerControl;

Timer1: TTimer;

ListBox1: TListBox;

pnlFile: TPanel;

pnlMain: TPanel;

MediaPlayer2: TMediaPlayer;

pnlPView: TPanel;

MediaPlayerControl2: TMediaPlayerControl;

Panel2: TPanel;

btnFileOpen: TButton;

btnStopPlay: TButton;

Panel3: TPanel;

edNow: TEdit;

edNagasa: TEdit;

pnlSeek: TPanel;

TrackBar1: TTrackBar;

ProgressBar1: TProgressBar;

pnlPie: TPanel;

Pie1: TPie;

Circle1: TCircle;

Circle2: TCircle;

StyleBook1: TStyleBook;

pnlPreMei: TPanel;

lblFilDrop: TLabel;

edPRev: TEdit;

edPRevTime: TEdit;

Timer2: TTimer;

lblPrgFilmei: TLabel;

Splitter2: TSplitter;

procedure FormCreate(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure TrackBar1Change(Sender: TObject);

procedure btnStopPlayClick(Sender: TObject);

procedure btnFileOpenClick(Sender: TObject);

function filSetPlay(filmei:string):boolean;

procedure ListBox1DragOver(Sender: TObject; const Data: TDragObject;

const Point: TPointF; var Operation: TDragOperation);

procedure ListBox1DragDrop(Sender: TObject; const Data: TDragObject;

const Point: TPointF);

procedure ListBox1Change(Sender: TObject);

procedure timeKaku(var ed:Tedit; tim:Tmediatime);

procedure ProgressBar1MouseEnter(Sender: TObject);

procedure ProgressBar1MouseLeave(Sender: TObject);

procedure ProgressBar1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Single);

procedure ProgressBar1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Single);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure Pie1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Single);

procedure Pie1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);

procedure Pie1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Single);

procedure zeroTank(fom:TForm; stb:TStatusbar; pnl:TPanel; pai:TPie; var zero:single; var tank:single);

procedure listFontSetei(lsb:TListbox);

procedure FormShow(Sender: TObject);

procedure ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Single);

procedure ListBox1MouseEnter(Sender: TObject);

procedure ListBox1MouseLeave(Sender: TObject);

procedure pnlFileResize(Sender: TObject);

procedure Pie1MouseEnter(Sender: TObject);

procedure Pie1MouseLeave(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure Timer2Timer(Sender: TObject);

procedure ListBox1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Single);

private

{ private 宣言 }

public

{ public 宣言 }

end;

var

Form1: TForm1;

implementation

{$R *.fmx}

var

saigo:boolean;

genban:integer;

nagasa:single;

genDir:string;

zeroKak:single;

mauleftOn:boolean;

tankak:single;

lbxGetText:string;

volset:single;{規定ボリュームセット}

//////////////////////////////////////////////////////////////////////////////

//ゼロ角　タン角　変更

//左下45度が0で(右回りで)右下45度が270

procedure TForm1.zeroTank(fom:TForm; stb:TStatusbar; pnl:TPanel; pai:TPie; var zero, tank: single);

begin

var PtScreen,PtForm : TPointF;

var cyusinX,cyusinY : single;

var zureX,zureY : single;

cyusinX := 0;

cyusinY := 0;

PtScreen := Screen.MousePos;

PtForm := fom.ScreenToclient(PtScreen);

zureX := PtForm.x - stb.position.x - pnl.Position.x - pai.Position.x - pai.Width / 2 - cyusinX;

zureY := PtForm.y - stb.position.y - pnl.Position.y - pai.position.y - pai.Height / 2 - cyusinY;

tank := 0;

if (zureX = 0)and(zureY = 0) then begin

end else if (zureX = 0)and(zureY > 0) then begin

tank := 90; zero := 0;

end else if (zureX = 0)and(zureY < 0) then begin

tank := 270; zero := 135;

end else if (zureX > 0)and(zureY = 0) then begin

tank := 0; zero := 225;

end else if (zureX < 0)and(zureY = 0) then begin

tank := 180; zero := 45;

end else if (zureX > 0)and(zureY > 0) then begin

tank := arctan(zureY / zureX) * 180 / pi;

zero := 360 + tank - 135;

end else if (zureX < 0)and(zureY > 0) then begin

tank := 90 - arctan(zureX/ zureY) * 180 / pi;

zero := tank - 135;

end else if (zureX < 0)and(zureY < 0) then begin

tank := 180 + arctan(zureY/ zureX) * 180 / pi;

zero := tank - 135;

end else if (zureX > 0)and(zureY < 0) then begin

tank := 270 - arctan(zureX/ zureY) * 180 / pi;

zero := tank - 135;

end;

procedure TForm1.listFontSetei(lsb: TListbox);

begin

var i:integer;

for i:=0 to Lsb.Items.Count-1 do begin

Lsb.ListItems[i].StyledSettings:=[]; // 全部反映される

with Lsb.ListItems[i].Font do begin

Family := 'Meiryo';

Lsb.Listitems[i].TextSettings.FontColor := TAlphaColorRec.white;//TAlphaColorRec.Blue; //$FFDDDDDD;

Size := 11;

end;

procedure TForm1.btnFileOpenClick(Sender: TObject);

begin

if opendialog1.Execute then begin

genDir := extractfilePath(opendialog1.filename);

listbox1.Items.Clear;

listbox1.items.Add(extractfilename(opendialog1.filename));

//listFontSetei(Listbox1);

genban := 0;

lblFilDrop.Visible := false;

timer1.Enabled := false;

timer2.Enabled := false;

listbox1.ItemIndex := genban; {リストボックスチェンジで動画スタート}

end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

TMediaCodecManager.RegisterMediaCodecClass('.mp4', 'mp4 Files', TMediaType.Video, TWindowsMediaCodec);

//TMediaCodecManager.RegisterMediaCodecClass('.mpg', 'mpg Files', TMediaType.Video, TWindowsMediaCodec);

OpenDialog1.Filter := TMediaCodecManager.GetFilterString ;

end;

procedure TForm1.FormResize(Sender: TObject);

begin

end;

procedure TForm1.FormShow(Sender: TObject);

begin

lbxGetText := '';

timer1.Enabled := false;

timer2.Enabled := false;

end;

procedure TForm1.ListBox1Change(Sender: TObject);

begin

//if lbxMauOn then begin

genban := listbox1.ItemIndex;

if filSetPlay(genDir + '\' + listbox1.Items[genban]) = false then begin

//TDialogService.ShowMessage('FILE ERROR');

inc(genban);

if genban > listbox1.items.Count - 1 then begin

genban := 0;

listbox1.ItemIndex := 0;

listbox1.ItemIndex := 1;

listbox1.ItemIndex := 0;

end;

listbox1.ItemIndex := genban;

//end;

end;

procedure TForm1.ListBox1DragDrop(Sender: TObject; const Data: TDragObject;

const Point: TPointF);

begin

var U:Tstringlist;

var D:string;

var sdmy:string;

U := Tstringlist.Create;

try

genDir := extractfilePath(data.files[0]);

listbox1.Items.Clear;

for D in data.files do begin

if TPath.hasExtension(D) then begin

U.Add(extractfilename(D)); {フォルダは除外して拡張子のあるファイルのみゲット}

end;

listbox1.items.AddStrings(U);

finally

U.free;

end;

//listFontSetei(Listbox1);

genban := 0;

lblFilDrop.Visible := false;

timer1.Enabled := false;

timer2.Enabled := false;

volset := 0.5;/////////////////////////////////////////////////////////////////

listbox1.ItemIndex := genban; {リストボックスチェンジで動画スタート}

end;

procedure TForm1.ListBox1DragOver(Sender: TObject; const Data: TDragObject;

const Point: TPointF; var Operation: TDragOperation);

begin

Operation := TDragOperation.copy;

end;

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Single);

begin

var gIndex:integer;

if listbox1.Items.Count = 0 then exit;

gIndex := listbox1.ItemByPoint(x,y).Index;

if gIndex = genban then begin

TDialogService.ShowMessage('すでに再生されています');

Winapi.Windows.SetCursorPos(round(form1.left+1), round(form1.top+1));

mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);

mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

end else begin

//TDialogService.ShowMessage('TIGAU'+inttostr(gIndex)+','+inttostr(genban));

end;

procedure TForm1.ListBox1MouseEnter(Sender: TObject);

begin

lbxGetText := '';

end;

procedure TForm1.ListBox1MouseLeave(Sender: TObject);

begin

mediaplayer2.Clear;

lbxGetText := '';

end;

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);

begin

var gText:string;

try

gText := listbox1.ItemByPoint(x,y).Text;

edPrev.text := gText;

//TDialogService.ShowMessage('MOVE');

if gText <> lbxGetText then

mediaplayer2.FileName := genDir + '\' + gText;

mediaplayer2.Volume := 0;

mediaplayer2.play;

timer2.Enabled := true;

lbxGetText := gText;

except

end;

//////////////////////////////////////////////////////////////////////////////

//パイ　マウス　ダウン

procedure TForm1.Pie1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Single);

begin

if button = TMouseButton.mbLeft then begin

zeroTank(Form1,Statusbar1,pnlPie,Pie1,zeroKak,tankak);

mauleftOn := false;

if zerokak <= 0 then begin

mauleftOn := false; {左下45度よりも左下はマウスダウン認識させない}

zerokak := 0;

end else if zerokak >= 270 then begin

mauleftOn := false; {右下45度よりも右下はマウスダウン認識させない}

zerokak := 0; {もしもこの範囲でマウスダウンしたら，安全側の最小値0にする}

end else begin

mauleftOn := true; {左下45度から右回りで右下45度の範囲のみマウスダウン認識}

end;

procedure TForm1.Pie1MouseEnter(Sender: TObject);

begin

with pie1.fill do begin

Kind := TBrushkind.Gradient;

Gradient.Color := Talphacolorrec.Gold; //.Darkgoldenrod;

　Gradient.Color1 := $FF555555;

　Gradient.Style := TGradientStyle.gsRadial ;

Color := Talphacolorrec.Darkgoldenrod;

end;

procedure TForm1.Pie1MouseLeave(Sender: TObject);

begin

with pie1.fill do begin

Kind := TBrushkind.Solid;

Color := $FF555555;

end;

//////////////////////////////////////////////////////////////////////////////

//パイ　マウス　ムーブ

procedure TForm1.Pie1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);

begin

if mauLeftOn then begin

zeroTank(Form1,Statusbar1,pnlPie,Pie1,zeroKak,tankak);

if zerokak <= 0 then begin

mauleftOn := false;

zerokak := 0;

tankak := 135;

end else if zerokak >= 270 then begin

mauleftOn := false;

zerokak := 270;

tankak := 45;

end;

Pie1.RotationAngle := zerokak; {OK}

try

mediaplayer1.Volume := zerokak / 270; {ボリューム OK}

volset := mediaplayer1.Volume;

except

end;

///////////////////////////////////////////////////////////////////////////////

//パイ　マウス　アップ

procedure TForm1.Pie1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Single);

begin

mauLeftOn := false;

end;

procedure TForm1.pnlFileResize(Sender: TObject);

begin

pnlPView.Height := pnlFile.Width * 0.5625; {16:9}

end;

procedure TForm1.ProgressBar1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Single);

begin

trackbar1.value := progressbar1.max * x / progressbar1.width;

end;

procedure TForm1.ProgressBar1MouseEnter(Sender: TObject);

begin

try

mediaplayer2.FileName := genDir + '\' + listbox1.Selected.Text;

timer2.Enabled :=true;

edPRev.text := listbox1.Selected.Text;

except

end;

procedure TForm1.ProgressBar1MouseLeave(Sender: TObject);

begin

mediaplayer2.Clear;

end;

procedure TForm1.ProgressBar1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);

begin

try

mediaplayer2.Volume := 0;

mediaplayer2.CurrentTime := round(Progressbar1.max * x / progressbar1.width * mediatimescale);

mediaplayer2.play;

except

end;

procedure TForm1.timeKaku(var ed: Tedit; tim: Tmediatime);

begin

var DurationMin, DurationSec: integer;

DurationMin := tim div 10000 div 60000;

DurationSec := tim div 10000 mod 60000 div 1000;

ed.Text := IntToStr(DurationMin) + ':' + IntToStr(DurationSec);

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

try

with mediaplayer1 do begin

progressbar1.Value := CurrentTime / mediatimescale;

timeKaku(edNow,CurrentTime);

if Duration = CurrentTime then saigo := true;

end;

except

end;

if saigo then begin

saigo := false;

timer1.Enabled := false;

sleep(500);

inc(genban);

if genban > listbox1.Items.Count - 1 then begin

genban := 0;

//mediaplayer1.Stop;

end;

listbox1.ItemIndex := genban; {リストボックスチェンジで動画スタート}

end;

//listFontSetei(listbox1);

end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

timeKaku(edPRevTime,mediaplayer2.CurrentTime);

end;

procedure TForm1.TrackBar1Change(Sender: TObject);

begin

try

mediaplayer1.CurrentTime := round(trackbar1.Value * mediatimescale);

mediaplayer1.play;

except

end;

procedure TForm1.btnStopPlayClick(Sender: TObject);

begin

try

with mediaplayer1 do begin

if State = TmediaState.Unavailable then begin

timer1.Enabled := false;

end else if State = TmediaState.Playing then begin

Stop;

timer1.Enabled := false;

end else if state = TmediaState.Stopped then begin

Play;

timer1.Enabled := true;

end;

except

end;

function TForm1.filSetPlay(filmei: string):boolean;

begin

var sdmy:string;

//listFontSetei(listbox1);

result := true;

try

if mediaplayer1.FileName = filmei then exit;

mediaplayer1.FileName := filmei;

sdmy := filmei + ' ('+ FloatToStr(MediaPlayer1.VideoSize.X) + 'x' +

FloatToStr(MediaPlayer1.VideoSize.Y) + ')';

form1.caption := sdmy;

sdmy := extractfilename(filmei);

lblPrgFilmei.Text := sdmy;

mediaplayer1.play;

timer1.Enabled := true;

except

result := false;//ShowMessageFmt('%s', ['メディアファイルを開けませんでした']);

end;

mediaplayer1.Volume := volset;////////////////////////////////////////////////////////////////////

pie1.RotationAngle := 270 * mediaplayer1.Volume;

try

nagasa := mediaplayer1.Duration / mediatimescale;

with trackbar1 do begin Min := 0; Max := nagasa; Value := 0; end;

with ProgressBar1 do begin Min := 0; Max := nagasa; Value := 0; end;

timekaku(edNagasa,mediaplayer1.Duration);

except

end;

end.

Delphi 簡易電卓ソースコード

Thu, 25 Aug 2022 15:44:28 +0900

unit Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.Variants, System.Classes,

Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,

Vcl.Touch.Keyboard, Vcl.Buttons, MSScriptControl_TLB, System.ImageList,

Vcl.ImgList;

type

TForm1 = class(TForm)

TouchKeyboard1: TTouchKeyboard;

Memo1: TMemo;

Edit1: TEdit;

sbtnClia: TSpeedButton;

sbtnKeisan: TSpeedButton;

Edit2: TEdit;

sbtnMemory: TSpeedButton;

sbtnRecal: TSpeedButton;

sbtnKakoST: TSpeedButton;

ImageList1: TImageList;

sbtnKakoEN: TSpeedButton;

sbtnKyaret: TSpeedButton;

sbtnHidari: TSpeedButton;

sbtnMigi: TSpeedButton;

sbtnBS: TSpeedButton;

sbtnSin: TSpeedButton;

sbtnCos: TSpeedButton;

sbtnTan: TSpeedButton;

sbtnPai: TSpeedButton;

sbtnE: TSpeedButton;

sbtnRuto: TSpeedButton;

sbtnKuhak: TSpeedButton;

sbtnGyakusu: TSpeedButton;

procedure FormShow(Sender: TObject);

procedure Memo1KeyPress(Sender: TObject; var Key: Char);

procedure clia;

procedure sbtnCliaClick(Sender: TObject);

procedure sbtnKeisanClick(Sender: TObject);

procedure sbtnMemoryClick(Sender: TObject);

procedure sbtnRecalClick(Sender: TObject);

function MSsisoku(siki:string):string;

procedure sbtnKakoSTClick(Sender: TObject);

procedure sbtnKakoENClick(Sender: TObject);

procedure sbtnKyaretClick(Sender: TObject);

procedure sbtnMigiClick(Sender: TObject);

procedure sbtnHidariClick(Sender: TObject);

procedure sbtnBSClick(Sender: TObject);

function doToRad(atai:string):string;

procedure sbtnSinClick(Sender: TObject);

procedure sbtnCosClick(Sender: TObject);

procedure sbtnTanClick(Sender: TObject);

procedure sbtnPaiClick(Sender: TObject);

procedure sbtnEClick(Sender: TObject);

procedure sbtnRutoClick(Sender: TObject);

procedure sbtnKuhakClick(Sender: TObject);

procedure sbtnGyakusuClick(Sender: TObject);

private

{ Private 宣言 }

public

{ Public 宣言 }

end;

const

PAI = '3.141592653';

RADD = '0.01745329252';

var

Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.doToRad(atai: string): string;

begin

var sdmy:string;

sdmy := atai;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

clia;

end;

procedure TForm1.clia; //答えの欄と計算式の欄をクリアする

begin

edit1.text := '';

memo1.Lines.Clear;

memo1.SetFocus;

end;//clia end

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);

begin

if ord(key) = VK_RETURN then begin key := #0;{ビープ音を消す}

edit1.text := MSsisoku(memo1.Text); //計算する

end;

function TForm1.MSsisoku(siki: string): string; //'Microsoft Script Control 1.0

begin

var msc: TScriptControl;

msc := TScriptControl.Create( Self );

msc.Language := 'VBScript';

//MOTOlabel1.caption := VarToStr( msc.Eval( 'sin(0.2) + log(20)' ) ) ;

try

//label1.caption := varToStr(msc.Eval('(1.5+2)/-2'));

result := varToStr(msc.Eval(siki));

except

result := '計算式が不正です';

end;

msc.Free;

end;

procedure TForm1.sbtnCliaClick(Sender: TObject); //クリア

begin

clia;

end;

procedure TForm1.sbtnKeisanClick(Sender: TObject); //計算

begin

edit1.text := MSsisoku(memo1.Text);

memo1.SetFocus;

end;

procedure TForm1.sbtnKuhakClick(Sender: TObject);

begin

memo1.SelText := ' ';

end;

procedure TForm1.sbtnBSClick(Sender: TObject);

begin

SetForegroundWindow(hwnd(memo1.Handle));

keybd_event(VK_BACK, 0, 0, 0); // Bsキー

keybd_event(VK_BACK, 0, KEYEVENTF_KEYUP, 0);

end;

procedure TForm1.sbtnEClick(Sender: TObject);

begin

memo1.SelText := 'E';

end;

procedure TForm1.sbtnGyakusuClick(Sender: TObject);

begin

memo1.SelText := '1/';

end;

procedure TForm1.sbtnMigiClick(Sender: TObject);

begin

memo1.selstart := memo1.selstart + 1;

end;

procedure TForm1.sbtnPaiClick(Sender: TObject);

begin

memo1.SelText := '3.141592653';

end;

procedure TForm1.sbtnHidariClick(Sender: TObject);

begin

memo1.selstart := memo1.selstart - 1;

end;

procedure TForm1.sbtnKakoENClick(Sender: TObject);

begin

memo1.SelText := ')';

end;

procedure TForm1.sbtnKakoSTClick(Sender: TObject);

begin

memo1.SelText := '(';

end;

procedure TForm1.sbtnKyaretClick(Sender: TObject);

begin

memo1.SelText := '^';

end;

procedure TForm1.sbtnMemoryClick(Sender: TObject); //答えの値を記憶させる

begin

Edit2.text := Edit1.Text;

memo1.SetFocus;

end;

procedure TForm1.sbtnRecalClick(Sender: TObject); //記憶値を数式画面へ挿入する

begin

memo1.SelText := Edit2.text;

end;

procedure TForm1.sbtnRutoClick(Sender: TObject);

begin

memo1.SelText := 'sqr()';

memo1.selstart := memo1.selstart - 1;

end;

procedure TForm1.sbtnSinClick(Sender: TObject);

begin

memo1.SelText := 'sin(0.01745329252*)';

memo1.selstart := memo1.selstart - 1;

end;

procedure TForm1.sbtnCosClick(Sender: TObject);

begin

memo1.SelText := 'cos(0.01745329252*)';

memo1.selstart := memo1.selstart - 1;

end;

procedure TForm1.sbtnTanClick(Sender: TObject);

begin

memo1.SelText := 'tan(0.01745329252*)';

memo1.selstart := memo1.selstart - 1;

end;

end.

C# WindowsForm エクスプローラ Program.cs

Thu, 25 Aug 2022 11:58:26 +0900

using System;

using System.Collections.Generic;

using System.Linq;

using System.Threading.Tasks;

using System.Windows.Forms;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Text;

using Microsoft.WindowsAPICodePack.Shell;

namespace myExprore

{

internal static class Program

{

/// <summary>

/// アプリケーションのメインエントリポイントです。

/// </summary>

[STAThread]

static void Main()

{

Application.EnableVisualStyles();

Application.SetCompatibleTextRenderingDefault(false);

Application.Run(new Form1());

}

C# WindowsForm エクスプローラ Form1.cs

Thu, 25 Aug 2022 11:57:30 +0900

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

using Microsoft.WindowsAPICodePack.Shell;

namespace myExprore

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

private void Form1_Shown(object sender, EventArgs e)

{

explorerBrowser1.Navigate((ShellObject)KnownFolders.Desktop);

}

private void explorerBrowser1_NavigationComplete(object sender, Microsoft.WindowsAPICodePack.Controls.NavigationCompleteEventArgs e)

{

}

private void button1_Click(object sender, EventArgs e)

{

string mylocation;

ShellObject myfolder;

//mylocation = "c:\\aaa\\example";

mylocation = textBox1.Text;

myfolder= ShellObject.FromParsingName(mylocation);

explorerBrowser1.Navigate(myfolder);

}

private void explorerBrowser1_SelectionChanged(object sender, EventArgs e)

{

ShellObjectCollection items = explorerBrowser1.SelectedItems;

textBox1.Text = items[0].ParsingName;

}

C# WindowsForm エクスプローラ Form1.Designer.cs

Thu, 25 Aug 2022 11:55:41 +0900

namespace myExprore

{

partial class Form1

{

/// <summary>

/// 必要なデザイナー変数です。

/// </summary>

private System.ComponentModel.IContainer components = null;

/// <summary>

/// 使用中のリソースをすべてクリーンアップします。

/// </summary>

/// <param name="disposing">マネージドリソースを破棄する場合は true を指定し、その他の場合は false を指定します。</param>

protected override void Dispose(bool disposing)

{

if (disposing && (components != null))

{

components.Dispose();

}

base.Dispose(disposing);

}

#region Windows フォームデザイナーで生成されたコード

/// <summary>

/// デザイナーサポートに必要なメソッドです。このメソッドの内容を

/// コードエディターで変更しないでください。

/// </summary>

private void InitializeComponent()

{

System.ComponentModel.ComponentResourceManager resources = new System.ComponentModel.ComponentResourceManager(typeof(Form1));

this.panel1 = new System.Windows.Forms.Panel();

this.button1 = new System.Windows.Forms.Button();

this.textBox1 = new System.Windows.Forms.TextBox();

this.panel2 = new System.Windows.Forms.Panel();

this.explorerBrowser1 = new Microsoft.WindowsAPICodePack.Controls.WindowsForms.ExplorerBrowser();

this.statusStrip1 = new System.Windows.Forms.StatusStrip();

this.panel1.SuspendLayout();

this.panel2.SuspendLayout();

this.SuspendLayout();

// panel1

this.panel1.Anchor = ((System.Windows.Forms.AnchorStyles)(((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Left)

| System.Windows.Forms.AnchorStyles.Right)));

this.panel1.BackColor = System.Drawing.SystemColors.Control;

this.panel1.Controls.Add(this.button1);

this.panel1.Controls.Add(this.textBox1);

this.panel1.Location = new System.Drawing.Point(-1, -1);

this.panel1.Name = "panel1";

this.panel1.Size = new System.Drawing.Size(830, 30);

this.panel1.TabIndex = 0;

// button1

this.button1.Location = new System.Drawing.Point(3, 4);

this.button1.Name = "button1";

this.button1.Size = new System.Drawing.Size(75, 23);

this.button1.TabIndex = 1;

this.button1.Text = "Navigate";

this.button1.UseVisualStyleBackColor = true;

this.button1.Click += new System.EventHandler(this.button1_Click);

// textBox1

this.textBox1.Location = new System.Drawing.Point(84, 6);

this.textBox1.Name = "textBox1";

this.textBox1.Size = new System.Drawing.Size(738, 19);

this.textBox1.TabIndex = 0;

// panel2

this.panel2.Anchor = ((System.Windows.Forms.AnchorStyles)((((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Bottom)

| System.Windows.Forms.AnchorStyles.Left)

| System.Windows.Forms.AnchorStyles.Right)));

this.panel2.BackColor = System.Drawing.Color.YellowGreen;

this.panel2.Controls.Add(this.explorerBrowser1);

this.panel2.Location = new System.Drawing.Point(-1, 29);

this.panel2.Name = "panel2";

this.panel2.Size = new System.Drawing.Size(830, 669);

this.panel2.TabIndex = 1;

// explorerBrowser1

this.explorerBrowser1.Dock = System.Windows.Forms.DockStyle.Fill;

this.explorerBrowser1.Location = new System.Drawing.Point(0, 0);

this.explorerBrowser1.Name = "explorerBrowser1";

this.explorerBrowser1.PropertyBagName = "Microsoft.WindowsAPICodePack.Controls.WindowsForms.ExplorerBrowser";

this.explorerBrowser1.Size = new System.Drawing.Size(830, 669);

this.explorerBrowser1.TabIndex = 0;

this.explorerBrowser1.NavigationComplete += new System.EventHandler<Microsoft.WindowsAPICodePack.Controls.NavigationCompleteEventArgs>(this.explorerBrowser1_NavigationComplete);

this.explorerBrowser1.SelectionChanged += new System.EventHandler(this.explorerBrowser1_SelectionChanged);

// statusStrip1

this.statusStrip1.Location = new System.Drawing.Point(0, 701);

this.statusStrip1.Name = "statusStrip1";

this.statusStrip1.Size = new System.Drawing.Size(833, 22);

this.statusStrip1.TabIndex = 2;

this.statusStrip1.Text = "statusStrip1";

// Form1

this.AutoScaleDimensions = new System.Drawing.SizeF(6F, 12F);

this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font;

this.ClientSize = new System.Drawing.Size(833, 723);

this.Controls.Add(this.statusStrip1);

this.Controls.Add(this.panel2);

this.Controls.Add(this.panel1);

this.Icon = ((System.Drawing.Icon)(resources.GetObject("$this.Icon")));

this.Name = "Form1";

this.Text = "Form1";

this.Shown += new System.EventHandler(this.Form1_Shown);

this.panel1.ResumeLayout(false);

this.panel1.PerformLayout();

this.panel2.ResumeLayout(false);

this.ResumeLayout(false);

this.PerformLayout();

}

#endregion

private System.Windows.Forms.Panel panel1;

private System.Windows.Forms.Panel panel2;

private System.Windows.Forms.StatusStrip statusStrip1;

private Microsoft.WindowsAPICodePack.Controls.WindowsForms.ExplorerBrowser explorerBrowser1;

private System.Windows.Forms.TextBox textBox1;

private System.Windows.Forms.Button button1;

}

C# WindowsForm メディアプレイヤー Form1.cs

Thu, 25 Aug 2022 11:53:41 +0900

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

namespace myWMPlayer

{

public partial class Form1 : Form

{

WMPLib.IWMPPlaylist myplaylist;

WMPLib.IWMPMedia songs;

string strFileName;

public Form1(string[] args)

{

InitializeComponent();

myplaylist = axWindowsMediaPlayer1.playlistCollection.newPlaylist("myplaylist");// プレイリストを作成

axWindowsMediaPlayer1.currentPlaylist = myplaylist;// プレイリストをメディアプレイヤーに設定

axWindowsMediaPlayer1.settings.enableErrorDialogs = true;

axWindowsMediaPlayer1.settings.setMode("shuffle", false);// シャッフル再生する場合は true。しない場合は false。

if (args.Length > 0)

{

songs = axWindowsMediaPlayer1.newMedia(args[0]);

myplaylist.appendItem(songs);// プレイリストにファイル追加

plyToList();

}

private void fileToPly()// ファイルをプレイリストにセット

{

foreach (string strFilePath in openFileDialog1.FileNames)//複数選択したファイル分だけ繰り返す

{

songs = axWindowsMediaPlayer1.newMedia(strFilePath);

myplaylist.appendItem(songs);// プレイリストにファイル追加

}

plyToList();

}

private void plyToList()// リストボックスにプレイリスト内のファイル名を表示

{

listBox1.Items.Clear();

for (int i = 0; i <= myplaylist.count - 1; i++)

{

listBox1.Items.Add(System.IO.Path.GetFileName(myplaylist.Item[i].sourceURL));

}

if (myplaylist.count >= 2)

{

btnSHazusu.Enabled = true;

btnEHazusu.Enabled = true;

}

else

{

btnSHazusu.Enabled = false;

btnEHazusu.Enabled = false;

}

private void btnOpen_Click(object sender, EventArgs e)

{

if (openFileDialog1.ShowDialog() == DialogResult.OK)

{

//MessageBox.Show(openFileDialog1.FileName,"Infomation",MessageBoxButtons.OK,MessageBoxIcon.Information);

//axWindowsMediaPlayer1.URL = @"C:\myC\myWMPlayer\deta\制服_オールナイトニッポンより.mp4";

//axWindowsMediaPlayer1.URL = openFileDialog1.FileName;

this.Text = System.IO.Path.GetDirectoryName(openFileDialog1.FileName);

fileToPly();

btnTuika.Enabled = true;

timer1.Enabled = true;

}

private void timer1_Tick(object sender, EventArgs e)

{

toolStripStatusLabel1.Text = axWindowsMediaPlayer1.currentMedia.durationString;

toolStripStatusLabel2.Text = axWindowsMediaPlayer1.Ctlcontrols.currentPositionString;

toolStripStatusLabel3.Text = System.IO.Path.GetFileName(axWindowsMediaPlayer1.currentMedia.sourceURL);

}

private void btnTuika_Click(object sender, EventArgs e)

{

if (openFileDialog1.ShowDialog() == DialogResult.OK)

{

fileToPly();

}

private void btnEHazusu_Click(object sender, EventArgs e)

{

myplaylist.removeItem(myplaylist.Item[myplaylist.count - 1]); //最後のアイテムを削除

plyToList();

}

private void btnSHazusu_Click(object sender, EventArgs e)

{

myplaylist.removeItem(myplaylist.Item[0]); //先頭のアイテムを削除

plyToList();

}

private void listBox1_DragOver(object sender, DragEventArgs e)

{

if (e.Data.GetDataPresent(DataFormats.FileDrop))

{

e.Effect = DragDropEffects.Copy;

}

else

{

e.Effect = DragDropEffects.None;

}

private void listBox1_DragDrop(object sender, DragEventArgs e)

{

if (e.Data.GetDataPresent(DataFormats.FileDrop))

{

string[] drpfiles = (string[])e.Data.GetData(DataFormats.FileDrop);

string drpfilePath;

for (int i = 0; i < drpfiles.Length; i++)

{

drpfilePath = drpfiles[i];

songs = axWindowsMediaPlayer1.newMedia(drpfilePath);

myplaylist.appendItem(songs);// プレイリストにファイル追加

}

plyToList();

}

C# WindowsForm メディアプレイヤー Form1.Designer.cs

Thu, 25 Aug 2022 11:52:36 +0900

namespace myWMPlayer

{

partial class Form1

{

/// <summary>

/// 必要なデザイナー変数です。

/// </summary>

private System.ComponentModel.IContainer components = null;

/// <summary>

/// 使用中のリソースをすべてクリーンアップします。

/// </summary>

/// <param name="disposing">マネージドリソースを破棄する場合は true を指定し、その他の場合は false を指定します。</param>

protected override void Dispose(bool disposing)

{

if (disposing && (components != null))

{

components.Dispose();

}

base.Dispose(disposing);

}

#region Windows フォームデザイナーで生成されたコード

/// <summary>

/// デザイナーサポートに必要なメソッドです。このメソッドの内容を

/// コードエディターで変更しないでください。

/// </summary>

private void InitializeComponent()

{

this.components = new System.ComponentModel.Container();

System.ComponentModel.ComponentResourceManager resources = new System.ComponentModel.ComponentResourceManager(typeof(Form1));

this.openFileDialog1 = new System.Windows.Forms.OpenFileDialog();

this.panel1 = new System.Windows.Forms.Panel();

this.btnSHazusu = new System.Windows.Forms.Button();

this.btnEHazusu = new System.Windows.Forms.Button();

this.btnTuika = new System.Windows.Forms.Button();

this.btnOpen = new System.Windows.Forms.Button();

this.panel2 = new System.Windows.Forms.Panel();

this.panel4 = new System.Windows.Forms.Panel();

this.listBox1 = new System.Windows.Forms.ListBox();

this.panel3 = new System.Windows.Forms.Panel();

this.axWindowsMediaPlayer1 = new AxWMPLib.AxWindowsMediaPlayer();

this.statusStrip1 = new System.Windows.Forms.StatusStrip();

this.toolStripStatusLabel1 = new System.Windows.Forms.ToolStripStatusLabel();

this.toolStripStatusLabel2 = new System.Windows.Forms.ToolStripStatusLabel();

this.toolStripStatusLabel3 = new System.Windows.Forms.ToolStripStatusLabel();

this.timer1 = new System.Windows.Forms.Timer(this.components);

this.panel1.SuspendLayout();

this.panel2.SuspendLayout();

this.panel4.SuspendLayout();

this.panel3.SuspendLayout();

((System.ComponentModel.ISupportInitialize)(this.axWindowsMediaPlayer1)).BeginInit();

this.statusStrip1.SuspendLayout();

this.SuspendLayout();

// openFileDialog1

this.openFileDialog1.FileName = "openFileDialog1";

this.openFileDialog1.Multiselect = true;

// panel1

this.panel1.BackColor = System.Drawing.Color.White;

this.panel1.Controls.Add(this.btnSHazusu);

this.panel1.Controls.Add(this.btnEHazusu);

this.panel1.Controls.Add(this.btnTuika);

this.panel1.Controls.Add(this.btnOpen);

this.panel1.Dock = System.Windows.Forms.DockStyle.Top;

this.panel1.Location = new System.Drawing.Point(0, 0);

this.panel1.Name = "panel1";

this.panel1.Size = new System.Drawing.Size(1127, 26);

this.panel1.TabIndex = 2;

// btnSHazusu

this.btnSHazusu.Enabled = false;

this.btnSHazusu.Location = new System.Drawing.Point(185, 2);

this.btnSHazusu.Name = "btnSHazusu";

this.btnSHazusu.Size = new System.Drawing.Size(124, 23);

this.btnSHazusu.TabIndex = 3;

this.btnSHazusu.Text = "先頭のファイルを外す";

this.btnSHazusu.UseVisualStyleBackColor = true;

this.btnSHazusu.Click += new System.EventHandler(this.btnSHazusu_Click);

// btnEHazusu

this.btnEHazusu.Enabled = false;

this.btnEHazusu.Location = new System.Drawing.Point(315, 2);

this.btnEHazusu.Name = "btnEHazusu";

this.btnEHazusu.Size = new System.Drawing.Size(128, 23);

this.btnEHazusu.TabIndex = 2;

this.btnEHazusu.Text = "末尾のファイルを外す";

this.btnEHazusu.UseVisualStyleBackColor = true;

this.btnEHazusu.Click += new System.EventHandler(this.btnEHazusu_Click);

// btnTuika

this.btnTuika.Enabled = false;

this.btnTuika.Location = new System.Drawing.Point(86, 2);

this.btnTuika.Name = "btnTuika";

this.btnTuika.Size = new System.Drawing.Size(93, 24);

this.btnTuika.TabIndex = 1;

this.btnTuika.Text = "ファイルを追加";

this.btnTuika.UseVisualStyleBackColor = true;

this.btnTuika.Click += new System.EventHandler(this.btnTuika_Click);

// btnOpen

this.btnOpen.Location = new System.Drawing.Point(3, 2);

this.btnOpen.Name = "btnOpen";

this.btnOpen.Size = new System.Drawing.Size(77, 24);

this.btnOpen.TabIndex = 0;

this.btnOpen.Text = "ファイルを開く";

this.btnOpen.UseVisualStyleBackColor = true;

this.btnOpen.Click += new System.EventHandler(this.btnOpen_Click);

// panel2

this.panel2.Anchor = ((System.Windows.Forms.AnchorStyles)((((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Bottom)

| System.Windows.Forms.AnchorStyles.Left)

| System.Windows.Forms.AnchorStyles.Right)));

this.panel2.BackColor = System.Drawing.SystemColors.Info;

this.panel2.Controls.Add(this.panel4);

this.panel2.Controls.Add(this.panel3);

this.panel2.Location = new System.Drawing.Point(0, 28);

this.panel2.Name = "panel2";

this.panel2.Size = new System.Drawing.Size(1124, 512);

this.panel2.TabIndex = 3;

// panel4

this.panel4.Anchor = ((System.Windows.Forms.AnchorStyles)(((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Bottom)

| System.Windows.Forms.AnchorStyles.Right)));

this.panel4.BackColor = System.Drawing.Color.LemonChiffon;

this.panel4.Controls.Add(this.listBox1);

this.panel4.Location = new System.Drawing.Point(901, 3);

this.panel4.Name = "panel4";

this.panel4.Size = new System.Drawing.Size(221, 509);

this.panel4.TabIndex = 1;

// listBox1

this.listBox1.AllowDrop = true;

this.listBox1.Dock = System.Windows.Forms.DockStyle.Fill;

this.listBox1.FormattingEnabled = true;

this.listBox1.HorizontalScrollbar = true;

this.listBox1.ItemHeight = 12;

this.listBox1.Location = new System.Drawing.Point(0, 0);

this.listBox1.Name = "listBox1";

this.listBox1.Size = new System.Drawing.Size(221, 509);

this.listBox1.TabIndex = 0;

this.listBox1.DragDrop += new System.Windows.Forms.DragEventHandler(this.listBox1_DragDrop);

this.listBox1.DragOver += new System.Windows.Forms.DragEventHandler(this.listBox1_DragOver);

// panel3

this.panel3.Anchor = ((System.Windows.Forms.AnchorStyles)((((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Bottom)

| System.Windows.Forms.AnchorStyles.Left)

| System.Windows.Forms.AnchorStyles.Right)));

this.panel3.BackColor = System.Drawing.SystemColors.ActiveCaption;

this.panel3.Controls.Add(this.axWindowsMediaPlayer1);

this.panel3.Location = new System.Drawing.Point(3, 3);

this.panel3.Name = "panel3";

this.panel3.Size = new System.Drawing.Size(896, 506);

this.panel3.TabIndex = 0;

// axWindowsMediaPlayer1

this.axWindowsMediaPlayer1.Dock = System.Windows.Forms.DockStyle.Fill;

this.axWindowsMediaPlayer1.Enabled = true;

this.axWindowsMediaPlayer1.Location = new System.Drawing.Point(0, 0);

this.axWindowsMediaPlayer1.Name = "axWindowsMediaPlayer1";

this.axWindowsMediaPlayer1.OcxState = ((System.Windows.Forms.AxHost.State)(resources.GetObject("axWindowsMediaPlayer1.OcxState")));

this.axWindowsMediaPlayer1.Size = new System.Drawing.Size(896, 506);

this.axWindowsMediaPlayer1.TabIndex = 0;

// statusStrip1

this.statusStrip1.Items.AddRange(new System.Windows.Forms.ToolStripItem[] {

this.toolStripStatusLabel1,

this.toolStripStatusLabel2,

this.toolStripStatusLabel3});

this.statusStrip1.Location = new System.Drawing.Point(0, 545);

this.statusStrip1.Name = "statusStrip1";

this.statusStrip1.Size = new System.Drawing.Size(1127, 22);

this.statusStrip1.TabIndex = 4;

this.statusStrip1.Text = "statusStrip1";

// toolStripStatusLabel1

this.toolStripStatusLabel1.Name = "toolStripStatusLabel1";

this.toolStripStatusLabel1.Size = new System.Drawing.Size(34, 17);

this.toolStripStatusLabel1.Text = "time";

// toolStripStatusLabel2

this.toolStripStatusLabel2.Name = "toolStripStatusLabel2";

this.toolStripStatusLabel2.Size = new System.Drawing.Size(31, 17);

this.toolStripStatusLabel2.Text = "now";

// toolStripStatusLabel3

this.toolStripStatusLabel3.Name = "toolStripStatusLabel3";

this.toolStripStatusLabel3.Size = new System.Drawing.Size(34, 17);

this.toolStripStatusLabel3.Text = "song";

// timer1

this.timer1.Tick += new System.EventHandler(this.timer1_Tick);

// Form1

this.AutoScaleDimensions = new System.Drawing.SizeF(6F, 12F);

this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font;

this.ClientSize = new System.Drawing.Size(1127, 567);

this.Controls.Add(this.statusStrip1);

this.Controls.Add(this.panel2);

this.Controls.Add(this.panel1);

this.Icon = ((System.Drawing.Icon)(resources.GetObject("$this.Icon")));

this.Name = "Form1";

this.Text = "axWindowsMediaPlayer";

this.panel1.ResumeLayout(false);

this.panel2.ResumeLayout(false);

this.panel4.ResumeLayout(false);

this.panel3.ResumeLayout(false);

((System.ComponentModel.ISupportInitialize)(this.axWindowsMediaPlayer1)).EndInit();

this.statusStrip1.ResumeLayout(false);

this.statusStrip1.PerformLayout();

this.ResumeLayout(false);

this.PerformLayout();

}

#endregion

private System.Windows.Forms.OpenFileDialog openFileDialog1;

private System.Windows.Forms.Panel panel1;

private System.Windows.Forms.Button btnOpen;

private System.Windows.Forms.Panel panel2;

private System.Windows.Forms.StatusStrip statusStrip1;

private System.Windows.Forms.Timer timer1;

private System.Windows.Forms.ToolStripStatusLabel toolStripStatusLabel1;

private System.Windows.Forms.ToolStripStatusLabel toolStripStatusLabel2;

private System.Windows.Forms.Button btnTuika;

private System.Windows.Forms.Panel panel3;

private System.Windows.Forms.Panel panel4;

private AxWMPLib.AxWindowsMediaPlayer axWindowsMediaPlayer1;

private System.Windows.Forms.ListBox listBox1;

private System.Windows.Forms.ToolStripStatusLabel toolStripStatusLabel3;

private System.Windows.Forms.Button btnEHazusu;

private System.Windows.Forms.Button btnSHazusu;

}

C# WindowsForm メディアプレイヤー Program.cs

Thu, 25 Aug 2022 11:50:35 +0900

using System;

using System.Collections.Generic;

using System.Linq;

using System.Threading.Tasks;

using System.Windows.Forms;

namespace myWMPlayer

{

internal static class Program

{

/// <summary>

/// アプリケーションのメインエントリポイントです。

/// </summary>

[STAThread]

static void Main(string[] args)

{

Application.EnableVisualStyles();

Application.SetCompatibleTextRenderingDefault(false);

Application.Run(new Form1(args));

}

C# WPF メモ帳 MainWindow.xaml.cs

Thu, 25 Aug 2022 11:40:14 +0900

using Microsoft.Win32;

using System;

using System.Collections.Generic;

using System.IO;

using System.Linq;

using System.Reflection;

using System.Text;

using System.Threading.Tasks;

using System.Windows;

using System.Windows.Controls;

using System.Windows.Data;

using System.Windows.Documents;

using System.Windows.Input;

using System.Windows.Media;

using System.Windows.Media.Imaging;

using System.Windows.Navigation;

using System.Windows.Shapes;

using System.Reflection;

namespace WpfMemo

{

/// <summary>

/// MainWindow.xaml の相互作用ロジック

/// </summary>

public partial class MainWindow : Window

{

Boolean _bold = false;

Boolean _italic = false;

Boolean _strike = false;

Boolean _uline = false;

public Dictionary<int, string> Okisa_Dic { get; set; }

public Dictionary<int, string> Haba_Dic { get; set; }

public MainWindow()

{

Okisa_Dic = new Dictionary<int, string>()

{

{10, "10" },

{12, "12" },

{14, "14" },

{16, "16" },

{18, "18" },

{20, "20" },

{22, "22" },

{24, "24" },

{26, "26" },

{28, "28" },

{36, "36" },

{48, "48" },

{72, "72" },

};

Haba_Dic = new Dictionary<int, string>()

{

{100, "100" },

{1000, "1000" },

{10000, "10000" },

{100000, "100000" },

};

InitializeComponent();

cbxColor.DataContext = GetColorList();

DataContext = this;

richTB.HorizontalScrollBarVisibility = ScrollBarVisibility.Visible;

//richTB.Document.PageWidth = 1000;

}

/// <summary>

/// すべての色を取得するメソッド

/// </summary>

/// <returns></returns>

private MyColor[] GetColorList()

{

return typeof(Colors).GetProperties(BindingFlags.Public | BindingFlags.Static)

.Select(i => new MyColor() { Color = (Color)i.GetValue(null), Name = i.Name }).ToArray();

}

/// <summary>

/// 色と色名を保持するクラス

/// </summary>

public class MyColor

{

public Color Color { get; set; }

public string Name { get; set; }

}

private void btnSave_Click(object sender, RoutedEventArgs e)

{

var dialog = new SaveFileDialog();

dialog.Filter = "xamlファイル (*.xaml)|*.xaml|全てのファイル (*.*)|*.*";

if (dialog.ShowDialog() == true)

{

SaveXamlPackage(dialog.FileName); //"C:\\test.xaml"); // パス付の保存ファイル名

}

// Save XAML in RichTextBox to a file specified by _fileName

// _fileNameで指定するファイルを、RichTextBoxでXAMLを保存します。

void SaveXamlPackage(string _fileName)

{

TextRange range;

FileStream fStream;

range = new TextRange(richTB.Document.ContentStart, richTB.Document.ContentEnd);

fStream = new FileStream(_fileName, FileMode.Create);

range.Save(fStream, DataFormats.XamlPackage);

fStream.Close();

windMain.Title = _fileName;

}

// Load XAML into RichTextBox from a file specified by _fileName

void LoadXamlPackage(string _fileName)

{

TextRange range;

FileStream fStream;

range = new TextRange(richTB.Document.ContentStart, richTB.Document.ContentEnd);

fStream = new FileStream(_fileName, FileMode.OpenOrCreate);

range.Load(fStream, DataFormats.XamlPackage);

fStream.Close();

windMain.Title = _fileName;

}

private void btnLoad_Click(object sender, RoutedEventArgs e)

{

var dialog = new OpenFileDialog();

dialog.Filter = "xamlファイル (*.xaml)|*.xaml|全てのファイル (*.*)|*.*";

if (dialog.ShowDialog() == true)

{

LoadXamlPackage(dialog.FileName);

}

private void btnCopy_Click(object sender, RoutedEventArgs e)

{

richTB.Copy();

}

private void btnPaste_Click(object sender, RoutedEventArgs e)

{

richTB.Paste();

}

private void btnCut_Click(object sender, RoutedEventArgs e)

{

richTB.Cut();

}

var textRange = richTB.Selection;

// 文字色

textRange.ApplyPropertyValue(TextElement.ForegroundProperty, Brushes.Red);

// フォント

textRange.ApplyPropertyValue(TextElement.FontFamilyProperty, new FontFamily("Verdana"));

// フォントサイズ

textRange.ApplyPropertyValue(TextElement.FontSizeProperty, 12.0);

// フォントスタイル

textRange.ApplyPropertyValue(TextElement.FontWeightProperty, FontWeights.Bold);

private void btnBold_Click(object sender, RoutedEventArgs e)

{

var textRange = richTB.Selection;

// フォントウエイト

_bold = !_bold;

if (_bold == true)

{

textRange.ApplyPropertyValue(TextElement.FontWeightProperty, FontWeights.Bold);

}

else

{

textRange.ApplyPropertyValue(TextElement.FontWeightProperty, FontWeights.Regular);

}

private void btnItalic_Click(object sender, RoutedEventArgs e)

{

var textRange = richTB.Selection;

// フォントスタイル

_italic = !_italic;

if (_italic == true)

{

textRange.ApplyPropertyValue(TextElement.FontStyleProperty, FontStyles.Italic);

}

else

{

textRange.ApplyPropertyValue(TextElement.FontStyleProperty, FontStyles.Normal);

}

private void btnStrike_Click(object sender, RoutedEventArgs e)

{

var textRange = richTB.Selection;

// 取り消し線

_strike = !_strike;

if (_strike == true)

{

textRange.ApplyPropertyValue(TextBlock.TextDecorationsProperty, TextDecorations.Strikethrough);

}

else

{

textRange.ApplyPropertyValue(TextBlock.TextDecorationsProperty, new TextDecorationCollection());

}

private void btnULine_Click(object sender, RoutedEventArgs e)

{

var textRange = richTB.Selection;

// アンダーライン

_uline = !_uline;

if (_uline == true)

{

textRange.ApplyPropertyValue(TextBlock.TextDecorationsProperty, TextDecorations.Underline);

}

else

{

textRange.ApplyPropertyValue(TextBlock.TextDecorationsProperty, new TextDecorationCollection());

}

private void cbxOkisa_DropDownClosed(object sender, EventArgs e)

{

try

{

int idmy = (int)cbxOkisa.SelectedValue;

// フォントサイズ

var textRange = richTB.Selection;

textRange.ApplyPropertyValue(TextElement.FontSizeProperty, (double)idmy);

}

catch

{

MessageBox.Show("フォントサイズを指定してください");

}

private void cbxColor_DropDownClosed(object sender, EventArgs e)

{

try

{

var mycolor = (MyColor)((ComboBox)sender).SelectedItem;

var color = mycolor.Color;

var name = mycolor.Name;

// 文字色

var textRange = richTB.Selection;

textRange.ApplyPropertyValue(TextElement.ForegroundProperty, new SolidColorBrush(color));//Brushes.Red);

}

catch

{

MessageBox.Show("フォントカラーを指定してください");

}

private void richTB_SelectionChanged(object sender, RoutedEventArgs e)

{

tbxSelect.Text = richTB.Selection.Text;

}

private void cbxGyoHaba_DropDownClosed(object sender, EventArgs e)

{

try

{

int idmy = (int)cbxGyoHaba.SelectedValue;

// 行の幅

richTB.Document.PageWidth = idmy;

}

catch

{

MessageBox.Show("行の幅を指定してください");

}

C# WPF メモ帳 MainWindow.xaml

Thu, 25 Aug 2022 11:38:57 +0900

<Window x:Name="windMain" x:Class="WpfMemo.MainWindow"

xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

xmlns:d="http://schemas.microsoft.com/expression/blend/2008"

xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"

xmlns:local="clr-namespace:WpfMemo"

mc:Ignorable="d"

Title="MainWindow" Height="450" Width="800" Icon="/bloc-de-notas.ico">

<Grid.RowDefinitions>

</Grid.RowDefinitions>

</Paragraph>

</FlowDocument>

</RichTextBox>

<ComboBox.ItemTemplate>

<Border.Background>

</Border.Background>

</Border>

</StackPanel>

</DataTemplate>

</ComboBox.ItemTemplate>

</ComboBox>

</Grid>

</Window>

C# WPF WebView2 ブラウザ MainWindow.xaml.cs

Wed, 24 Aug 2022 09:23:42 +0900

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using System.Windows;

using System.Windows.Controls;

using System.Windows.Data;

using System.Windows.Documents;

using System.Windows.Input;

using System.Windows.Media;

using System.Windows.Media.Imaging;

using System.Windows.Navigation;

using System.Windows.Shapes;

namespace WpfWeb

{

/// <summary>

/// MainWindow.xaml の相互作用ロジック

/// </summary>

public partial class MainWindow : Window

{

public MainWindow()

{

InitializeComponent();

}

private void btnYahoo_Click(object sender, RoutedEventArgs e)

{

WViewMain.Source = new Uri("https://www.yahoo.co.jp");

}

private void btnGoogle_Click(object sender, RoutedEventArgs e)

{

WViewMain.Source = new Uri("https://www.google.co.jp");

}

private void btnStop_Click(object sender, RoutedEventArgs e)

{

WViewMain.Stop();

}

private void btnReload_Click(object sender, RoutedEventArgs e)

{

WViewMain.Reload();

}

private void WViewMain_NavigationCompleted(object sender, Microsoft.Web.WebView2.Core.CoreWebView2NavigationCompletedEventArgs e)

{

this.Title =WViewMain.CoreWebView2.DocumentTitle;

tbxURI.Text = WViewMain.CoreWebView2.Source;

}

private void btnPrev_Click(object sender, RoutedEventArgs e)

{

WViewMain.GoBack();

}

private void btnNext_Click(object sender, RoutedEventArgs e)

{

WViewMain.GoForward();

}

private void btnGoURI_Click(object sender, RoutedEventArgs e)

{

WViewMain.Source = new Uri(tbxURI.Text);

}

C# WPF WebView2 ブラウザ MainWindow.xaml

Wed, 24 Aug 2022 09:22:39 +0900

<Window

xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

xmlns:d="http://schemas.microsoft.com/expression/blend/2008"

xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"

xmlns:local="clr-namespace:WpfWeb"

xmlns:Wpf="clr-namespace:Microsoft.Web.WebView2.Wpf;assembly=Microsoft.Web.WebView2.Wpf" x:Class="WpfWeb.MainWindow"

mc:Ignorable="d"

Title="MainWindow" Height="600" Width="800">

<Grid>

<Grid.RowDefinitions>

</Grid.RowDefinitions>

<Wpf:WebView2 x:Name="WViewMain" Grid.Row="1" Margin="0,0,0,2" NavigationCompleted="WViewMain_NavigationCompleted"/>

</Grid>

</Window>

C# WPF WebView2 ブラウザ App.xaml

Wed, 24 Aug 2022 09:20:01 +0900

<Application x:Class="WpfWeb.App"

xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

xmlns:local="clr-namespace:WpfWeb"

StartupUri="MainWindow.xaml">

<Application.Resources>

</Application.Resources>

</Application>

Delphi FMX 丸いアナログ時計ソースコード

Sat, 20 Aug 2022 18:03:51 +0900

unit Unit1;

interface

uses

System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,

FMX.Menus;

type

TForm1 = class(TForm)

Image1: TImage;

Line1: TLine;

Line2: TLine;

Line3: TLine;

Timer1: TTimer;

PopupMenu1: TPopupMenu;

pmnSaishou: TMenuItem;

pmnSyuryo: TMenuItem;

procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Single);

procedure pmnSaishouClick(Sender: TObject);

procedure pmnSyuryoClick(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure FormResize(Sender: TObject);

private

{ private 宣言 }

public

{ public 宣言 }

procedure TimeDisp;

end;

var

Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.TimeDisp;

var

h, m, s,ms : Word;

hh, mm, ss: single;

begin

DecodeTime(GetTime, h, m, s, ms);

// 秒針

ss := s + ms / 1000;

Line1.RotationAngle := 360.0 / 60.0 * ss - 90.0; // ０°は３時方向の為

// 分針

mm := m + s / 60.0;

Line2.RotationAngle := 360.0 / 60.0 * mm - 90.0;

// 時針

if (h > 12) then h := h - 12;

hh := h + m / 60.0; // 時針は分も加えて中間表現

Line3.RotationAngle := 360.0 / 12.0 * hh - 90.0;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Timer1.Enabled := False;

TimeDisp;

Timer1.Interval := 100;

Timer1.Enabled := True;

end;

procedure TForm1.FormResize(Sender: TObject);

var

w,h,a,r,cx,cy : single;

begin

// パネル再配置

w := Form1.ClientWidth;

h := Form1.ClientHeight;

a := w ;

if (a > h) then a := h;

if (a < 24) then a := 24;

cx:= w/2;

cy:= h/2;

r := a / 2;

// 秒針

with Line1 do begin

stroke.Thickness := a/250;

Position.X := cx - Line1.width * 0.2;

Position.Y := cy - Line1.Height * 0.5;

Width := r*1.2; // 長さ

end;

// 分針

with Line2 do begin

stroke.Thickness := a/60;

Position.X := cx;// - Line2.width * 0.2;

Position.Y := cy - Line2.Height * 0.5;

Width := r*0.8; // 長さ

end;

// 時針

with Line3 do begin

stroke.Thickness := a/40;

Position.X := cx;// - Line3.width * 0.2;

Position.Y := cy;// - stroke.Thickness * 01.0;

Width := r*0.6; // 長さ

end;

procedure TForm1.FormShow(Sender: TObject);

begin

Timer1.Interval := 100;

Timer1.Enabled := True;

//FormResize(Self);

//Image1.Bitmap.LoadFromFile('img\banmen2.png');

Image1.Position.X := 0;

Image1.Position.Y := 0;

end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Single);

var

　p : TPointF ;

begin

　if (ssRight in Shift) then begin

　　p := Form1.ClientToScreen(PointF(X,Y));

　　PopupMenu1.Popup(p.X,p.Y);

　end;

StartWindowDrag;

end;

procedure TForm1.pmnSaishouClick(Sender: TObject);

begin

Form1.WindowState := TWindowState.wsMinimized;

end;

procedure TForm1.pmnSyuryoClick(Sender: TObject);

begin

form1.Close;

end;

end.

tukasa blog

Delphi DFM ミニメモ帳 minimemo ソースコード

Delphi FMX メディアプレイヤー miniDPlay ソースコード

Delphi 簡易電卓 ソースコード

C# WindowsForm エクスプローラ Program.cs

C# WindowsForm エクスプローラ Form1.cs

C# WindowsForm エクスプローラ Form1.Designer.cs

C# WindowsForm メディアプレイヤー Form1.cs

C# WindowsForm メディアプレイヤー Form1.Designer.cs

C# WindowsForm メディアプレイヤー Program.cs

C# WPF メモ帳 MainWindow.xaml.cs

C# WPF メモ帳 MainWindow.xaml

C# WPF WebView2 ブラウザ MainWindow.xaml.cs

C# WPF WebView2 ブラウザ MainWindow.xaml

C# WPF WebView2 ブラウザ App.xaml

Delphi FMX 丸いアナログ時計 ソースコード

Delphi 簡易電卓ソースコード

Delphi FMX 丸いアナログ時計ソースコード