Deze code doet het wel.
pict := TPngImage.Create;
bitmap := TBitmap.Create;
try
pict.LoadFromFile(FResourcePath + '\projectie-139-muziek-couplet-2-1.png');
...
Type: Posts; User: mzwollo; Keyword(s):
Deze code doet het wel.
pict := TPngImage.Create;
bitmap := TBitmap.Create;
try
pict.LoadFromFile(FResourcePath + '\projectie-139-muziek-couplet-2-1.png');
...
Deze afwijkende handcursor bevindt zich in de Source-map van HtmlViewer en wel in het bestand Html32.res.
Ik maak in mijn Delphi-applicatie een script met een aantal opdrachten voor de mysql database op de website.
Dat script wordt opgeslagen met een at random geproduceerde naam, bijv f4Jk7d.Gf3 en met...
Ik heb het pad naar de source toegevoegd aan
Project > Options > Delphi Compiler > Search path
Hmm, "When you purchase RAD Studio, Delphi or C++Builder, you obtain a perpetual license." geknipt uit: https://www.embarcadero.com/update-subscription
@develyoy: Wow!
Wat een mooie collectie.
Declareer in het mainform de procedure
procedure OnMove(var Message: TMessage); message WM_MOVE;
Plaats in het Implementation gedeelte van het mainform
procedure OnMove(var Message:...
Door na het wijzigen van str1 en/of str2 repaint aan te roepen.
str1 := 'Dit is lijn 1';
str2 := 'Dit is lijn 2';
StatusBar1.Repaint;
Ja dat kan, zie : http://www.delphipages.com/forum/showthread.php?t=162091
Tja, het was een bericht uit 2001...
Probeer deze code (uit een bericht van 2015):
procedure TForm2.Button1Click(Sender: TObject);
var
Flags: OLEVariant;
begin
Flags:=4;...
Dit al geprobeerd?
http://www.delphipages.com/forum/showthread.php?t=205071
Het lijkt er op dat de veldnaam het probleem is. Heb je al [Hulp kracht] of [Hulp-kracht], dus tussen rechte haken geprobeerd?
Heb je frxPDFExport1.Compressed := True gezet?
Heb je een frxGZipCompressor component op het form geplaatst?
Zoiets:
procedure TForm1.Button1Click(Sender: TObject);
var
strlst: TStringList;
i : integer;
begin
strlst := TStringList.Create;
try
strlst.add('aap');
Experimenteer eens met:
Label1.Scale.X en Label1.Scale.Y
Dus:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Scale.X := 4;
Label1.Scale.Y := 4;
Memo1.Clear bestaat in feite uit een reeks opdrachten, die in een wachtrij worden geplaatst om uitgevoerd te worden.
Door een bug in FireMonkey wordt deze wachtrij van Memo1.Clear niet volledig...
Voeg na Memo1.Lines.Clear toe Application.ProcessMessages.
Dan lukt het wel.
Dus:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
Memo1.Lines.Clear;
...
Zie je wel scrollbars?
En kun je scrollposition handmatig naar linksboven verplaatsen?
En zie je dan de twee regels nog steeds niet?
Overigens zie ik nu dat ik ScrollBy(0,0) schreef, de...
Memo1.ScrollToTop() bestaat wel in nieuwere versies van Delphi.
In oudere versies zul je het moeten doen met bijvoorbeeld Memo1.ScrollBy(0,0);
Memo1.Lines.Add( '2222' );
memo1.ScrollToTop();
Deze vraag kun je beter in een nieuwe draad plaatsen.
Je hoeft mijn voorbeeld niet te volgen.
Het was maar een voorbeeld hoe verbinding te maken met een sqlite-database.
Welnu dat is jou gelukt!
Het juiste aantal records in de tabel krijg je door...
Heb je FDQuery1 wel op actief gezet?
procedure TForm1.FormShow(Sender: TObject);
begin
FDQuery1.Active := True;
end;
Is er een binding gemaakt tussen de FDQuery1 en TGrid1?
7244
Nog niet helemaal compleet en niet helemaal goed.
1.
In de properties van FDConnection1 moet nog de DriverName SQLite worden gezet.
Of:
7236
Je ziet ook in bovenstaand plaatje dat het...
Echt niet?
Als ik het plaatje nauwkeurig bekijk zie ik een drietal driverlinks actief, waaronder die van SQLite.