小编Arg*_*tyr的帖子

qt设计问题

我正在尝试设计像http://www.softpedia.com/screenshots/FlashFXP_2.png这样的界面

我正在使用QT设计并在左侧使用python进行编程它是一个treeWidget,但右侧是什么?每当我更改树上的光标时,所有小部件都会替换...

谢谢:p

python user-interface qt

2
推荐指数
1
解决办法
318
查看次数

确定另一个应用程序是否正忙

如何检查另一个应用程序是否正忙?

我有一个程序将文本发送到控制台.我将发送的文本包含#13 char(例如ls#13cd documents#13dir).换句话说,我想一次发送许多命令,控制台将逐个处理它们.我按字符发送文本字符.有时控制台只执行lscd documents.我想也许这是因为即使控制台忙,我的程序也会不断发送字符,在这种情况下控制台不接收传入的字符.

这是我的代码:

procedure TForm1.SendTextToAppO(Str: String; AHandle: Integer);
var
  iWindow, iPoint, i: Integer;
  SPass: PChar;
  sList: TStringList;
begin
sList := TStringList.Create;
  ExtractStrings([#13],[' '],PChar(Str),sList);
  iWindow := AHandle;// AHandle is the handle of the console
  iPoint := ChildWindowFromPoint(iWindow, Point(50,50));
  for i:=0 to sList.Count-1 do begin
    SPass := PChar(sList[i]);
    try
      while(SPass^ <> #$00) do begin
      SendMessage(iPoint,WM_CHAR,Ord(SPass^),0);
      Inc(SPass);
      end;
      SendMessage(iPoint,WM_KEYDOWN,VK_RETURN,0);
    except
        // do nothing;
    end;
  end;
end;
Run Code Online (Sandbox Code Playgroud)

我使用的是Delphi 7.

delphi console redirect delphi-7

2
推荐指数
1
解决办法
604
查看次数

如何在Latex中包装不间断的文本?

我需要在Latex文档中插入这样的文本:

((((四籽树科,pellicieraceae),蜜囊花科),凤仙花科),(fouquieriaceae,花荵科,肋果茶科,(厚皮,黄瑞)五列木科(木,大头)山茶科,(lissocarpa,柿)柿树科,山矾科(maesaceae,(假轮叶科,(报春花,(铁仔,朱砂)紫金牛科))),(岩梅科(parastyrax,苏合香)安息香科),山榄科,(玉蕊,古斯塔维亚)玉蕊,(((杜鹃花科,翅萼树科),(purdiaea,clethra)山柳科), (瓶子草科,((猕猴桃,水东哥属)猕猴桃,roridulaceae)))))杜鹃花目;

Latex将所有文本写入一行,在右边缘中关闭.我不能手工使用\ linebreak,这只会在文本较长时给出较差的结果,并且考虑到要包含的所有类似文本,这将是很多工作.

任何的想法?

谢谢!

latex margin word-wrap phylogeny

2
推荐指数
2
解决办法
8007
查看次数

在C#中使用Delphi 7中编译的DLL

我需要在我的C#应用​​程序中使用Delphi 7中的DLL(硬件ID提取器).

此DLL导出的函数是:

导出功能:

// CPU
function GetCPUSpeed: Double;
function CPUFamily: ShortString; { Get cpu identifier from the windows registry }
function GetCpuTheoreticSpeed: Integer; { Get cpu speed (in MHz) }
function IsCPUIDAvailable: Boolean; Register;
function GetCPUID (CpuCore: byte): ShortString;
Function GetCPUVendor: ShortString;

// RAM
function MemoryStatus (MemType: Integer): cardinal; { in Bytes }
function MemoryStatus_MB (MemType: Integer): ShortString; { in MB }

// HDD
function GetPartitionID (Partition : PChar): ShortString; { Get the ID of the specified patition. Example …
Run Code Online (Sandbox Code Playgroud)

c# delphi dll

2
推荐指数
2
解决办法
5260
查看次数

如何在页面控件中从一个页面移动到另一个页面时检查以前的标签页?

我正在使用TPageControl,其中隐藏了TTabsheets的选项卡,以使它们包含的框架看起来是堆叠的,并通过在该过程的不同步骤中显示不同的框架来构建某种向导.

问题是,在调用"PageControl1.ActivePageIndex:= x;"之后 要显示下一帧,一旦进入新帧,我需要知道我是如何到达这里的,即先前显示的帧.

如果其他人在页面控件中使用了框架来构建向导,那么如何跟踪上一帧/下一帧呢?

谢谢.

delphi user-interface frames wizard uipagecontrol

2
推荐指数
1
解决办法
3359
查看次数

使用 R 反转树状图中的叶子顺序

我已经尝试了几天来翻转树状图,以便最后一个基因是图中的第一个,第一个是最后一个。但即使我设法移动叶子,内部排序也不一样。这是我的脚本:

cluster.hosts <- read.table("Norm_0_to1_heatmap.txt", header = TRUE, sep="", quote="/", row.names = 1)
# A table with 8 columnns and 229 rows cirresponding to gene expression 
 hosts.dist <- dist(cluster.hosts, method = "euclidean", diag = FALSE, upper = FALSE, p = 2)
 hc <- hclust(hosts.dist, method = "average")
 dd <- as.dendrogram(hc)
 order.dendrogram(dd)

X11()
par(cex=0.5,font=3)
plot(dd, main="Dendrogram of Syn9 genes")
order.dd <- order.dendrogram(dd)    #the numbers in the order indicate the position of the gene in the original table
#Then I generate a vector …
Run Code Online (Sandbox Code Playgroud)

r dendrogram hclust

2
推荐指数
1
解决办法
3261
查看次数

使用Delphi在画布上绘制每行一个焦点的居中和中间文本

我需要在框的中心绘制文本.必须在每行上以一个字符水平对齐绘制文本.

我附上了一个字符串"class"的例子.

在此输入图像描述

我可以绘制单个字符,但我希望有更快的方法来实现它.

delphi text canvas

2
推荐指数
1
解决办法
588
查看次数

在最小化或非活动形式内模拟鼠标单击

我很难弄清楚如何在最小化或当前不活动的窗口中模拟鼠标点击等.如果不清楚,我希望我的鼠标能够点击和填充而不实际使用鼠标.

例如,当我浏览网页时,我希望我的程序能够同时在另一个应用程序内部单击.

我怎么能做到这一点?我所能找到的只是旧的movemouse和setcursorpos东西...我们知道需要使用你的实际鼠标/光标.

delphi delphi-7 delphi-xe5

2
推荐指数
1
解决办法
564
查看次数

为什么这段代码会阻塞我的主线程?

我需要Thread独立工作Form.例如,我的循环无限Thread:

procedure TCustomThread.doProc;
begin
  repeat
.
.
.
  until (1 = 2);
end;

procedure TCustomThread.Execute;
begin
  inherited;

  Synchronize(doProc);
end;
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
var
  thrd : TCustomThread;
begin
  thrd := TCustomThread.Create(True);
  thrd.Resume;
  Application.ProcessMessages;
end;
Run Code Online (Sandbox Code Playgroud)

现在,当我点击时Button1,我的Thread跑步但主要Form是锁定.我怎样才能避免暂停Form

delphi multithreading

2
推荐指数
1
解决办法
560
查看次数

生成特定的32位二进制序列

我需要生成这样一个32位二进制序列:它有8个'1',其余位是'0'.所以用十六进制编写,一些序列将是这样的:

000000FF
000001FE
000001FD
000001FB
000001F7
...
Run Code Online (Sandbox Code Playgroud)

问题是从32中选择8,因此有10518300种组合.换句话说,像我的例子一样有10518300个序列.如果您给我任何建议或算法来生成我想要的序列,我将不胜感激.

c c++ algorithm binary hex

1
推荐指数
1
解决办法
441
查看次数