Recherche:

Ok, c'est juste plus simple au fur et a mesure...

Sinon, pour ton problème, c'est pas plutôt une erreur a l'exécution ? Regarde du coté des TryStrToInt et StrToIntDef (F1 pour l'aide).

Salut

Personne n'a fait la remarque, mais je te conseille fortement de renommer tes composants ... Parce que Edit1,2,3,4,5,6,7 ca commence a faire ... En plus, en lisant le code, on comprendrait...

Alors je crois que c'est la qu'il y a incompréhension.

Inflate(aRect,-FAlignmentMargin,0);
est STRICTEMENT équivalent à

aRect.Left := aRect.left + FAlignmentMargin;
aRect.Right...

Et la on est exactement d'accord. Le principal problème, c'est le temps d'adaptation. Mais ce temps d'adaptation est proportionnel au nombre d'utilisateurs, et les utilisateurs quittent le Pascal...

Rooooh !!!


{ Dessin du texte }
if Columns.Count > 0 then begin
Inflate(aRect,-FAlignmentMargin,0);
Params := DT_SINGLELINE or DT_VCENTER;

Case Columns[aCol-1].Alignment of...

C'est donc "l'équivalent" de la VCL. Il s'agit d'une encapsulation des API pour éviter de les appeler directement. La logique est la même en Pascal ! Si tu prends du code Pascal, tu pourra le...

Non, cela ne vient pas de la. Les lignes ne font qu'un pixel de large, et le décalage est de 3 pixels. De plus, le CellRect tient compte d'une partie des largeurs des lignes, a savoir celle du bas et...

J'ai lu récemment que les applications compatibles Windows 7 sont compatibles Windows 8. Mais de toutes facons, je ne vois pas ce que cela change. La VCL n'est qu'une encapsulation des API système,...

A mon avis, le Pascal n'a rien a apporter a cela. Le Pascal est, pour moi, un moyen de programmer des applications natives. Il n'a pas pour but d'être présent sur tous les plans (notamment Internet)....

Il s'agit très surement d'un bug. Si tu utilise ma fonction, quand le bug sera résolu, ton affichage ne changera pas. Par contre, avec ta fonction, tu auras un désalignement quand le bug sera corrigé...

Aaahh ! OK ....

Je n'avais pas compris que c'était géré nativement par Lazarus. Pour ma part, ce n'est pas le cas sous Delphi ...

Dans ce cas, tu as le choix entre laisser par défaut, mais...

Je ne vois pas dans ton code ou est ce que tu as modifié le bord gauche seulement ... Tu as utilisé un InflateRect(aRect, -3, 0);, mais ceci affecte les deux cotés a la fois, et donc ne modifie pas...

Salut

Pour la discussion, mon problème était simplement de pouvoir dessiner hors d'une cellule lors de son appel a DrawCell ...

Pour le StretchDraw, le truc est de créer un bitmap de un pixel...

Je ne comprends pas non plus le problème.

Pour ma part, j'utilisais un StretchDraw qui rendait très bien. Tout était fluide, le rendu donnait bien, donc tout allait bien.
...

Salut

Je n'ai pas bien compris. Tu cherches a avoir ton texte sur l'image de fond ? Si c'est cela, au moment ou tu dessines ton image de fond avec Draw, fais également un DrawText par dessus.
...

Tout a fait d'accord avec wormful.

Un autre conseil, dans ton programme, tu as une variable Depart globale, et un argument Depart. Il serait judicieux d'en renommer une, pour éviter les...

Salut

Sans nous en dire plus, difficile de savoir ce qui ne va pas ... Donne nous ton code pour voir. A mon avis, ça vient d'un problème de déclaration dans tes unités.

Par contre, je vois 2...

Salut

J'aime bien le look sobre de l'interface ^^. Bon jeu, j'ai même réussi a battre l'ordi ^^.

Quelques points manquants : La numérotation des cases (A..H et 1..8) et dire a qui de jouer.
...

Salut

Alors, il y a deux moyens d'arriver a ce résultat :

La première méthode, c'est celle de selzig : Créer une classe (TClassAddOn) dans laquelle tu viens définir un (ou plusieurs) membres...

Bizarre, même en y mettant des formes, on arrive à se faire critiquer ...
J'ai clairement montré que c'était de l'humour, et n'importe qui un tant soit peu attentif aura remarqué la grande...

Salut



En fait, tu peux définir un type comme ceci :

type
TFonctionMath = function(X : double):double;

et faire

Salut

Pour moi, la meilleure solution serait de créer dynamiquement les 10 forms.

Par contre, je m'y prendrais peut être autrement : au lieu d'utiliser des TForm, tu peux utiliser des TFrame....

Alala, si vous trichez en plus !! :mrgreen:

En bidouillant avec les allocations


procedure SupprEspace(var Txt : string);
var i, j : integer;
Espace : boolean;
begin
j:=0;

Merci pour le retour.

Il faut dire aussi que dans les zones "blanches", il n'y a qu'un test et une affectation, donc c'est assez rapide...

Ca me parait un peu lourd vos méthodes (récursivité, 2 while)...

Si j'ai bien compris, SupprEspace enlève les espaces en doubles, les espaces avant et après la chaine ?

J'aurais vu un truc du...