小编Sid*_*ang的帖子

如何对TImage或任何东西产生水效果?

好的,我刚刚在我的电脑上安装了一个Tortoise git.而且我对它的页面上的水效果很安静.

在此输入图像描述

尝试将鼠标光标移动到乌龟GIT上的乌龟图片 - 关于

它更像是我们在水面上伸出手指.

有谁知道如何在Delphi中制作那种水效果?

delphi image effect

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

如何在Laravel 5中添加我自己的自定义类?

好吧,在laravel 4中,如果我想添加自己的自定义类,例如:library\myFunction.php,那么我执行以下步骤:

  1. 将" myFunctions.php " 添加到app/library/myFunctiosn.php中
  2. app/start/global.php,在ClassLoader :: addDirectories(array(,我添加app_path().'/ library',
  3. 要在我的刀片视图中调用它,我添加以下代码
<?php
  $FmyFunctions1 = new myFunctions;
  $is_ok1=($FmyFunctions1->is_ok());   
?>
Run Code Online (Sandbox Code Playgroud)
  1. app/library/myFunctions.php的内容是:
<?php namespace App\library {

    class myFunctions {
        public function is_ok() {
            return 'myFunction is OK';
        }
    }

}
?>
Run Code Online (Sandbox Code Playgroud)

它有效.

但是如何在Laravel 5中这样做???

PS:我读过laravel 4帮手或基本功能的最佳实践和最佳场所是什么?

并尝试将"app/library /"添加到autoload数组并运行composer dum-autoload,但它一直给我错误:

xxxx行xx中的FatalErrorException:未找到类'myFunctions'

我也在尝试使用:

composer update
composer dump-autoload 
php artisan dump
php artisan clear-compiled
php artisan dump-autoload
php artisan optimize
php artisan route:clear …
Run Code Online (Sandbox Code Playgroud)

class laravel

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

如何在任务栏Delphi 2010中更改应用程序图标

我使用自己的图标(32x32 16位EGA)更改了我的应用程序的图标:

Project > Option > Applications > Load Icon
Run Code Online (Sandbox Code Playgroud)

任务栏中的图标在许多边框样式中都发生了很好的变化:= bsNone或bsSingle或bsSizeable或bsSizeToolWin或bsToolWindow.但是当我使用BorderStyle:= bsDialog时,图标没有改变.

请不要告诉我使用:

Application.Icon.LoadFromFile(extractfilepath(application.exename) + '\myicon.ico');
Run Code Online (Sandbox Code Playgroud)

我想只提交一个EXE文件.

PS:我使用Embarcadero Delphi 2010

delphi icons taskbar delphi-2010

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

DBGrid 通过代码突出显示找到的行?

我得到:ADOTable1(codepeople作为整数,namepeople作为字符串)DataSource1(DateSet是ADOTable1)DBGrid1(连接到DataSource1,Options-dgRowSelect为true)

我使用以下代码在 ADOTable1 上找到一行

  ADOTable1.Locate(ADOTable11codepeople.FieldName, 1, []);
Run Code Online (Sandbox Code Playgroud)

DBGrid1 正在选择正确的行。但不是亮点。

如何使 DBGrid 自动突出显示我从 ADOTable1 找到的行?

我阅读了以下链接,但没有找到答案:

如何在TDBGrid中设置活动单元格?

Delphi - 使用 DBGrid 从搜索中选择行

在 Delphi 中滚动时查看 DBGrid 中的位置

简单的源码请...

PS:我用的是Delphi 2010。

delphi row highlighting tdbgrid

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

如何使用多个文件类型屏蔽过滤Filelistbox?

不知何故,我需要制作一个自定义的"文件打开表单".我设法用filelistbox检索文件列表.我的问题是当我在filelistbox1.mask中输入它时

Image Files|*.jpg;*.jpeg;*.bmp;*.gif;*.png;*.tiff;*.tga
Run Code Online (Sandbox Code Playgroud)

所有*.jpg文件都没有显示,但显示其他图像文件(.jpeg; .bmp; .gif; .png; .tiff; .tga).怎么会这样?

我确定文件夹中有*.jpg文件,但为什么它们没有显示在filelistbox中?

如何修理我的面膜?知道什么是正确的面具吗?

delphi file mask

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

DELPHI - 如何使用opendialog1选择文件夹?

可能重复:
Delphi:使用TOpenDialog选择目录

我需要在项目中打开一个特定的文件夹.当我使用opendialog1时,我只能打开一个文件.打开文件夹怎么样?

想要 - 在Delphi中打开文件夹对话框

PS:我使用的是Delphi 2010

delphi directory opendialog delphi-2010

4
推荐指数
3
解决办法
3万
查看次数

Odoo 10.0更改POS徽标

我已经能够通过激活开发者模式来更改General Odoo徽标.然后单击自己的徽标和"编辑公司数据",选择徽标.

但这不适用于POS.徽标仍然是默认的Odoo徽标.怎么改呢?

如何更改POS /销售点的徽标?

openerp odoo-website odoo-9 odoo-view

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

如何从TMemo组件向MS Access数据库添加多行?

我有一个名为ADO的数据库t_codemeaning,下面是表结构:

t_codemeaning
  codemenaing_code AS Text
  codemenaing_title AS Text
  codemenaing_description AS Text
Run Code Online (Sandbox Code Playgroud)

我添加了所有表格ADOQuery1.

我点击了这个Delphi脚本的按钮:

ADOQuery1.edit;
ADOQuery1codemeaning_title.value := edit1.text;  
ADOQuery1codemeaning_description.value := memo1.lines.text;  
ADOQuery1.post;
Run Code Online (Sandbox Code Playgroud)

当我在备忘录中添加单行时,那么每件事都很好.

但是当我在memo1中添加多行文本时,它会显示一个错误:

多步操作产生错误.检查每个状态值.

如何解决这个问题?


我的最后一个进展,我创建了一个新的字符串变量aValue并将memo1.lines.text添加到其中:

  aValue:=memo1.lines.text;
  aValue := StringReplace(StringReplace(aValue, '#10', '', [rfReplaceAll]), '#13', '', [rfReplaceAll]);
Run Code Online (Sandbox Code Playgroud)

我将ADOQuery1codemeaning_description.value ....的脚本更改为:

ADOQuery1codemeaning_description.value := aValue;  
Run Code Online (Sandbox Code Playgroud)

仍然有同样的错误......

delphi ms-access memo delphi-2010 tadoquery

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

DELPHI 错误:多步操作生成器错误。检查每个状态值

我有一个程序,当单击一个位按钮时,它会打开一个对话框来加载一些文件,并将其添加到 AdoQuery (AQSource1) 中。当我添加一些文件时,出现此错误:

“多步操作生成器错误。检查每个状态值。”

仅当我添加选定的多个文件时。但是,如果我按一个文件选择一个文件,则根本没有错误...但有时,如果我选择多个文件,此错误也不会显示......对我来说有点困惑...

如何解决这个问题?简单来说...

PS:我使用Windows 7 Pro SP1 64位,Embarcadero Delphi 2010

procedure TFMain1.btImgLoad1Click(Sender: TObject);
var i : integer;
    strFilename : string;
begin
  if OpenDialog1.Execute then
  begin
//    Add selected file to DBase and show it on DBGrid
    for i := 0 to openDialog1.Files.Count-1 do
    begin
//      ShowMessage(openDialog1.Files[i]);
      strfilename := openDialog1.Files[i];

      AQSource1.Append;
      AQSource1source_fileurl.Value := strFilename;
      AQSource1source_filename.Value := ExtractFileName(strfilename);
      AQSource1source_dateadd.Value := date();
      AQSource1source_timeadd.Value := Time();
      AQSource1.Post;

      AQSource1.Close;
      AQSource1.Open;
    end;
  end;
end;
Run Code Online (Sandbox Code Playgroud)

delphi ado

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

PHPWord:使用 Laravel 4 插入分页符并设置边距和页面方向

我正在使用 PHPOffice/PHPWord,并且我有一个 MySQL 数据库,其中包含一个名为trials. 它包含 2 列idname. 两列都是VARCHAR(255). 有几行,如下所示:

id | name
---+-----------
A1 | Avatar
B1 | Browser
C1 | Calculator
A2 | Align
Run Code Online (Sandbox Code Playgroud)

我使用的查询是 SELECT * FROM trials ORDER BY id ASC

我想要做的是制作一个 DOC 文件并为每一行添加一个新页面(1 页为 1,1 页idname)。

如何在行之间插入分页符?

另外,如何设置边距和页面方向?

作为一个例子,我想要的内容mytrial.doc如下:

Page 01
    A1 - Avatar
Page 02
    A2 - Align
Page 03
    B1 - Browser
Page 04
    C1 - Calculator
Run Code Online (Sandbox Code Playgroud)

我使用 Laravel 4 …

php phpword

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

Delphi隐藏表格,不隐藏任务栏上的应用程序图标

我使用以下代码:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.visible := false;
  Form2.show;
end;
Run Code Online (Sandbox Code Playgroud)

是的,form1被隐藏,而form2出现了。但是为什么任务栏中的应用程序图标也被隐藏了。

我使用以下代码,但是在隐藏form1时仍无法在任务栏上显示图标。

      visible := false;
{
      enable := false;
      Application.MainFormOnTaskbar := True;
      ShowWindow(Application.Handle, SW_SHOW);
      SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
}
Run Code Online (Sandbox Code Playgroud)

我要隐藏表单时如何在任务栏上保留应用程序图标?

我想在单位文件而不是DPR文件中执行此操作。

我要保留系统任务栏的文件位于:http : //sidhiciang.com/myfiles/ShowHideForms.rar

Unit1.pas
  If Form1.btShowForm2Click() , then 
    Hide Form1 and Show Form2 ( actHideForm1execute(self)).
  If Form1.btCloseForm1Click(), then 
    Close the application

Unit2.pas
  If  Form2.btShowForm3Click(), then 
    Hide Form2 and Show Form3 ( actHideForm2execute(self)).
  If Form2.btCloseForm2Click(), then 
    Show the Form1 and Form2.close (actShowForm1execute(self))

Unit3.pas
  If btCloseFrom3Click(), then
    Show …
Run Code Online (Sandbox Code Playgroud)

delphi

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

如何使用delphi 2010将虚拟按键发送到其他应用程序?

我需要将几个虚拟键(VK_RETURN)从我的delphi应用程序(myapp.exe)发送到另一个应用程序(target.exe)。 Eg : Send VK_RETURN twice , from myapp.exe , into target.exe

我使用的操作系统是Windows 7 64位和Windows XP。

我读到:如何将“ENTER”按键发送到另一个应用程序?将 Ctrl+Key 发送到第三方应用程序(对我来说不起作用)以及其他先前提出的问题。但我还是很困惑。

如何将焦点设置到目标应用程序?

如何将虚拟按键发送到目标应用程序?

简单的例子:我想将 VK_RETURN 发送两次到 notepad.exe 或 calc.exe (已加载)或我的 delphi 应用程序中的任何其他程序。怎么做 ?

请在 Delphi 2010 中执行此操作的最简单方法...

PS:我尝试了来自http://delphi.about.com/od/adptips2004/a/bltip1104_3.htm的SndKey32.pass 并得到错误:[DCC错误] SndKey32.pas(420): E2010不兼容的类型:'Char'和'安西查尔'

  If (Length(KeyString)=1) then MKey:=vkKeyScan(KeyString[1])
Run Code Online (Sandbox Code Playgroud)

delphi virtual-keyboard delphi-2010

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