Quantcast
Channel: Programmer's Town - Delphi & Builder
Viewing all 704 articles
Browse latest View live

The selected elements in dxLayoutControl - SelectedItem

$
0
0

In designer LayoutControl ` and (the form is inherited from standard designer TdxLayoutControlCustomizeForm) it is necessary for the selected elements to assign any label, for example, in Tag to write down 1 either 0. Or to one  to an element.
As and not in the designer, and directly in LayoutControl `  windows where this lives dxLayoutControl too it is necessary to walk on selected or on all and to understand, what selected and what is not present.
The main thing - to receive the list of the selected elements that in a cycle on SelectedItems to specify to any member property the necessary value.
As a result, that at window discovery such elements, at which tag = 1 have been hidden.
I.e. the user in program adjustments includes certain  and at window discovery such elements need to be hidden.
Found how to find focused and that by means of hacking sad
https://www.devexpress.com/Support/Cent … ls/Q450132
And here, how to make a cycle on Selected, I can not understand.
In help did not find.


Inscriptions under components in

$
0
0

Share knowledge how to disconnect a subject?

Free Windows a hosting

$
0
0

Greetings to all!
Whether the people do not prompt exist free Windows a hosting with support IIS and MS a SQL Server? If is throw off the link please, it is desirable Russian-speaking are that if are available! Purely for testing it is necessary!!! In not those did not find, only in English!!!

To receive from USB-port

$
0
0

There is a device which works through usb port
To it is  with feature set, but necessary to me is not present
With the device there is a diagnostic program which finds the information necessary to me
Prompt how to try to receive  an exchange on port
If business was from comas port there all clearly and time and again such did
And here with  never worked
Prompt where to dig

Operation with a sound a sine curve, timbre and loudness change (on the fly)

$
0
0

Colleagues, hello!
Who in a subject, help...
The task - continuously to generate a sound (a pure sine curve), but only to change its tonality and loudness, as they say to "touch".
Found the code: http://www.delphitricks.com/source-code … _card.html
All is good, yes there is a pause between calls, and a pause notable. And it is necessary that instantly frequency and loudness it was possible to change.

procedure Tfmain. Button3Click (Sender: TObject);
var
a: integer;
begin
for a: = 1 to 5 do
begin
MakeSound (1100, 300, 50);//<<<between "units" a pause ~0.3 (((
MakeSound (1100, 300, 50);
MakeSound (1100, 300, 50);
end;
end;

As an output to drive a signal not , and to modulate it "on the move" as it is necessary. Whether Here only it is possible to prompt, in what direction to dig to me...
I think it is necessary to place the code by the link in a separate flow, and to influence a flow in a flow. Only under the task - task runtime on tonality and loudness change 1 seconds and that at all there were no empty pauses.
Links to examples are welcomed.

ResponsiveList

ADOQuery and dates

$
0
0

Children all greetings!
At me it is filled StringGrid, here there are two columns "Date with" and "Date on". Further I collect SQL request and through ADOQuery I send it on performance. But faced here such problem - if dates are read with StrigGrida the request returns nothing. If I register dates in the code the request returns the data. Dates identical.

ADOQuery1.Parameters. ParamByName (' DateFrom ').DataType: = ftDate;//we Assign type
ADOQuery1.Parameters. ParamByName (' DateTo ').DataType: = ftDate;
//Here so the request returns nothing!!!
ADOQuery1.Parameters. ParamByName (' DateFrom ').Value: = StrToDate (Cells [4, i]);
ADOQuery1.Parameters. ParamByName (' DateTo ').Value: = StrToDate (Cells [5, i]);
//And here so the request returns the data
ADOQuery1.Parameters. ParamByName (' DateFrom ').Value: = StrToDate (' 10/1/2016 ');
ADOQuery1.Parameters. ParamByName (' DateTo ').Value: = StrToDate (' 10/27/2016 ');

At once there is a thought that in most StrigGrid the wrong information is stored. But I checked, there the same dates (line).
The conversion problem to date through StrToDate when I take value from StrigGrid can?
Who prompts?

DevExpress the filter on entrance %LIKE % in ColumnPopup

$
0
0

Implemented the filter on entrance %LIKE % in columns :

procedure TFEOMainForm.cxGridDBBandedColumn6PropertiesChange (Sender: TObject);
var
S: TcxLookupComboBox;
begin
S: = Sender as TcxLookupComboBox;
AppFilt (S.Properties. DataController, S.Properties. ListFieldNames, S.Text);
end;

Now it would be desirable to make same in the Popap-menu (Grid. Filtering. ColumnPopup) a column, there too there is a standard incremental filter, but type LIKE of %.
I can not find change event in any way (Change on which filter LIKE of %) this Popap-menu should sit.
Somebody knows?


Does not boot rsm a file

$
0
0

Remote debugging Win32 of application. I open Deploy Manager, I specify that  dll, rsm, map. I register ways where  (all in one directory). I push Deploy. All three files appeared by the remote machine. I cling , he in a window "Event log" speaks
[quote =] Module Load: mylib.dll. No Debug Info . Base Address: $029E0000. Process myprocess.exe (1592)

I open a window "Modules" I see that my unit is, and a column "Symbol file" for it empty. Accordingly  do not work.
What do I do not so?
Other unit in the same process perfectly clings a rsm-file and gives in to debugging.
Project Options-> Debugger-> Symbol Tables all empty. One daw "Load all symbols" is installed. Compilation settings - standard

{$A8,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N-,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}

Yours faithfully, Vasilisk

TStringGrid Classic vs Modern theme.

$
0
0
procedure TForm33.SGDrawCell (Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var
CV: TCanvas;
begin
CV: = TStringGrid (Sender).Canvas;
if ARow=0 then Exit;
CV.Brush. Color: = Random ($1000000);
CV.FillRect (Rect);
end;

Why in Modern subjects not correctly produces the size cell rect? And how to treat?

Selection of the text with lines and up to the end

$
0
0

an example of selection of the text in word with defined till a certain line

W.ActiveDocument. Range (Start: = 10, End: = 40).Select;

How to make selection not to 40, and up to the end?

Factory vibration in Android

$
0
0

How to make factory vibration in Android that it was same as well as at an entering call?

ErrorSoftVclComponents

$
0
0

FreeEsVCLComponents - free, OpenSource library VCL components for Delphi and a C ++ Builder .
It both new control items, and components for improving of appearance of applications and the best user experience. All components have the best support of a transparency.
Components support visual styles and has the modern appearance.
All window components FreeEsVCLComponents do not flicker, also do not flicker on them and successors TGraphiControl at property activation BufferedChildens .
The link to a repository: https://github.com/errorcalc/FreeEsVCLComponents/
Loading is accessible to owners Delphi Berlin Update1/Update2 through the manager of packets GetIt .
Pluses:
* Excellent support of a transparency
* Absence of blinking
* Support built in in VCL an engine that
* Support Hight DPI (Seattle +)
* Convenient display of boundaries in DesignTime, at activation of property IsDrawHelper
* Support Windows XP
The List of components:
TEsCustomControl - the Base class, comprises magic of suppression of blinking and transparency support.
TEsNinePatchImage - TImage for 9-Patch images (the Bitmap image with scaling possibility, without the quality loss, almost all modern interfaces are under construction on them), and also the image - Overlay-a
TEsImageLabel - the Label with possibility of setting background 9-Patch images, and also - Overlay-a, layout and text alignment it is possible to combine images
TEsLayout - the Basic component - the container. It is interesting by possibility of double buffering to successors TGraphicControl (TLabel, TGlyphButton, TImage, TBevel...)
TEsImageLayout - Layout with support background 9-Patch images, and also the image - Overlay-a
TEsImageStaticText - StaticText with support background 9-Patch images, and also - Overlay-a, both the text layout and text alignment it is possible to combine images
TEsActivityBar - the Component imitates XAML  Windows 10, created for indication of employment or progress display (something of type TProgressBar). Has set of adjustments.
* Support of two mapping modes
* Three types of animation and progress indication
* Support VCL by that
* Absence of blinking
* Full
TEsSwitch - the Component imitates with the same name XAML  Windows 10. Has set of adjustments.
* The full simulation XAML
* Animation
* Support VCL by that
* Absence of blinking
* Full  colors
* Some modes AutoSize
* Support ActionList
TEsImage - the Best changeover TImage, with the big possibilities.
* Smoothing that always did not suffice TImage
* Support ImageList
* Half-transparency support
* Some modes of extension of the image
TEsImageControl - the Best changeover TImage, with the big possibilities and with absence of blinking!
* Absence of blinking!
* Smoothing that always did not suffice TImage
* Support ImageList
* Half-transparency support
* Some modes of extension of the image
* Boundary drawing if it is necessary
* Input focus support
TEsRegexEdit - TEdit with the built in support  and indications of correctness of input by means of the regular expressions.
* Color adjustment
* Four modes of indication
* The built in editor of the regular expressions
TEsRegexButtonedEdit - TButtonedEdit with the built in support  and indications of correctness of input by means of the regular expressions.
* Color adjustment
* Four modes of indication
* The built in editor of the regular expressions
TEsRegexLabeledEdit - TLabeledEdit with the built in support  and indications of correctness of input by means of the regular expressions.
* Color adjustment
* Four modes of indication
* The built in editor of the regular expressions

Booking of Bus Excursion

$
0
0

All greetings. Council of clever people is necessary. I write an aaplet by request of excursions. There was a necessity to make something of type of bus booking to these excursions. Is to three table in a DB: Clients, excursions, buses. The bus is anchored to each excursion with N th amount of seats. I can not think, as it is better to implement it.  who met any similar examples

Questions on operation with flows

$
0
0

All kind day!
Never before with flows worked, therefore there is a pair of questions... There is a flow which does the same operation on time.
Pulls out the data from DB Firebird and saves in a file of Eksel. Costs FreeOnTerminate: = true, that is I launch it, further it is not necessary to me.
In this connection a question:
1) At program termination, I somehow should complete forcedly a flow if suddenly it works at present? Or Delfi the automatic machine kills him at an output?
2) Found that in a flow it is necessary to create the copy of session for a connection to basis... Whether Really it is necessary? Now works and so


To calculate probability of an outcome of a batch

$
0
0

Children, help , and that with mathematical apparatus not so.
There are two chess players with rating : https://ru.wikipedia.org/wiki/_
As I understood, for calculation of rating  Gaussian distribution (normal distribution) is used.
looks so: A - the Difference of ratings. In - Expected result for the player with higher rating. About Expected result for the player with lower rating
AND IN WITH
0 0,5 0,5
25 0,53 0,47
50 0,57 0,43
100 0,64 0,36
Etc.
In chess three results (a victory white, a drawn game, a victory black) are possible.
Let's admit, at player A a rating X, and at player B rating Y.
How to calculate probability of victory A, probability of victory B and probability of a drawn game? Under what formulas?

Macroes in the source code

$
0
0

Whether probably somehow to receive a functional of macroes which would return a name of current procedure/function (and there can be a row number)?
For example as in With ++ macroes __ func __ and __ LINE __.

I ask to help with Dzhenerikami, Helpers and Mac OS

$
0
0

Dear Gurus, I ask to help, if it is possible: here links are specified Dzheneriki , Helpers , Objective-Pascal
Transfer of some heads official documentation Free Pascal is fulfilled (remaining I translated, there there are roughnesses, but there I though have some experience) . Here I have no experience operation with , with helpers,  in Mac OS. Heads are translated, but I ask to remove roughnesses and inaccuracies. Please, help.

FireDac does not understand the coding in FTS to the table of basis SQLITE.

$
0
0

There is basis SQLITE with Encoding=UTF8.
I read from basis by means of AnyDac (FireDac) in Delphi XE3 with ADQUERY and with ADTABLE.
When there is a normal table
CREATE TABLE table0 (mytext Ntext, publishdate date);
INSERT INTO (mytext, publishdate) VALUES (' greetings ', ' 1998-12-07 ')
All is normal - ADQUERY with ADTABLE return mytext =''
And at creation FTS of the table
CREATE VIRTUAL TABLE table0 USING FTS4 (mytext, publishdate);
INSERT INTO (mytext, publishdate) VALUES (' greetings ', ' 1998-12-07 ')
At reading instead of ' greetings ' are had '?????? ', i.e. in this case FireDAC reads this data as ANSISTRING.
NTEXT, NVARCHAR near to mytext at table creation do not help.
In basis it is written down truly - ' greetings ' (opened basis with SQLITEEXPERT).
What it is necessary to make, that and in the second case FireDAC returned in the correct coding?
(SQLQuery from dbExpress in DelphiXE3 returns ' greetings ')

Dialogue forms FastReport

$
0
0

Hello!
In FastReport there are the Dialogue forms intended for input and parameter passing in the report.
The dialogue form is shown before report start.
It would be desirable to allocate the Dialogue form on the report that the user filled with the data, pushed Raschitat and the report was constructed. Changed one parameter (instead of entered all of them anew), pushed Raschitat and received the new report.
Prompt, as such to implement!

Viewing all 704 articles
Browse latest View live