Recherche:

Bonjour,

Ceci peut t'intéresser : descendant de TEdit dans lequel tu peux modifier la couleur background et la couleur du texte en mode Disabled.
Testé sous Windows 10 et Lazarus 1.6.4.
J'ai...

Bonsoir.



Si, BringToFront et SendToBack sont efficients pour les TLabel et autres descendants de TGraphicControl (TImage...), mais seulement entre eux et à condition évidemment d'avoir le même...

Fais-tu encore référence à ton fichier RC ?
Si oui : as-tu supprimé dans ton fichier RC les lignes relatives aux curseurs ?
Sinon, il y a duplication de ressources à charger. (RC + mycursors.res)
...

Bonjour.

Deux façons d'ajouter des curseurs personnalisés :
1) utiliser un fichier .LRS avec l'utilitaire LAZRES : consulte la FAQ...

Bonjour.

Cela fait longtemps que je ne fais plus de programmation bases de données, mais pour autant que je me souvienne:
j'ai toujours préféré l'événement OnFilterRecord à la propriété Filter....

Bonjour à vous deux.

Je n'ai pas lu les derniers posts. Donc risque de faire double emploi.
Je réponds au post #13.

Dans un TScrollBox, pour savoir si une scrollbar est effectivement visible,...

Salut JP.

Après test sur ton zip : les scrollbars n'apparaissent pas pcq PanelAuCentre.Anchors:= []

Modifications opérées :
1) PanelAuCentre.Anchors:= [akLeft, akTop]
2) Propriété...

Désolé, c'est ce j'avais cru comprendre de par ton commentaire dans la procedure TForm1.Create.


procedure TForm1.FormCreate(Sender: TObject);
begin
PanelAuCentre.Parent := sb; // pour...

Salut JP.

Avec AutoScroll = true, les scrollbars ne seront visibles que si nécessaire. (avec leur propriété visible = true).

Pourquoi se prendre la tête avec cela ?

Ton problème vient de...

Salut JP.

Je n'ai pas vérifié, mais il est vraisemblable que le TImage utilise lock et unlock en interne.
D'où ton erreur lors du Unlock.
Tu peux écrire :

if img4result.Canvas.Locked then...

Bonjour.

Dans ton code, la propriété Form1.Position = poDefault.
Ce qui, chez moi (Windows 7), entraine un agrandissement de la fiche par rapport aux dimensions fixées en mode design.
Si tu...

Salut BM.

Tu peux insérer un bloc try..except dans le bloc try..finally.


procedure TForm1.Button1Click(Sender: TObject);
var
A, B: integer;
begin
A:= 100;

Pour revenir sur l'effacement de l'image...

je déconseillerais : Image1.Picture := nil;

Si on regarde le code de TPicture.Clear :


procedure TPicture.Clear;
begin
SetGraphic(nil); //...

Salut JP.

Dans le cas d'un TImage: un TPicture est créé d'office.


constructor TCustomImage.Create(AOwner: TComponent);
begin
//...
FPicture := TPicture.Create;
...

Bonjour.

Modifier les Hints pendant l'exécution ?

Le plus simple est d'utiliser un TStringList :


SL:= TStringList.Create;
// français
SL.AddStrings(['Premier', 'Précédent', 'Suivant',...

Salut JP.

Dans ta version Lazarus, l'événement OnPaint du panel est-il effectif ?
Si mes souvenirs sont bons, dans d'anciennes versions (et aussi en Delphi7), l'événement n'était pas implémenté....

Bonjour à vous.

@jurassic pork :

Merci pour le lien, mais j'avais déjà vu cette source. Ma question était : pourquoi Lazarus n'intègre pas d'office une routine de ce genre ?

@JP et Gilles :...

Bonjour,

Bizarre cette référence circulaire.

Si la solution de BeanzMaster ne marche pas, tu peux déclarer dans la section implémentation le uses LCLIntf, si évidemment tu n'en as pas besoin...

Bonjour à tous.

J'ai repris une unité que j'avais codée en 2014 sous Lazarus.
Compilation avec la version 1.6.4.
Pas d'erreur signalée, mais comportement anormal à l'exécution !
Comme cette...

Salut JP.

Puisque l'alignement de ton scrollbox = alclient, cela ne sert à rien de modifier scbx.Left et scbx.top, ces propriétés resteront toujours = 0;

En ce qui concerne le centrage de...

Salut JP.

On peut dire que tu m'en fais faire des tests ! ;)

Malheureusement pour toi, c'est sous Windows.

J'ai repris ton code de comparaison de deux bitmaps avec le code de mise en rouge...

Salut JP.



Absolument pas !
Quand une image contient des zones transparentes, ces zones, à l'écran, prennent la couleur du composant parent.
Ce qui explique les différences selon la couleur...

Salut JP.

Dans la version 1.6.4 : dans un checklistbox, l'événement OnSelectionChange n'est pas publié.
Mais il est public, donc en l'assignant par code, il réagit bien.

Amicalement
Thierry

Salut JP.

Alors, je ne vois plus qu'une solution, c'est de travailler uniquement en 32bits, et donc de transformer un éventuel 24bits en 32. Ainsi, plus de padding.
Le code de conversion que j'ai...

Merci à toi, André.

Je ne regarde pas trop si ce genre de composant existe.
Je programme pour le plaisir... au risque parfois de réinventer la roue.

Cordialement
Thierry