DELPHI动态创建删除FRAME
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,FM;
type
TForm2 = class(TForm)
Panel1: TPanel;
Button2: TButton;
ScrollBox1: TScrollBox;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TFM = Array Of TFrame1;
var
Form2: TForm2;
aFM: TFM;
procedure DeleteArrItem(var arr: TFM ; Index: Integer);stdcall;
implementation
{$R *.dfm}
procedure DeleteArrItem(var arr: TFM ; Index: Integer);
var
Count: Cardinal;
i:integer;
begin
Count := Length(arr);
if (Count = 0) or (Index < 0) or (Index >= Count) then Exit;
Move(arr[Index+1], arr[Index], (Count-Index)* SizeOf(arr[0]));
SetLength(arr, Count - 1);
for I := 0 to Length(arr) - 1 do
begin
arr[i].Label1.Caption:=inttostr(i);
end;
end;
procedure TForm2.Button2Click(Sender: TObject);
var
fram:TFrame1;
begin
SetLength(aFM,length(aFM)+1);
aFM[length(aFM)-1] :=TFrame1.Create(nil) ;
fram:=aFM[length(aFM)-1];
fram.Label1.Caption:=inttostr(length(aFM)-1);
fram.Parent:=ScrollBox1;
end;
end.
unit fm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TFrame1 = class(TFrame)
GroupBox1: TGroupBox;
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
uses unit2;
{$R *.dfm}
procedure TFrame1.Button1Click(Sender: TObject);
begin
DeleteArrItem(aFM,strtoint(label1.Caption));
( Sender as Tbutton ).Parent.Parent.Destroy;
end;
end.
2023-12-12 19:35:07
311KB
1
视频帧提取器
从剪辑提取视频帧以创建数据集。
frame-generator.py从示例视频生成所有帧，然后将其保存到extracted-frames目录中。
软件包的依赖关系和安装：
我们将为此项目需要python的opencv和os软件包。从python3.4开始，os是python不可或缺的一部分。我们将需要安装opencv来运行frame-generator.py 。建议您将虚拟环境用于任何与计算机视觉相关的项目，以避免软件包依赖关系的冲突。
pip3 install opencv-python
运行代码：
创建一个名称为sample-clips的目录。
将视频片段保存在新创建的sample-clips目录中。
确保frame-generator.py和sample-clips目录保存在同一目录下。
在命令行中按以下命令。
python3 frame-generator.py
2023-04-06 23:51:28
2KB
1
本文实例分析了Android动画之逐帧动画。分享给大家供大家参考，具体如下：
在开始实例讲解之前，先引用官方文档中的一段话：
Frame动画是一系列图片按照一定的顺序展示的过程，和放电影的机制很相似，我们称为逐帧动画。Frame动画可以被定义在XML文件中，也可以完全编码实现。
如果被定义在XML文件中，我们可以放置在/res下的anim或drawable目录中(/res/[anim | drawable]/filename.xml)，文件名可以作为资源ID在代码中引用；如果由完全由编码实现，我们需要使用到AnimationDrawable对象。
如果是将动画定义在XML文件中的话，语法如下：
2023-04-06 17:32:10
69KB
1
mcu-frame
单片机软件框架
目前功能：
###1.轻量级的异步task
自带堆管理，可用于参数分配，当前256字节(可调)
支持task动态增删，当前最大32个(可调)
支持参数
使用方法请参考demo例程
2023-03-29 15:34:28
622KB
1
Unity一键式Shader调试工具，远强大于Frame Debugger，辅助shader的快速开发。
2023-03-20 20:24:30
49.44MB
1
基于多特征的动态关键帧提取，张萌，张洪刚，关键帧提取是视频检索中一个基本的环节。进行关键帧提取的主要目的是从一个视频序列中提取出一部分能够图像帧序列，来降低对视频
2023-03-06 20:03:16
125KB
1
LIN接口库
通过编译LIN帧发送和发送和请求数据，并通过串行传输（作为总线主站）
使用ESP32的HardwareSerial UART。 （但是过去我使用了软件序列号，因此我从SoftwareSerial类派生了以前的版本中的此类）
收发器
我在项目的硬件方面使用了TJA1020收发器。 该芯片包含一个状态机，您必须先对其进行控制，然后才能写入或接收数据。 为了使思考更容易，我创建了一个派生类（从该类派生），该派生类每次都使用总线考虑状态机： :
例子
看看这个仓库，看看它是如何工作的： :
此代码调用利用Lin接口的BatSensor的某些方法
// LIN Bus Interface provided viy TJA1020
#include "TJA1020.hpp"
// IBS Batterie Sensor
#include "IBS_Sensor.hpp"
#
2022-11-30 10:52:46
14KB
1
video_frame_crc ip 源码，可以配合HDMI,DP等ip的使用。axi时钟：99.999001M。
2022-11-17 11:33:43
15KB
1